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SECTION  I 
INTRODUCTION 


This  report  describes  work  performed  under  the  Advanced  Fluid  System 
Simulation  (AFSS)  contract.  The  purpose  of  the  AFSS  program  is  to  establish 
and  validate  the  modeling  required  for  a  comprehensive  dynamic  simulation 
of  aircraft  hydraulic  systems.  Prior  work  in  this  area  has  been  documented 
in  References  (1)  and  (2).  The  computer  programs  are  documented  in 
References  (3)  through  (10). 

The  AFSS  tasks  involved  improvement,  development  and  verification  by  test 
of  digital  computer  models  and/or  programs  in  five  areas. 


1.  HYDRAULIC  TRANSIENT  ANALYSIS  (HYTRAN)  COMPUTER  PROGRAM  DEVELOPMENT 

The  HYTRAN  program  can  provide  useful  predictions  of  peak  waterhammer 
pressures  and  system  response  to  changing  flow  demands.  HYTRAN  general  purpose 
math  models  are  adequately  verified  so  that  they  can  be  used  with  confidence  to 
analyze  hydraulic  systems.  They  can  be  used  to  write  a  simple  system  model  or 
they  can  be  modified  to  create  very  detailed  models  to  predict  actual  system  and 
component  performance. 

HYTRAN  is  a  complex  computer  program.  The  user  must  be  familiar  with  transient 
phenomena  in  hydraulic  systems  and  know  how  to  interpret  program  results.  Un¬ 
acceptable  results  may  be  due  to  inaccurate  input  data  or  unrealistic  design 
conditions. 

Further  HYTRAN  development  involved  increasing  the  useability  of  this 
complex  tool.  An  empirical  pump  model  was  written,  further  verification  work 
was  performed  on  the  basic  pump  model,  a  lossless  line  model  was  developed  and 
several  program  improvements  were  made.  The  above  items  are  detailed  in  this 
report . 
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2.  HYDRAULIC  SYSTEM  FREQUENCY  RESPONSE  (HSFR)  COMPUTER  PROGRAM  DEVELOPMENT 

The  HSFR  program  predicts  how  oscillatory  flows  and  pressures  caused  by  the 
acoustical  energy  content  of  a  pump  output  are  transmitted  through  the  lines 
and  components  of  a  hydraulic  system.  The  program  predicts  the  pump  speeds 
at  which  major  resonances  occur,  and  defines  the  amplitude  and  location  of  the 
oscillatory  pressure  and  flow  standing  waves.  The  simulated  system  input  data 
can  be  easily  changed  to  investigate  various  practical  system  modifications 
for  the  attenuation  and/or  relocation  of  the  major  resonant  conditions. 

The  HSFR  program  can  provide  sufficiently  reliable  predictions  of 
resonant  frequencies.  However,  the  accuracy  of  predicted  pulsation  amplitudes 
at  resonant  pump  speeds  varies  widely. 

The  final  report  discusses  attempts  to  improve  the  accuracy  of  the  pulsation 
amplitude  predictions  by  test  data  attained  using  a  single  piston  hydraulic 
acoustic  source. 

Various  pulsation  attenuation  techniques  are  presented  and  organized 
to  provide  guidance  in  solving  attenuation  problems. 

Several  program  improvements  are  documented  including  correction  of 
the  pump  flow  calculation  and  a  standing  wave  plot  option. 


3.  STEADY  STATE  FLOW  ANALYSIS  (SSFAN)  COMPUTER  PROGRAM  DEVELOPMENT 

The  SSFAN  program  was  developed  to  predict  steady  state  flows  and 
pressures  in  a  closed  loop  Hydraulic  System.  It  uses  a  building  block  approach 
so  that  new  elements  or  components  can  be  added  with  minimum  change  to  the 
program.  A  matrix  method  is  used  to  compute  steady  state  flows  throughout 
the  system  line  network.  SSFAN  corrects  viscosities  for  pressure,  determines 
whether  flow  is  laminar,  transitive  or  turbulent  to  apply  appropriate  resistance 
factors . 

A  Quasi-transient  capability  and  several  program  improvements  including 
a  flow  regulator  model  and  a  new  matrix  calculation  technique  are  discussed 
in  this  report. 
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4.  HYDRAULIC  TRANSIENT  THERMAL  ANALYSIS  (HYTTHA)  COMPUTER  PROGRAM  DEVELOPMENT 

The  HYTTHA  Program  predicts  the  effects  of  system  heat  generation  and 
dissipation  of  the  temperature  and  performance  of  an  aircraft  hydraulic  system. 
The  program  can  simulate  closed  loop  systems  and  calculates  flows,  pressures 
state  variables,  component  temperatures,  fluid  temperatures,  and  line  wall 
temperatures  throughout  the  system. 

HYTTHA  was  written  to  analyze  temperature  phenomena  that  are  particularily 
complex.  Consequently,  large  amounts  of  input  data  are  required. 

Several  improvements  to  increase  the  program  useability  and  further 
verification  tests  are  discussed  in  this  report. 


5.  HLMR  PROGRAM  DEVELOPMENT 

Development  and  verification  of  a  computer  program  for  predicting 
line  mechanical  response  due  to  predicted  pump  pulsations  has  been  achieved, 
though  it  is  somewhat  limited.  The  program  can  be  used  to  determine  the  mode  shape 
and  frequency  of  fundamental  line  responses.  Higher  modes  of  line  response, 
which  were  the  predominant  responses  of  the  test  specimens  conducted  to  date, 
can  be  predicted  for  certain  configurations.  However,  these  solutions  could 
not  be  generalized  and  therefore  a  general  purpose  Hydraulic  Line  Mechanical 
Response  (HLMR)  computer  program  is  still  in  the  formative  stages. 

Tests  have  been  conducted  on  one-size  diameter  specimens  using  accelerometers 
and  strain  gages  as  transducers.  Each  hydraulic  resonance  caused  a  significant  mechanical 
response  within  the  operating  regime  of  the  pump.  Reduction  of  pump  pulsation 
energy  produces  a  reduction  in  line  response.  Development  and  use  of  effective 
wide  band  pulsation  alternatives  offers  an  attractive  and  perhaps  more  cost 
effective  near  term  alternative  than  the  development  of  a  general  purpose 
HLMR  program  which  should  be  a  long  term  endeavor. 
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SECTION  II 
HYTRAN  PROGRAM 


1 .  BACKGROUND 

The  HYTRAN  Program  simulates  the  dynamic  response  of  a  hydraulic  system 
to  sudden  changes  in  load  flow  demand.  HYTRAN  is  a  computer  program  requiring 
the  user  to  be  familiar  with  transient  phenomena  in  fluid  systems.  Unacceptable 
simulations  often  result  from  inaccurate  input  data  or  unrealistic  design  con- 
di Lions . 

The  statement  of  work  emphasized  improving  and  increasing  program 
useability . 

An  empirical  pump  model  was  developed  and  verified  with  test  data. 

Further  work  on  the  full  pump  model  defined  input  parameters  and  achieved 
better  test  data  correlation.  The  feasibility  of  incorporating  a  lossless  line 
model  was  studied  and  several  improvements  were  made  to  the  HYTRAN  Program. 

The  above  items  are  discussed  in  the  following  sections. 

2.  HYTRAN  EMPIRICAL  PUMP  MODEL 

The  original  HYTRAN  pump  model  was  written  to  study  pump/system  stability 
under  dynamic  loading  conditions.  The  model  yields  acceptable  correlation  with 
test  data  at  the  expense  of  the  time  required  to  measure  and  derive  pump  design 
parameters  for  the  full  pump  model.  However,  all  the  detailed  data  required 
for  the  HYTRAN  pump  model  is  not  available  from  pump  manufacturer  data  sheets. 
Consequently,  the  HYTRAN  program  user  must  either  disassemble  the  pump  or  ask 
the  supplier  for  the  information.  Oftentimes  the  data  is  proprietary  and  may 
not  be  released  without  a  special  arrangement.  The  entire  process  can  be  slow 
and  cumbersome  for  the  HYTRAN  user.  The  designer  must  guess  at  many  performance 
parameters. 

Two  HYTRAN  empirical  pump  models  have  been  developed  to  overcome  the  HYTRAN 
full  pump  model  detailed  data  requirement.  Input  data  consists  of  parameters 
measured  directly  from  test  data.  Furthermore  two  or  three  standard  systems 
can  be  tested  which  provide  a  spectrum  acceptable  for  covering  present  system  usage. 

The  following  sections  describe  the  pump  models,  the  steady  state  and 
transient  tests,  and  model  correlation  with  test  data.  The  final  section 
presents  a  procedure  outline  for  usage  of  each  empirical  pump  model. 
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a.  Empirical  Pump  Model  Development 

The  first  step  in  developing  a  variable  displacement  pressure  compensated 
hydraulic  pump  empirical  model  was  to  evaluate  tne  data  that  can  readily  be 
obtained  either  from  testing  the  unit  or  from  the  manufacturer's  specification 
sheets.  Steady  state  pump  performance  is  usually  provided  or  can  be  easily 
measured  on  a  test  stand.  Transient  data  should  be  obtained  from  a  circuit 
that  adequately  matches  the  actual  operating  system.  If  this  cannot  be  accomplished, 
knowledge  of  the  pumps  transient  performance  in  various  test  systems  will  pro\ ide 
data  that  can  be  extrapolated  to  the  actual  system* 

A  variable  displacement  pressure  compensated  hydraulic  pump,  responds 
to  variations  in  system  pressure  due  to  load  perturbations.  When  system 
pressure  changes  from  the  pumps  compensator  setting,  a  change  in  pump  output 
flow  results.  The  approach  taken  in  developing  the  HYTRAN  empirical  pump  model 

was  to  establish  an  algorithm  that  computes  pump  flows  given  a  change  in  system 
pressure. 

Because  of  the  program  constraints  many  of  the  parameters  used  to  describe 
the  complex  pump/system  interaction  cannot  be  measured  directly  but  must  be  inferred 
from  test  data.  The  pump  transient  response  program  can  be  simplified  by  considering 
only  pressure  side  dynamics.  The  HYTRAN  program  further  requires  the  pump  model  to 
be  separated  from  the  line  dynamics.  Although  this  simplifies  the  pump  model 
mechanics,  it  complicates  the  problem  of  requiring  the  model  to  define  the  pump 
interaction  with  any  system  configuration.  Without  knowledge  of  the  internal  para¬ 
meters  that  define  pump  operation,  the  model  input  parameters  will  change  from 
system  to  system.  This  is  not  necessary  for  the  existing  HYTRAN  pump  model  because 

the  critical  internal  pump  parameters  are  defined  and  the  interrelationships  are 
modeled. 

(1)  Evaluating  Pump  Performance  Data 
Pump  steady  state  performance  in  a  system  can  be  defined  by  several  data 
curves.  Pump  output  values  at  any  speed  is  represented  by  a  flow  -  pressure  curve. 

The  pressure  drop  between  case  and  suction  versus  case  drain  flow  defines 
the  pumps  leakage  characteristics  in  a  particular  system  but  does  not  generally 
define  the  pumps  internal  leakage  flows  from  outlet  to  case.  This  leakage  value  could 
be  obtained  from  the  flow  pressure  curve.  The  case  flow  is  then  subtracted 
from  the  total  leakage  for  the  leakage  flow  bark  to  the  inlet. 
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Pumps  are  typically  designed  to  operate  with  a  minimum  inlet  pressure  to 
preclude  cavitation  and  subsequent  erosion  of  critical  pumping  surfaces.  Below 
the  minimum  inlet  pressure  pump  outlet  flow  decreases  linearly  with  the  inlet 
pressure. 

Figure  1  presents  a  typical  variable  displacement  pressure  compensated 
performance  curve.  The  boundaries  of  the  curve  are  defined  by  measured  values 
which  determine  the  operating  characteristics.  When  system  pressure  rises  due 
to  a  load,  the  pump  output  flow  remains  constant  until  the  pressure  reaches  the 
pressure  setting  of  the  compensator  valve  spring.  A  further  increase  in  system 
pressure  moves  the  compensator  valve  spool  and  ports  flow  to  the  hanger  actuating 
cylinder.  The  velocity  of  the  hanger  is  therefore'  proportional  to  the  position 
of  the  compensator  valve.  The  rate  of  pump  flow  reduction  varies  with  the  pressure 
overshoots.  The  hanger  angle  is  reduced  until  the  steady  state  flow  is  compatible 
with  the  regulated  system  pressure  which  the  pump  is  designed  to  provide.  The 
regulated  system  pressure  is  defined  in  terms  of  a  bandwidth  as  shown  in  Figure  1. 

The  flat  cut-off  compensator  holds  a  nearly  constant  pressure  under  all  steady 
state  conditions.  Faster  response  speed  with  less  overshoot  can  be  achieved  with 
the  flat  cut-off  type  pump. 

Normally  the  pump  cannot  maintain  an  entirely  flat  characteristic.  A  3  to  5% 
variation  in  outlet  pressure  does  take  place.  The  bandwidth  occurs  because  of 
pump  leakage  past  the  hanger  actuating  cylinder  requiring  larger  supply  pressures 
to  provide  enough  flow  to  maintain  hanger  position  and  pump  control  valve  leakage. 
Figure  1  shows  that  at  the  lower  flow  rates  (smaller  hanger  angle)  the  supply 
pressure  is  greater.  Therefore,  the  actuator  leakage  is  larger  with  more 

actuator  displacement.  ( 

.  1 

When  the  load  is  decreased,  system  pressure  falls  and  the  hanger  spring  will 
move  the  hanger  to  increase  pump  outlet  flow.  Sufficient  flow  will  be  provided 
until  a  pressure  in  the  cut-off  band  is  reached. 
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RQ  -  Rated  outlet  flow 

QT  ■  Total  flow  (rated  flow  +  leakage  flow) 
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POF  •  Rated  pressure  (zero  flow) 

RRPM  -  Rated  RPM 
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FIGURE  1  VARIABLE  DISPLACEMENT  PRESSURE  COMPENSATED 
PUMP  OPERATING  CHARACTISTICS 


Pump  leakage  paths  to  case  are  generally  long  and  can  be  treated  as  a 
linear  function  with  pressure.  Then  the  leakage  flow  gradient  is  the  slope  of 
the  flow  versus  pressure  curve  for  a  pressure  value  less  than  or  equal  to  the 
minimum  regulated  value. 

Since  pump  output  flow  is  directly  proportional  to  pump  speed,  other 
speeds  will  be  parallel  to  the  rated  RPM  curve  of  the  pump.  This  is  illustrated 
in  Figure  1  by  the  dashed  lines  at  50%  and  25%  of  rated  pump  speed. 

The  pump  is  a  highly  underdamped  servomechanism  whose  transient  response 
is  dependent  on  many  pump  and  system  parameters.  The  block  diagram  in  Figure  2 
illustrates  the  interdependency  of  the  pump  and  system.  The  pump  provides  flow  for 
the  system  load.  When  the  load  flow  changes,  so  does  system  pressure.  The 
perturbations  in  line  pressure  are  sensed  by  the  pump  and  the  pump  outlet  flow  is 
adjusted.  The  change  in  flow  depends  on  how  far  the  line  pressure  is  away  from  a 
reference  value  set  in  the  pump. 


7 


\ 


FIGURE  2  PUMP/SYSTEM  BLOCK  DIAGRAM 


Pump  transient  performance  depends  on  factors  which  are  critical  to  pump/system 
stability.  To  isolate  pump  effects  from  system  effects  in  a  test  stand  is  a 
difficult  task  when  critical  pump  parameters  are  not  monitored  during  the  transient. 
The  first  task  is  to  list  the  measurable  pump/system  parameters  and  evaluate  the 
information  they  can  provide. 

Pump  port  pressures  are  easily  measured  and  g’ve  e  time  history  of  pump  and 
system  Interaction  due  to  a  load  change.  An  opening  or  closing  valve  generates  a 
step  input  into  the  system  which  results  in  the  classic  waterhammer  wave.  For  a 
line  3y3tem 
response  to 

Where 

c  * 

1  - 

f  - 


with  a  reservoir  at  one  end  and  a  valve  at  the  other  the  pressure 
a  valve  input  will  oscillate  at  a  frequency  defined  by  equation  (1) 


c 

sr 


(i) 


speed  of  sound  in  fluid  (in/sec) 
line  length  (in) 
oscillation  frequency 
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Equation  (1)  can  only  be  used  If  the  valve  closes  in  less  than  the  critical 
closing  time  (t  ). 

^  /  A  V 


When  a  pump  replaces  the  reservoir  in  the  line/valve  system,  the  frequency  (f) 
is  altered.  The  difference  is  due  to  pump  system  interaction.  The  pump  effects 
to  the  pressure  signal  can  be  readily  observed.  However,  if  the  valve  closing 
time  is  greater  than  t^,  return  system  dynamics  further  complicate  the  data 
reduction. 

For  a  particular  system  configuration,  time  constants  can  be  measured  resulting 
from  turn-on  and  turn-off  transients  at  various  pump  flow  rates.  The  time  constants 
reflect  viscous  line  dissipation,  fluid  bulk  modulus  effects,  line  frictional 
losses,  and  pump  response. 

The  mechanical  torque  can  be  measured  and  converted  to  hydraulic  power.  Torque 
can  provide  an  approximation  to  pump  flow  response  for  turn-off  transients  and  turn-on 
transients  less  than  full  flow.  (No  accurate  rate  information  can  be  obtained  unless 
hanger  position  is  known) . 

The  control  flow  rate  depends  on  the  difference  in  pressure  from  the  set  point. 
The  hanger  actuator  Integrates  the  flow  so  the  actuator  velocity  is  proportional 
to  the  error  in  pressure.  Consequently  the  rate  of  change  of  flow  varies  with  input 
pressure. 

Pump  case  pressure  and  inlet  pressure  will  mirror  hanger  response.  No  rate 
data  can  be  obtained  from  the  inlet  pressure  because  of  interference  from  return 
system  dynamics  and  the  usually  noisy  suction  pressure  signal  measurements. 

Control  pressure  would  provide  better  rate  information. 

Pump  transient  response  is  influenced  by  hydraulic  system  characteristics  and 
the  pump  responds  to  pressure  and  not  flow.  Pressure  builds  up  or  decays  as  a 
function  of  pump  displacement,  system  volume  and  system  impedance.  Actual  pressure 
recovery  of  the  system  resulting  from  changes  in  flow  demand  depend  on  system 
constants  and  pump  characteristics.  It  is  not  possible  to  stipulate  the  response 
of  a  pump  in  a  system  unless  all  these  constants  are  known  or  can  be  determined 
by  testing. 

(2)  Algorithm  Development 

Pump  mathematical  models  assume  many  forms.  A  particular  modal  is  usually 
written  to  fit  a  set  of  conditions.  The  simplest  rodel  typically  requires 
parameters  integral  to  pump  design  as  control  valve  gain,  pump  flow  gain,  and 
internal  leakage  characteristics.  Becauaa  the  information  on  any  pump  is  limited 
to  pressure  end  torque  data  in  various  systems,  the  empirical  pump  model  by 
design  Must  be  kept  simple. 


In  deriving  Che  simplified  model,  inherent  physical  properties  of  the  pump 
must  be  ignored.  Non-linearities  and  distributed  parameters  which  are  present 
in  the  real  pump  must  be  estimated  by  a  linear  lumped  parameter  model.  This  will 
result  in  ordinary  differential  equations  which  contain  constant  coefficients. 

To  describe  the  input  and  output  relationship  of  the  pump  a  transfer  function 
can  be  developed.  The  transfer  function  concept  only  applies  to  linear  time 
invariant  systems. 

A  simple  transfer  function  for  the  pump  in  Figure  3  relates  the  Laplace 
transform  of  the  pump  outlet  flow  to  the  Laplace  transform  of  system  pressure. 
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FIGURE  3  SIMPLE  PUMP  TRANSFER  FUNCTION  BLOCK  DIAGRAM 


The  transfer  function  if  written  as: 

G(8)  “  (3> 

and  is  a  property  of  the  pump  itself,  independent  of  the  input  driving  function. 
The  Laplace  transform  technique  allows  the  pump  internal  dynamics  to  be  repre¬ 
sented  by  algebraic  equations  in  the  S-Place.  The  highest  power  of  s  in  the 
denominator  of  the  transfer  function  determines  the  highest  derivative  or 
system  order. 
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An  equivalent  block  diagram  of  the  pump  and  load  system  is  shown  in  Figure  A. 
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FIGURE  4  PUMP  AND  LOAD  SYSTEM  BLOCK  DIAGRAM 


The  C,  be;  represents  the  description  of  the  line  end  load  dynamics.  The  c 
function  describes  the  pump  operation.  The  HYTRAN  program  simulates  the  entire 
system.  The  line  and  load  dynamics  are  interrelated  through  the  yalve  and  line 
models.  The  pump  model  closes  the  loop  in  the  simulation.  The  task  is  to  write 
a  transfer  function  to  adequately  predict  the  pump  response  in  any  system. 

The  line  and  load  dynamics  are  in  the  same  loop  as  the  pump.  Any  p„„p 
outlet  pressure  and  outlet  flow  data  obtained  in  a  test  stand  would  result  in 
a  transfer  function  defining  the  pump,  closed  loop  characteristics.  Deriving 
the  transfer  function  would  be  a  detailed  task.  The  input  forcing  function 
is  a  complicated  pressure  function,  snd  the  torque  measurement  can  only  provide 
some  degree  of  flow  response  without  knowing  the  actual  flows. 

A  step  response  to  the  closed  loop  system  is  provided  by  a  control  valve 
with  an  operating  time  less  than  tc.  If  th.  line  volume  is  sufficiently  ...11 
the  line  characteristic,  can  be  Ignored.  A„  approximation  the  pumps  response 
With  a  constant  in  the  feedback  loop  can  be  measured. 
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Two  empirical  pump  models  were  written.  The  first  model  represents  a 
first  order  system  that  describes  the  pump/system  dynamics  interaction.  The 
other  model  relies  on  a  second  order  relationship  to  define  the  pump/system 
transients. 

(a)  First  Order  Pump  Model 

A  pump/system  flow  model  was  written  assuming  a  linearized  system  where 
variable  changes  are  kept  small.  The  pump  flow  minus  the  load  flow  in  a  small 
time  interval  dt  is  equal  to  the  change  in  pressure  times  the  change  in  stored 
fluid  necessary  to  cause  a  unit  change  in  pressure.  A  differential  expression 
is  written  as 


(Q.  -Q  ,)dt  -  C  dP 
xin  ^out 


(4) 


Where 


2 

A  -  Line  Area  (in  ) 

£  ■  Line  Length  (in) 
g  -  Fluid  Bulk  Modulus  (PSI) 
Qin  •  Pump  Flow  (CIS) 

Q  -  Load  Flow  (CIS) 

\>ut 


P  ■  System  Pressure  (PSI) 

The  system  provides  a  resistance  to  the  flow  Q 
relationship  between  QQUt  and  P  is 

Q  -  £ 

%ut  R 


out 


at  pressure  P.  The 


(5) 


If  R  and  C  are  constant,  a  differential  equation  for  a  fluid  flow  system,  combining 
equations  (4)  and  (5) ,  is 

RC  «  +  P  ■  K  Qln  <« 

Taking  the  Laplace  transform  of  Equation  (6)  assuming  zero  initial  conditions  yields 

RCs  P(s)  +  P(s)  -  R  Qln(s)  (7) 

If  is  the  input  and  P  the  output  the  system  transfer  function  is 


P(s) 

QlN(a) 


-  R 


(8) 


RCs+l 

However,  the  outlet  pressure  can  be  described  in  terms  of  system  resistance 
(equation  (!■)).  The  transfer  function  is  then 


Qout<»> 

*in<8> 


RCs+l 


(9) 
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The  Input  flow  can  be  described  by  the  pressure/flow  characteristics  of  the 
pump.  The  output  flow  will  be  a  first  order  response.  A  simplified  block 
diagram  is  shown  in  Figure  5. 
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FIGURE  5  FIRST  ORDER  PUMP/SYSTEM  BLOCK  DIAGRAM 


A  unit  step  response  can  be  used  to  simulate  a  valve  closure  in  a  hydraulic 
system.  The  Laplace  transform  of  the  unit-step  function  is  i/s.  Substituting 
Qin<8)  ■  l/s  into  equation  (9)  gives 


W8’ 


R.  .C+l 
load 


*  i 


(10) 


Expanding  into  partial  fractions  and  setting  T  -  R,  ,C 

load 


<W8) 


i 

s 


T 

Tin 


The  inverse  Laplace  transform  of  (11)  yields 

-t/T 


Qout(t)  * 


1  -  e 


(11) 

(12) 


When  t  is  equal  to  T,  Qout(t)  is  equal  to  .632  or  the  response  Qout(t)  has 
reached  63. 2Z  of  its  final  value  at  time  T. 

T  is  called  the  time  constant  of  the  system.  The  smaller  the  time 
constant,  the  faster  the  system  response.  It  can  be  easily  shown  that  after 
four  time  constants  the  response  curve  is  within  2%  of  the  final  value. 


The  first  order  flow  response  can  provide  adequate  predictions  of  pump 
flow  in  systems  where  the  flow  response  is  less  than  30  HZ.  The  system  response 
tlae  can  be  used  to  approximate  the  flow  response. 
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The  transfer  function  in  equation  (9)  can  be  used  to  build  a  HYTRAN 
pump  model.  A  block  diagram  of  the  model  is  shown  in  Figure  6. 
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FIGURE  6  HYTRAN  FIRST  ORDER  EMPIRICAL  PUMP  MODEL 


System  line  pressure  is  used  to  determine  pump  outlet  flow  from  the  steady 
state  pressure/flow  characteristics.  The  flow  (QPUMP)  then  passes  through  the 
first  order  response  network.  The  resulting  pump  flow  (QQUt)  is  combined  with 
the  line  dynamics  to  compute  a  pump  outlet  pressure.  The  pressure  is  passed  through 
a  filter  circuit  with  a  small  time  constant  to  eliminate  any  high  frequency  pressure 
spikes.  The  pump  outlet  pressure  and  flow  is  combined  with  the  pump  operating  RPM 
to  obtain  a  torque  value.  If  the  calculation  time  interval  is  sufficiently  small, 
the  model  can  provide  a  good  approximation  of  pump  flow  and  pressure  performance 
in  a  system. 


14 


(b)  Second  Order  Pump  Model 

A  block  diagram  of  a  second  order  system  is  shown  In  Figure  7. 


FIGURE  7  SECOND  ORDER  BLOCK  DIAGRAM 


The  closed  loop  transfer  function  can  be  written 

R(s) 


Ru) 


*  +  Z  f  <4*  +>  ♦  ^ 


The  dynamic  behavior  of  a  second  order  system  can  be  described  in  terms  of 
two  parameters.  o»n  -  the  system  natural  frequency  and,  (  -  the  damping  coefficient. 
If  C  is  between  0  and  1  the  closed  loop  poles  are  complex  conjugates  and  lie 
in  the  left  hand  s  plane.  The  damping  rate  depends  on  how  far  the  poles  lie  from 
the  real  axis. 


If  R(s)  is  a  unit  step  input,  equation  (13)  can  be  written 


Cu)  - 


Z{  uJ^+ 

Equation  (14)  can  be  expanded  as 


(14) 


r,  \  -  V  4-  2  fu>«,  &  t  u)*  -  4-  2  f  uju  ) 

C  -f  2  ^  4  ^ )  (a/) 


(15) 
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Defining 


U> 


>:  -  ( v  -  n 


Equation  (15)  can  further  be  reduced 
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A/  + 


u)  = 


ifuJU 


£  ^ 


(16) 


Taking  the  Laplace  transform  of  equation  (16)  yields 


qjt  +  ttm 


<1J> 


♦ 


Where  t  >  0 

When  5  is  equal  to  zero,  the  response  is  undamped  and  the  oscillation  continues 
indefinitely.  A  damping  coefficient  greater  than  or  equal  to  one  results 
in  an  undefined  response.  Equation  (17)  can  be  approximated  and  solved  for  the 
critically  (C-l)  and  overdamped  cases  (C>1).  The  response  is  similar  to  that 
of  a  first  order  system. 

Equation  (17)  is  used  to  compute  the  time  response  of  the  pump  outlet 

flow. 

In  the  derivation  of  the  second  order  response  it  is  assumed  that  the 
transient  control  valve  operation  can  be  approximated  by  a  step  input,  and 
the  valve  completely  closes  off  the  line.  This  is  usually  not  the  case  in. 
practical  hydraulic  design.  Oil  leaks  past  the  valve  and  energy  dissipation 
rises.  The  net  result  are  changes  in  the  effective  natural  frequency  and 
damping  of  the  system.  The  effect  on  frequency  is  considerable  and  that  on 
damping  can  be  by  a  factor  of  ten.  Calculations  of  system  performance  for  one 
operating  condition  in  a  system  may  be  in  error  for  other  conditions.  This  is 
due  mainly  to  the  non-linearity  of  fluid  power  systems  and  the  care  in  selecting 
system  variables  cannot  be  overemphasized. 

The  second  order  model  more  closely  emulates  the  mechanical  action  of  the 
pump  than  the  hypothetical  first  order  model.  Variable  displacement  pumps  usually 
incorporate  a  control  valve,  which  strokes  a  piston,  that  moves  the  pump  hanger, 
changing  the  output  flowrate.  All  these  functions  including  the  feedback  pressure 
can  be  broken  down  into  individual  functions,  then  pieced  together  to  form  a 
model. 

The  pump  controlling  compensator  valve  will  initially  sense  a  change  in  system 
pressure.  A  definite  lag  time  is  involved  until  the  compensator  starts  to  move  and 
ports  fluid  to  or  from  the  hanger  actuator.  The  response  of  the  control  spool  is 
important  for  it  controls  the  rate  at  which  the  hanger  will  respond  and  eventually 
dampen  to  a  final  flow  value.  The  delay  time  can  be  easily  measured  as  the 
time  the  output  pressure  changes  to  the  time  that  the  torque  changes. 

The  control  spool  position  and  the  hanger  actuator  position  can  be  related 
through  a  second  order  response.  The  actuator  position  is  integrated  to  obtain 
a  velocity  which  moves  the  hanger  to  a  pump  flow.  The  flow  reacts  with  the 
system  pressure  providing  a  feedback  through  the  compensator  network. 
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In  the  pump  model  the  second  order  response  was  used  to  simulate  the 
control  spool  and  hanger  dynamics.  The  transfer  function  output  was  multiplied 
by  a  proportional  controller  to  obtain  the  outlet  flow.  Feedback  to  the 
second  order  transfer  function  was  provided  by  outlet  pressure  referenced 
to  the  final  steady  state  pressure  value. 

Damping  and  frequency  values  for  the  second  order  transfer  function  are 
obtained  from  the  transient  torque  characteristics.  Steady  state  pump  pressure 
flow  characteristics  are  used  to  determine  the  pump  model  final  steady  state 
values. 

A  schematic  diagram  of  the  pump  model  is  found  in  Figure  8.  The  model  has 

no  pressure  feedback  loop  to  the  control  valve.  Once  the  transient  is  started 

the  second  order  function  will  propogate  at  the  selected  natural  frequency  and 

damping  rate.  A  pressure  reference  is  provided  by  the  compressibility  flow 

(Q  ).  The  flow  i3  combined  with  the  pump  outlet  flow  as  a  correction  factor, 
comp 

The  resultant  flow  is  then  solved  with  the  line  boundary  equation  to  obtain  a 
pump  outlet  pressure. 
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FIGURE  8  HYTRAN  SECOND  ORDER  EMPIRICAL  PUMP  MODEL 
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It  was  found  that  the  first  order  model  was  inadequate  in  small  volume 
systems.  A  second  order  function  did  provide  a  stable  response  characteristic. 

b.  Hydraulic  Pump  Tests  and  Test  Set-up 

The  objective  was  to  test  two  variable  displacement  pressure  compensated 
hydraulic  pumps  to  determine  their  steady  state  and  transient  performance  in 
different  systems.  The  testing  would  provide  input  data  for  developing  an 
empirical  pump  model  and  help  verify  the  pump  model. 

Two  pumps  were  tested  in  the  Hydraulic  Performance  Analysis  Facility  (HPAF) , 
a  F-15  hydraulic  pump  (ABEXt  56  GPM  @  4600  RPM,  3050  psi)  and  a  F-4  hydraulic  pump 
(ABGX  -  APlOV-62,25  GPM  @  3250  RPM,  3000  psi).  Each  pump  was  fested  in  three 
different  systems. 

The  basic  configuration  for  the  pump  tests  is  shown  in  Figure  9.  The 
outlet  line  lengths  were  changed  to  provide  three  system  sizes.  The  line  from 
the  reservoir  to  the  pump  inlet  was  25"  long  to  preclude  pump  cavitation  during 
the  transient  and  steady  state  test  series. 

For  the  F-15  pump  tests  the  line  lengths  were  58.5",  452.0"  and  887.75" 
of  l"O.D.  x  .058"  wall  stainless  steel  tubing.  Accounting  for  the-  pump  manifold 
volume,  the  three  test  system  volumes  between  the  pump  outlet  and  transient  load 
valve  were  37.27  in.  ,  278  79  in.3  and  546.23  in.3.  The  F-15  pump  installation 
is  shown  in  Figure  10. 

The  line  lengths  for  the  F-4  pump  tescs  were  51.0",  441.0"  and  876.75"  of 
l"O.D.  x  .058"  wall  stainless  steel  tubing.  System  volumes  between  the  F-4  pump 
and  the  transient  control  valve  were  31.3  in.3,  270.66  in.3  and  538.1  in.3. 

The  F-4  pump  installation  is  shown  in  Figure  11. 

The  transient  valve  was  a  Marotta  Valve  Corporation,  0-3000  psi,  2  way  -2 
position  solenoid  operated  shut-off  valve  (P/N  205883-1).  The  unit  had  3/8"  ports 
with  a  maximum  flow  rate  of  110  CIS  at  3000  psi.  The  valve  operating  time  was • 
approximately  10  milliseconds  for  turn-off  transients  and  up  to  30  milliseconds 
for  turn-on  transients. 

The  F-15  Jet  Fuel  Start  (JFS)  Accumulator  had  a  shut-off  valve  on  the  inlet 
and  a  plugged  return  line.  The  gas  precharge  pressure  was  1500  psig.  Figure  12 
shows  the  installation  for  the  JFS  Accululator,  transient  control  valve,  and  bypass 
line  which  provided  a  system  steady  state  leakage  flow. 

MIL-H-5606C  hydraulic  fluid  was  used  in  the  test  set-up.  The  dissolved 
air  content  of  the  fluid  was  typically  12X  by  volume. 
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FIGURE  11  F-4  HYDRAULIC  PUMP  INSTALLATION 


The  following  parameters  were  measured  from  the  test  stand: 

PUMP  OUTLET  PRESSURE  (PI) 

PUMP  OUTLET  FLOW  (Ql)  -  STEADY  STATE  ONLY 
PUMP  CASE  PRESSURE  (P2) 

PUMP  CASE  FLOW  (Q2)  -  STEADY  STATE  ONLY 
PUMP  INLET  PRESSURE  (P3) 

RESERVOIR  PRESSURE  (P7) 

TRANSIENT  CONTROL  VALVE  PRESSURE  (P4) 

BYPASS  FLOW  (Q3) 

DOWNSTREAM  LOAD  VALVE  PRESSURE  (P5) 

TRANSIENT  CONTROL  VALVE  CURRENT  (XV) 

JFS  ACCUMULATOR  PISTON  POSITION  (XPOS) 

JFS  ACCUMULATOR  OIL  PRESSURE  (P8) 

JFS  ACCUMULATOR  GAS  PRESSURE  (P9) 

DRIVE  TORQUE  (DT) 

NOTE:  The  Instrumentation  locations  in  Figures  9,  10,  11  and  12  will  be 
referred  to  by  the  parameter  number  as  listed  above  throughout  the  remainder 
of  the  HYTRAN  Empirical  Pump  sections.  We  suggest  the  reader  make  a  copy  of 
the  system  schematic  in  Figure  9  for  further  reference. 

Pump  characteristics  and  performance  are  specified  to  be  compatible  with 
the  aircraft  hydraulic  system.  Because  each  pump  is  designed  to  operate  in  a 
particular  system,  it  was  necessary  to  determine  whether  a  unit  was  stable  in 
the  test  system.  Stability  refers  to  the  freedom  from  oscillation  of  the 
delivery  control  compensator  mechanism.  All  pumps  tinder  test  operating  conditions 
must  recover  steady  state  operation  after  initial  response  to  a  change  in  flow 
demand  and  have  a  steady  operation  down  to  1000  RPM. 

Prior  to  transient  testing,  a  search  was  made  for  pulsation  resonances  in 
each  tsst  circuit  to  preclude  damaging  the  system  or  pump.  The  pump  speed  was 
varied  from  1000  to  the  rated  RPM.  Table  1  presents  a  list  of  acceptable 
pump  operating  speeds  based  on  the  frequency  sweeps. 
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TABLE  1  PUMP  OPERATING  SPEEDS 


PUMP 


SYSTEM  VOLUME  SPEED  NOTES 

-  UN3)  (RPM)  _ 


P-15 


278. 


3750  200  psi  p-p 

pulsations 
(400  psl  p-p 
@  4600  RPM) 


P-15 


546. 


3750  210  psi  p-p 

pulsations 


P-15 


1950  2Q0  pgi  p-p 

pulsations 
compensator 
was  unstable 
above  2400  RPM 
(1000  psi  p-p 
@  2400  RPM) 


F-4 


31.3 


3750  No  stability 

problems  in  the 
short  system 


270.6  3750 

p”*  538.1  3750 
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The  £lrst  system  investigated  had  a  278  in  volume.  On  tha  test  stand 
the  F-15  instrumented  pump  case  pressure  was  about  60  psig  with  77  CIS  outlet 
flow  and  53  psig  reservoir  pressure.  System  leakage  of  2.0  CIS  wai  provided  by 
a  bypass  line  around  the  transient  control  valve  (Figure  9) . 

Generating  a  turn-off  transient  either  with  a  hand  valve  or  the  transient 
solenoid  valve,  caused  the  pump  compensator  spool  to  oscillate.  Pump  outlet 
pressures  would  vary  ±  200  psi.  Raising  the  bypass  leakage  flow  to  14  CIS  would 
stop  the  oscillations,  but  the  higher  flow  rate  was  not  desirable  because  of  the  re¬ 
duced  pump  hanger  response.  The  leakage  flow  was  reset  to  2.0  CIS  and  the  case 
pressure  was  increased  to  85  psig  by  a  hand  valve  in  the  case  drain  line.  The 
compensator  oscillations  would  dampen  within  two  seconds  for  turn-off  transients. 
Increasing  the  bypass  flow  or  case  pressure  would  decrease  the  turn-off  transient 
damping  time.  Varying  pump  rpm  would  also  affect  the  pump  stability. 

Several  other  F-15  pumps  were  tried  in  the  test  circuit.  They  exhibited 
the  same  operating  characteristics. 

For  a  turn-off  transient,  the  pump  actuator  must  stroke  the  hanger  to  the 
minimum  flow  condition.  The  oil  to  fill  the  actuator  comes  from  the  system. 
Consequently,  system  dynamics  are  an  integral  part  of  the  pump  response. 

Another  key  factor  for  pump  stability  is  case  pressure  which  acts  on  the  barrel, 
hanger  and  actuator.  Increasing  the  case  pressure  improved  the  damping  character¬ 
istics.  Higher  case  pressure  reduced  case  outlet  flow  and  increased  the  leakage 
flow  back  to  the  inlet.  The  resultant  higher  inlet  pressure  can  contribute  to 
better  dynamic  pump  stability.  Raising  the  case  pressure  above  85  psig  did  not 
appreciably  change  the  pump  damping  characteristics. 

No  stability  problems  were  encountered  for  turn-on  transients.  The  system 
dynamics  are  essentially  isolated  from  the  pump  actuator  through  the  compensator 
valve.  The  actuator  flow  dumps  directly  to  case  as  the  pump  is  destroking  to  the 
selected  flowrate. 

When  the  load  flow  is  zero  the  pumps  pressure-flow  leakage  will  increase  the 
pump/system  loop  gain  and  the  line  time  constant.  At  rated  flow  the  line  pressure 
flow  curve  will  decrease  the  pump/system  loop  gain  and  line  time  constant. 

3 

The  transient  test  series  on  the  278  in  system  was  completed  with  2.0  cis 
outlet  flow  and  85  pi'lg  pump  case  pressure.  During  steady  state  testing  the  F-15 
instrumented  pump  falltd.  The  pump  was  running  at  215.6  cis  and  rated  rpm  (4600) 
with  reservoir  pressure  a,"  55  psig.  The  pump  speed  was  increased  to  4800  rpm. 
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Pump  outlet  flow  was  approximately  223  els  when  the  speed  was  decreased  to  4600  rpm 
the  case  pressure  began  to  oscillate  between  75  and  300  paig.  The  pump  speed  was 
reduced  to  2300  rpm  and  the  case  pressure  stabilized  at  125  psig.  The  main  flow 
control  valve  on  the  pump  outlet  was  closed  In  an  attempt  to  reduce  the  pump 
outlet  flow.  As  the  flow  decreased  the  case  temperature  rose  to  260°F  In  less  than 
one  minute.  The  drive  was  then  shut  off. 

The  pump  was  allowed  to  cool  to  180°F  before  a  restart  was  attempted.  On  re¬ 
start  the  pump  shaft  sheared.  The  pump  was  removed  from  the  test  stand  and  dis¬ 
assembled.  The  oil  in  the  pump  was  blackened  and  contained  many  bronze  particles  as 
shown  on  the  sleeve  bearing  in  Figure  13.  The  bronze  lands  on  the  bottom  of  the 
piston  shoes  (Figure  14)  were  completely  gone.  The  wear  plate  in  Figure  15  was 
pitted,  scarred,  and  blackened  from  excessive  heating.  Despite  the  many  bronze 
particles,  the  remainder  of  the  pump  parts  were  apparently  in  good  condition.  There 
was  cavitation  erosion  on  the  port  plate  (Figure  15)  in  the  decompression  area,  but 
the  silvered  surface  was  intact. 

A  shoe  failure  results  from  the  loss  of  the  hydrodynamic  pressure  balance  pro¬ 
vided  by  a  fluid  film  between  the  shoe  and  the  wear  plate.  Oil  for  the  shoe  enters 
through  a  hole  in  the  center  of  the  piston  shoe  assembly.  Should  the  hole  become 
blocked,  or  the  lands  which  control  the  thrust  loads  on  the  piston  wear  down,  the 
piston  shoe  would  either  lose  the  lubricating  oil  or  cause  an  uneven  pressure 
distribution.  Consequently  the  shoes  would  wipe  against  the  wear  plate.  If  pieces 
of  the  bronze  land  on  the  steel  shoe  were  to  dislodge,  they  would  probably  wedge 
between  the  shoes  and  wear  plate  creating  excessive  friction.  (Some  large  pieces  of 

bronze  were  found  inside  the  pump  case.)  *'  / 

/ 

Excessive  wear  of  the  shoe  lands  coupled  with  the  high  loads  in  the  shoes  caused 
by  the  pump  running  at  maximum  flow  (100  hp) ,  probably  contributed  to  the  uneven 
distribution  and  subsequent  loss  of  the  hydrodynamic  pressure  balance  between  a  shoe 
and  wear  plate.  Once  one  shoe  started  flaking  particles,  the  others  rapidly  followed. 

It  is  doubtful  that  any  foreign  objects  entered  the  pusip  to  cause  the  failure. 

The  test  system  had  lOy  nominal  25y  absolute  filtration.  The  small  particles  from 
the  cavitation  erosion  on  the  port  plate  would  not  be  large  enough  to  block  the  holes 
in  the  piston  shoes.  Excessive  wear  of  the  shoe  lands  at  high  load  conditions  probably 
caused  an  uneven  pressure  distribution  between  the  shoes  and  wear  plate  that  caused  the 
shoes  to  wipe  the  plate  and  lock  up  the  pump.  A  plating  failure  between  the  steel  shoes 
and  bronze  lands  is  another  though  unlikely  possibility. 

The  shoe  and  piston  assembly  had  about  700  hrs  of  operating  time.  When  the  F-15 
instrumented  pump  was  refurnished  only  the  barrel  and  port  plate  were  replaced.  It 
appears  that  after  4  years  of  testing,  the  lands  finally  gave  out. 
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FIGURE  14  F-15  INSTRUMENTED  PUMP  PISTON  SHOES 


amoMi-ai 


FIGURE  16  F-16  INSTRUMENTED  PUMP  PAR'S 
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MCAIR  was  able  to  obtain  a  new  hanger  shoe  and  piston  assembly  from  Abex. 

The  un5 K  arrived  on  18  April  1979.  After  sufficient  break- In  time  the  tests 

3 

were  resumed.  The  steady  state  tests  were  completed  and  the  546  in  system 
was  assembled.  With  the  start  of  transient  testing  .problems  were  encountered 
with  the  hanger  LVDT  on  the  F-15  instrumented  pump. 

The  LVDT  core  is  attached  to  a  rod  which  passes  through  a  cylindrical 
barrel  and  rests  on  the  pump  hanger.  The  rod  and  barrel  form  a  lap  fitting 
between  the  case  oil  and  atmosphere.  The  rod  had  worn  with  use  creating 

,  i 

a  large  leakage  path  from  the  pump  case.  The  rod  wear  pattern  was  elliptical 
allowing  it  to  wobble  *Ln  the  fitting.  Whenever  the  hanger  stroked,  the 
rod  stuck  in  the  cylindrical  barrel.  The  rod  was  removed  and  polished  with  an 
emory  cloth  several  times,  but  it  would  still  bind  in  the  fully  retracted 
position.  The  entire  rod  and  barrel  assembly  needed  to  be  reworked.  This  could 
not  be  accomplished  within  the  allotted  test  period,  so  testing  continued  without 
the  hanger  LVDT. 

3 

Midway  through  the  transient  test  series  with  the  546  in  system,  the  F-15 
instrumented  pump  exhibited  abnormally  high  torque  values.  The  pump  was  removed 
from  the  HPAF  and  disassembled.  A  1/8"  dia  bronze  flake  was  found  under  the 
barrel.  Several  bronze  particles  and  a  steel  sliver  (3/32"  long)  were  also  dis¬ 
covered. 

Contract  budget  limitations  prohibited  the  rebuilding  of  the  F-15  instrumented 
pump.  MCAIR  recommends  that  the  entire  unit  be  shipped  to  Abex  for  refurbishment. 

An  F-15  iron  bird  pump  was  used  to  finish  the  empirical  pump  test  on  the 

3  3 

546  in  system  and  37  in  system. 

3 

An  Abex  F-4  pump  (AP10V-62)  was  tested  in  31,  270  and  538  in  systems 
without  any  problems. 

HYTRAN  empirical  pump  model  verification  tests  were  completed  on  31  May  1979. 

(1)  Drive  Torque  Correlation  with  Hanger  Position 

When  a  sudden  load  change  causes  system  pressure  to  vary  from  the  regulated 
pump  output  pressure,  the  pump  must  adjust  the  output  flow  to  meet  the  new  load 
condition.  The  time  elapsed  during  the  pressure  change  is  a  measure  of  the 
dynamic  response  of  the  pump  and  system.  The  response  depends  on  system  com¬ 
pressibility,  load  resistance,  pump  speed  and  hanger  rate. 
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The  F-15  instrumented  pump  failed  early  in  the  empirical  pump  test  program. 
The  hanger  position  was  lost.  Fortunately  the  drive  torque  is 

able  to  provide  a  reasonable  approximation  to  the  hanger  response. 

An  ideal  hydraulic  pump  has  a  mechanical  power  output  of 

HP  =  T  *  N  (18) 

out 

Where 

T  ■  Drive  Torque  (in- lb) 

N  ■  Pump  shaft  speed  (Rad/Sec) 

The  hydraulic  power  is  defined  as 

HP .  -  P  *  Q  (19) 

in 

Where 

P  =  Pump  Pressure  Rise  (PSI) 

Q  =  Pump  Outlet  Flow  (CIS) 

The  overall  efficiency  is  defined  as  the  ratio  of  actual  horsepower  output 
to  the  hydraulic  power  output. 

HFIJT  F*<7  (Z0) 

Where  “  overall  efficiency 

The  overall  efficiency  of  most  aircraft  hydraulic  pumps  usually  exceeds 
85%  at  rated  operating  conditions.  The  overall  efficiency  is  the  product 
of  the  volumetric  and  mechanical  efficiencies.  The  volumetric  efficiency  is 
the  ratio  of  the  ideal  pump  flow  to  the  actual  output  flow, and  the  mechanical 
efficiency  is  the  ratio  of  actual  to  ideal  pump  torque. 

The  steady  state  equation  (20)  shows  the  Influence  of  pump  output  pressure 
and  flow  on  drive  torque.  When  a  system  load  is  applied,  pressure,  flow, 
torque,  and  overall  efficiency  will  change.  With  an  adequate  drive  system, 
pump  speed  will  remain  constant.  Assuming  that  the  efficiency  will  remain  constant 
equation  (20)  can  be  solved  for  torque  with  pressure  and  flow  the  independent 
variables. 
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The  torque  value  in  equation  (21)  depends  on  the  sensitivity  of  the  pressure 
and  flow  variables.  For  a  typical  hydraulic  transient,  pump  outlet  flow  will 
percentage  wise  vary  more  than  the  system  pressure.  For  a  turn-off  transient 
in  a  279  in  system,  pump  outlet  pressure  transiently  reaches  3700  psi.  The 
approximate  transient  flow  is  30  CIS.  The  change  in  pressure  was  22%  above  the 
steady  state  level.  The  change  in  flow  was  38%  of  rated  flow  at  the  operating 
RPM.  Consequently,  the  larger  percentage  change  in  flow  will  affect  the  torque 
calculation  and  therefore  the  shape  of  the  torque  curve.  However,  this  does 
not  apply  whenever  more  system  flow  is  being  demanded  than  the  pump  can  physically 
deliver.  For  this  case,  the  hanger  spring  will  hold  the  hanger  at  maximum  flow 
until  system  pressure  comes  within  the  regualtion  range  of  the  compensator.  Except 
for  a  delay  caused  by  the  outlet  pressures  acting  on  the  compensator  valve,  which 
dumps  actuator  pressure  to  case,  and  allows  the  spring  to  stoke  the  hanger;  the 
initial  hanger  response  rate  resembles  pump  outlet  pressure. 

The  hanger  position  was  measured  during  transient  tests  with  the  F-15 
instrumented  pump.  As  reported  in  References  (1)  and  (2),  a  LVDT  was  used  to 
track  the  hanger  motion.  The  hanger  position  was  able  to  show  the  damping 

characteristics  of  the  pump/system  and  pimp  flow  response  to  system  flow  demand. 

3 

A  plot  of  drive  torque  versus  time  for  a  turn-off  transient  in  a  235  in 
system  with  77.0  CIS  steady  state  flow  is  shown  in  Figure  16.  The  recorded 
hanger  position  superimposed  on  the  graph  illustrates  the  phase  relationship 
between  the  two  measured  signals. 

The  torque  measurement  by  Itself  cannot  yield  transient  pump  outlet  flow 
values.  The  torque  exhibits  pump  frictional  and  inertia  effects  not  part 
of  the  generated  hydraulic  power.  The  initial  transient  torque  spike  reaches 
780  in-lbs  in  Figure  16.  The  hanger  position  is  at  77.0  CIS  pump  outlet  flow 
and  the  pump  outlet  pressure  is  3550  psi.  The  pump  flow  would  be  over  100  CIS 
to  generate  the  780  in-lb  torque.  For  a  turn-off  transient  the'  flow  will  not  be 
above  steady  state  levels  at  the  pump.  Consequently  the  initial  spike  may  be 
due  to  pump  barrel  rotational  inertia. 

The  torque  instrumentation  relies  on  strain  gages  to  provide  torque  values 
in  a  bandwidth  from  DC  to  900  HE.  A  125  HZ  wave  is  superimposed  on  the  basic 
16  HZ  frequency  on  the  torque  signal  in  Figure  16.  Much  of  this  is  attributable 
to  pump  frictional  and  inertia  effects. 
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Figure  17  shows  the  relation  between  hanger  position  and  pump  outlet  pressure 
3 

in  a  235  in  volume.  There  is  a  .004  sec  delay  between  the  rise  of  the  pressure 
signal  and  the  start  of  the  transient  on  the  hanger. 

The  hanger  position  and  case  pressure  in  Figure  18  indicate  better  phase 
correlation.  The  inlet  pressure  overplotted  with  the  hanger  position  is  shown 
in  Figure  19  .  The  initial  pressure  transient  response  matches  the  exact  time 
of  the  hanger  response  but  subsequent  inlet  system  dynamics  interf-er  with  the 
inlet  pressure  signal, 

Overplots  of  hanger  position  on  drive  torque,  pump  outlet  pressure,  case 
pressure  and  pump  inlet  pressure  are  shown  in  Figures  20  through  23  for 

3 

a  turn-on  transient  in  a  235  in  system.  The  hanger  phasing  shows  best  correlation 
with  the  drive  torque.  If  the  hanger  position  in  Figure  21  were  shifted  so 
that  the  minimum  position  matched  the  pressure  minimum,  the  pressure  outlet 
responses  would  match  the  hanger  response.  This  is  not  surprising  since  the 
pump  must  respond  to  the  flow  demanded  by  the  system  during  this  period. 

In  genetal  the  torque  measurement  can  provide  a  reasonable  time  history 
of  pump  hanger  response.  Given  a  plot  of  hanger  position  versus  time  one  can 
roughly  estimate  hanger  response  times  from  the  torque  curve.  However,  without 
direct  hanger  position  as  a  comparison,  the  hanger  rate  can  only  be  estimated  if 
the  pump  should  stroke  between  maximum  and  zero  flow  for  a  turn-off  transient. 

This  gives  a  beginning  and  ending  point  that  can  be  converted  to  displacement 
with  the  proper  hanger  geometry.  Turn-on  transients  at  maximum  flow  conditions 
cannot  track  hanger  position  in  the  torque  output  because  of  the  hanger  spring 
contribution. 

One  must  be  cautioned  against  using  these  hanger  rates  as  pure  pump  response. 
System  size  and  fluid  properties  play  an  intricate  role  not  easily  separated 
from  the  punp  dynamics.  Pump  flow  response  time  can  be  defined  based  on  a  low 
volume  system  but  the  time  will  change  as  the  system  is  modified.  Test  data 

3 

with  the  F-15  pump  in  a  37. in  system  shows  the  torque  reaching  a  peak  value 

3 

for  a  turn-on  transient  in  .02  sec,  .034  seconds  in  a  279  in  system,  and  .052  sec 

3 

in  a  546  in  system.  The  steady  state  flow  values  were  much  less  than  the  rated 
flow  of  the  pump  so  the  torque  gives  reasonable  initial  hanger  response  rise 
times. 
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Tor  a  high  response  pump,  the  drive  torque  or  hanger  position  can 
provide  a  reasonable  approximation  to  pump  outlet  flow.  Generally  the 
hanger  position  lags  the  actual  flowrate.  When  a  sudden  flow  step  is  applied, 
the  compensator  valve  will  tak*  20  to  SO  msec  to  reach  a  new  position  and 
the  system  pressure  will  initially  drop  and  recover  within  2  to  5  msec 
because  of  the  lead  effect  of  the  compensator  valve.  Figure  24  shows 
typical  transient  response  curves  of  a  pressure  compensated  pump  and 
illustrates  the  relation  between  hanger  position, flow, and  pressure. 


4 


From  previous  pump  testing  (Reference  X) .  it  wee  established  thet 
changes  in  the  suction  pressure  at  the  pump  inlet  are  mirrored  in  the  actuator 
pressure  that  controls  the  hanger  position.  A  graph  of  the  actuator 
pressure  for  a  turn-on  transient  la  shown  in  Figure  25.  The  curve  represents 
a  rate  of  change  in  pump  outlet  flow,  which  can  be  graphically  integrated  to 
obtain  pump  outlet  flow.  The  measured  transient  drive  torque  superimposed 
on  the  graph  mirrors  the  outlet  flowrate.  Consequently  pump  outlet  flow 
response  can  be  approximated  from  the  drive  torque.  The  hanger  position  is 
also  plotted  on  Figure  25  and  illustrates  the  pumps  high  response  rate. 

Figure  26  shows  the  same  correlation  for  a  turn-off  transient. 

(2)  Steady  State  Testing 

Pump  performance  is  defined  at  the  rated  RPM  which  is  located  on  every 
pump  nameplate.  Included  with  the  rated  RPM  are  the  rated  delivery  at  the 
maximum  full  flow  pressure  and  the  rated  discharge  pressure.  The  pump  steady 
state  performance  can  be  determined  by  varying  the  load  flow  to  obtain  the 
controlled  curve  and  then  reducing  the  system  back  pressure  to  define  the, 
leakage  curve. 
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Data  Run  65A03+ 


» 


Time 


oertMti-is 

FIGURE  26  RUN  65A03  TURN  OFF  TRANSIENT  DATA  COMPARISON 
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3 

Steady  state  tests  for  the  7-15  end  P-4  pumps  were  run  on  the  278  in 
itnd  ?70  in3  volumes  respectively.  The  transient  control  valve  in  Figure  9 
wee  removed  from  the  teet  stand  for  better  control  of  system  flow  and  back 
pressure  with  a  load  valve. 

Test  runs  were  made  at  25.  50  and  1002  pump  rated  RPM.  Pump  outlet  temper¬ 
ature  was  150*7  and  the  7-4  bootstrap  reservoir  was  sat  at  55  pslg. 

Plots  of  steady  state  outlet  flow  versus  outlet  pressure  at  1100.  2300  and 
4600  RPM  for  the  7-15  hydraulic  pump  are  shown  in  Figures  27.  28  and  29. 

The  case  drain  pressure  versus  flow  plots  in  Figures  30.  31  and  32  were 

made  at  the  pumps  maximum  compensated  flow  for  1100.  2300  and  4600  RPM.  The  plots 

were  generated  by  recording  both  case  flow  and  case  pressure  while  closing  a  hand 

valve  in  the  case  drain  line.  The  case  drain  plots  are  a  reflection  of  the  test 
system  circuit  effects  on  the  leakage  characteristics  of  the  pump. 

Plots  of  pump  outlet  flow  versus  pressure  and  case  drain  pressure  versus 
flow  for  the  F-4  pump  are  shown  in  Figures  33  through  38. 

(3)  Transient  Testing 

Pump  dynamic  performance  cannot  be  separated  from  system  dynamics.  The 
response  of  the  pump  control  system  is  not  only  determined  by  compensator 
characteristics  but  also  by  fluid  bulk  modulus  and  fluid  volume  under  compression. 
These  two  factors  will  significantly  alter  the  stability  of  the  pump  and  its 
response  to  load  pertubations.  Consequently,  three  different  volume  systems 
were  tested  to  measure  pump/system  response.  An  accumulator  was  added  to  the 
line  system  to  measure  the  pump  response  to  the  extra  Inertia  provided  by  the 
accumulator  piston.  A  listing  of  the  transient  test  runs  with  the  F-15  and  F-4 

hydraulic  pumps  is  presented  in  Table  2. 

,  3 

(a;  F-15  Pump  Transient  Testing  37.27  in  System 

Pump  speed  was  limited  to  1950  ftPM  because  of  compensator  Instability  in  the 

3 

37  in  system.  For  a  10  CIS  turn-off  transient  the  pump  outlet  pressure  did 
oscillate  after  the  load  valve  closed  as  shown  in  Figure  39.  The  pump  outlet 
pressure  for  the  turn-on  transient  was  more  stable  (Figure  40) . 

At  50  CIS  steady  state  flow  the  turn-off  transient  pump  outlet  pressure 
(Figure  41)  does  dampen  out. 

Recorded  test  data  for  turn-off  and  turn-on  transients  at  77  CIS  steady  state 
flow  are  shown  in  Figures  42  and  43.  The  pump  inlet  transducer  (P2)  was  a  Klstler 
Piezo-Electric  Model  205  HZ.  The  transducer  instrumentation  outputs  an  electrical 
signal  proportional  to  the  oscillatory  pressures.  The  transducer  has  the  ability 
to  record  steady  state  values  but  because  of  the  transducer  sensitivity  to  temperature 
variations,  these  values  will  drift.  Consequently  the  Y  axis  of  the  P2  trace  in 
Figure  42  reflects  the  magnitude  of  the  pressure  pulsations. 
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FIGURE  32  f-is  inst  pump 
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FIGURE  37  f-a  hyd  pump 

STEADY  STATE 
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TABLE  2  HYTRAN  EMPIRICAL  PUMP  MODEL  TRANSIENT  VERIFICATION  TESTS 


F-15  HYDRAULIC  PUMP 

STEADY  STATE  PUMP 

FLOW  (CIS)  SPEED 

LOW  HIGH  (RPM) 

RESEPV01R 

PRESSURE 

(PSIG) 

CASE 
PRESSURE 
(PS 10) 

CASE  • 

FLOW 

(CIS) 

PUMP 

OUTLET  TEMP 

CP) 

SYSTEM 

VOLUME 

(INS) 

RUM  HUMBER 

1.9 

10.0 

3750. 

55.0 

85. 

4.47 

149. 

270.79 

100-1-  1 

2.0 

10.0 

3750. 

i:.o 

83. 

4.62  ' 

1S4. 

ii 

100-1+ 

2.0 

50.0 

3750. 

53.0 

85. 

3.85 

151 

ti 

100-2- 

2.0 

50.0 

3750. 

57.0 

83. 

4.67 

150 

M 

100-2+ 

2.C 

77.0 

3750. 

50.0 

83 

3.40 

150 

M 

100A3- 

2.0 

77.0 

3750. 

54. S 

85 

4.80 

148 

tl 

100A3+ 

2.0 

107.0 

3750. 

55.0 

85 

4.01 

15S 

It 

100-4- 

2.0 

107.0 

3750. 

J4.0 

85 

4.53 

152 

•t 

100-4+ 

2.0 

77.0 

3750. 

53.5 

83. 

3.72 

155 

H  2 

100-5- 

2.0 

77.0 

3750. 

54.5 

85. 

4.83 

155 

•t  2 

.100-5+ 

2.0 

108.0 

3750. 

54.5 

86. 

3.76 

151 

m  2 

100-6- 

2.0 

108.0 

3750. 

55.0 

85. 

4.86 

154 

••  2 

100-6+ 

2.0 

50.0 

3750. 

56.0 

82. 

2.70 

153 

546.23 

102-1- 

2.0 

50.0 

3750, 

50.0 

85. 

3.30 

156 

•f 

102-1+ 

2.0 

100.0 

3750. 

56.0 

77. 

2,20 

153 

it 

102-2- 

2.0 

100.0 

3750. 

50.0 

83. 

3.40 

147 

it 

102-2+ 

2.0 

117.6 

3750. 

57.0 

77. 

1.66 

150 

ii 

102-3- 

2.0 

117.0 

3750. 

51.0 

85. 

3.62 

155 

n 

102-3+ 

2.0 

117.0 

3750. 

55.0 

77. 

1.88 

151 

»s  2 

102-4- 

2.0 

117.0 

3750. 

50.0 

85. 

3.58 

148 

it  2 

102-4+ 

2.0 

100.0 

3/50. 

52.0 

75. 

1  96 

147 

it  2 

102-5- 

2.0 

10C.0 

3750. 

53.0 

81. 

3.31 

150 

ii  2 

102-5+ 

2.0 

50.0 

3750. 

51.0 

84. 

3.00 

150 

ii  2 

102-6- 

2.0 

50.0 

3750. 

50.0 

86. 

3.39 

143 

H  2 

102-6+ 

2.0 

10 

1950. 

57. 

58. 

2.31 

93 

37.27 

103-1- 

2.0 

10 

2950. 

58. 

58. 

2.38 

102 

*» 

103-1+ 

2.0 

50 

1950. 

58. 

61. 

1.38 

110 

i* 

103-2- 

2.0 

50 

1950. 

54. 

56. 

2.54 

115 

it 

103-2+ 

2.0 

77 

1950. 

55. 

61. 

1.38 

112 

ii 

103-3- 

2.0 

77 

1930. 

54. 

56. 

2.54 

105 

H 

103-3+ 

2.0 

95 

1950. 

55. 

65. 

1.65 

110 

11 

103-4- 

2.0 

95 

1950. 

54. 

55. 

2.65 

112 

11 

9 

103-4+ 

2.0 

95 

1950. 

54. 

63. 

1.54 

109 

M  * 

9 

103-5- 

2.0 

95 

1950. 

50. 

30. 

2.50 

110 

fi  2 

103  5+ 

2.0 

77 

1950. 

53. 

60. 

1.27 

105 

it  2 

103-6- 

2.0 

7' 

1950. 

50. 

30. 

2.46 

UO 

«i  2 

9 

103-6+ 

2.0 

50 

1950. 

50. 

54. 

1.34 

ICO 

IP  A 

9 

103-7- 

2.0 

50 

1950. 

50. 

50. 

2.38 

102 

It  * 

103-7+ 

P-4  HYDRAULIC  PUMP 

2.0 

1C 

3750. 

58. 

61. 

3.20 

108 

31.3 

104-1- 

2.0 

10 

3750. 

54. 

56. 

3.2  V 

111 

II 

104-1+ 

2.0 

50 

3’ 50. 

58. 

S3. 

3.04 

113 

H 

104-2- 

2.0 

SU 

3750. 

54. 

36. 

J.3S 

107 

M 

104-2+ 

2.0 

77 

3750. 

58. 

67. 

2.92 

110 

II 

104-3- 

2.0 

77 

3750. 

54. 

56. 

3.46 

109 

It 

104-3+ 

2.0 

104 

3750. 

59. 

72. 

2.77 

110 

II 

104-4- 

2.0 

104 

3750. 

55. 

56. 

3.38 

107 

M 

9 

104-4+ 

U 

104 

3750. 

a. 

69. 

3.83 

104 

H  • 

104-5- 

2.0 

104 

3750. 

so. 

54. 

4.13 

1C6 

ii  * 

9 

V04-5+ 

2.0 

77 

3750. 

SS. 

66. 

3.63 

108 

H  ‘ 

104-6- 

2.0 

77 

1750. 

50. 

33. 

3.73 

108 

11  « 

104-6+ 

1  -  DEHOTBS  TURK -Off  TRANSIENT 
4-  DENOTES  TURN-ON  TRANSIENT 

2  RUNS  WITH  JfS  ACCUMULATOR  IN  THE  SYSTEM 
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TABLE  2  (CONT.)  HYTRAN  EMPIRICAL  PUMP  MC^EL  VERIFICATION  TESTS 


F-4  HYDRAULIC  pump 

STEADY  STATE 

FLOW  (CIS) 

LOW  HIGH 

PUMP 

SPEED 

(RPM) 

RESERVOIR 

PRESSURE 

(PSIG) 

CASE 

PRESSURE 

(PSIG) 

CASE 

PLOW 

<CIS) 

PUMP 

OUTLET  TEMP 

CP) 

SYSTEM 

VOLUME 

(IN3) 

RUN 

NUMBER 

2.0 

66 

3750. 

51. 

57. 

2.38 

98 

31.3  l 

104-7- 

2.0 

66 

3750. 

51. 

52. 

2.96 

108 

I*  2 

9 

104-7+ 

2.0 

JO 

3750. 

52. 

56. 

2.69 

98 

II  2 

9 

104-8- 

2.0 

50 

3750. 

51. 

52. 

2.96 

107 

II  * 

104-8+ 

2.0 

10 

3750. 

53. 

56. 

4.07 

149 

538.1 

105-1- 

2.0 

10 

3750. 

53. 

56. 

3.94 

156 

ii 

105-1+ 

2.0 

50 

3750. 

56. 

61. 

3.21 

159 

•i 

105-2- 

2.0 

50 

3750. 

53. 

56. 

3.77 

161 

ti 

105-2+ 

2.0 

77 

3750. 

58. 

64. 

3.42 

151 

if 

105-3- 

2.0 

77 

3750. 

53. 

SO . 

3.82 

149 

ii 

105-3+ 

2.0 

106 

3750. 

58. 

64. 

3.42 

145 

it 

105-4- 

2.0 

104 

3750. 

53. 

56. 

4.02 

148 

it 

9 

105-4+ 

2.0 

104 

3750. 

50. 

61. 

3.50 

146 

•i  2 

105-5- 

2.0 

104 

3750. 

49. 

50. 

3.62 

144 

M  2 

105-5+ 

2.0 

77 

3750. 

53. 

61. 

3.68 

147 

ii  2 

105-6- 

2.0 

77 

3750. 

50. 

51. 

3.78 

145 

II  2 

105-6+ 

2.0 

10 

3750. 

55. 

55. 

3.86 

157 

>70.66 

106-1- 

2.0 

10 

3750. 

54. 

56. 

3.64 

158 

ii 

106-1+ 

2.0 

50 

3750. 

59. 

69. 

3.20 

150 

ii 

106-2- 

2.0 

50 

3750. 

55. 

56. 

3.62 

150 

ii 

106-2+ 

2.0 

77 

3750. 

55. 

61. 

3.60 

156 

ii 

106-3- 

2.0 

77 

3750. 

54. 

56. 

3.62 

155 

•i 

106-3+ 

2.0 

104 

3750. 

54. 

66. 

3.94 

148 

•i 

106-4- 

2.0 

104 

3750. 

54. 

56. 

3.78 

153 

it 

9 

106-4+ 

2.0 

104 

3750. 

52. 

63. 

4.14 

153 

•i  2 

9 

106-5- 

2.0 

104 

3750. 

51. 

52. 

3.98 

153 

If  * 

9 

106-5+ 

2.0 

77 

3750. 

55. 

64. 

4.10 

146 

H  2 

9 

106-6- 

2.0 

77 

3750. 

50. 

53 

4.18 

151 

ii  2 

106-6+ 
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FIGURE  39  f--  15  hyd  pump 

103-1 -PI  TURN-OFF  TRANSIENT 
10  CIS  100  F 


FIGURE  40  f-is  hyd  pump 

103-1+P1  TURN-ON  TRANSIENT 
10  CIS  100  F 


FIGURE  41  F-1S  HYD  PUMP 

103-2-P)  TURN-OFF  TRANSIENT 
S0  CIS  100  F 


5 


onco-fl  z«  mactnuKna-o 


51 


FIGURE  42  (CONTINUED) 
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F-  IS  HYD  PUMP 
L03-3+P3  TURN-ON  TRANSIENT 
77  CIS  100  F 
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F— 15  HYD  PUMP 
103-3+P4  TURN-ON  TRANSIENT 
77  CIS  100  F 


F- 15  HYD  PUMP 
103-3+P7  TURN-ON  TRANSIENT 
77  CIS  100  F 


F- 15  HYD  TUMP 
103-3+DT  TURN-ON  TRANSIENT 
77  CIS  100  F 


FIGURE  43  F-15  HYDRAULIC  PUMP  103-3  TURN-ON  TRANSIENT,  77  CIS,  IOO°F 


53 


The  steady  state  value  was  close  to  the  reservoir  pressure  (P7) . 

To  obtain  an  inlet  pressure,  take  the  steady  state  pressure  level  then  add 
or  subtract  the  pulsation  magnitude  of  P2  depending  on  the  direction 
of  the  pressure  spike. 

The  pump  outlet  pressure  for  the  turn-on  transient  in  Figure  43  dropped 

3 

to  2000  pst  in  the  37  in  system.  The  pump  was  operating  at  42%  of  its  rated 
RPM. 

3 

When  the  JFS  Accumulator  was  added  to  the  37  in  system,  the  pump  outlet 

pressure  did  not  fall  below  2900  psi  (Figure  44)  for  a  turn-on  transient. 

Accumulator  oil  and  gas  pressure  and  piston  position  are  presented  in  Figure 

45,  for  a  turn-off  transient  at  77  CIS  pump  outlet  flow.  The  pump  outlet 

pressure  PI  did  not  rise  above  3450  psi. 

3  3 

The  JFS  Accumulator  has  a  140  in  maximum  oil  volume  and  70  in  min  gas 
volume.  The  piston  area  on  the  oil  side  is  18.892  in2  with  an  8  inch  total  stroke. 
For  the  turn-on  transient  the  piston  moved  0.1"  and  displaced  1.88  in'*  of  oil. 

The  absence  of  a  large  load  on  the  test  stand  prohibited  a  good  transient 

3 

study  of  the  accumulator  in  the  37  in  system. 

3 

(b)  F-15  Pump  Transient  Testing  278.79  in  System 

Turn-on  and  turn-off  transients  were  run  for  10,  50,  77  and  107.8  CIS 
steady  state  pump  outlet  flows.  The  pump  outlet  (PI)  case  drain  (P3)  and  inlet 
(P2)  pressures  for  a  77.  CIS  turn-off  transient  are  shown  in  Figure  46. 

The  hanger  position  (XH)  was  obtained  before  the  F— 15  instrumented  pump  failed. 

The  transient  pressure  (P4)  trace  next  to  the  load  valve  is  shown  in  Figure  46. 

The  PI,  P4  and  XH  parameters  for  the  turn-on  transient  at  77  CIS  are  shown  in 
Figure  47. 

The  accumulator  was  added  to  the  system  and  runs  were  made  at  77.  and  107.8 
CIS  steady  state  pump  flows.  The  results  for  the  turn-off  and  turn-on  transients 
at  77  CIS  are  presented  in  Figures  48  and  49.  The  pump  outlet  pressure  dropped 
to  2500  psi  for  the  turn-on  transient  without  the  accumulator.  With  the 
accumulator  in  the  circuit  2900  psi  was  the  minimum  pressure. 

(c)  F-15  Pump  Transient  Testing  546.23  in3  System 

Turn-off  and  turn-on  transients  were  run  in  the  546  in3  system  for  50, 

100  and  117  CIS  steady  state  flow  rates.  Transient  data  for  the  turn-off  and 
turn-on  runs  are  presented  in  Figures  50  and  51.  Figures  52  and  53  present  the 
transient  test  results  when  the  JFS  accumulator  was  added  to  the  test  circuit. 
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3 

(d)  F-4  Pump  Transient  Testing  31.3  in  System 

Transient  test  runs  were  made  at.  10,  50,  77  and  104  CIS  pump  steady  state 

flows  with  and  without  the  JFS  accumulator  in  the  test  system.  Results  for 

the  77  CIS  turn-off  and  turn-on  transients  are  presented  in  Figures  54  and  55. 

When  the  accumulator  was  added,  the  data  in  Figures  56  and  57  resulted. 

3 

(e)  F-4  Pump  Transient  Testing  270.66  in  System 

Turn-on  and  turn-off  transient  runs  were  made  for  steady  state  flows  of 
10,  50,  77  and  104  CIS.  Transient  test  results  for  the  77  CIS  flowrate  are 
shown  on  Figures  58  and  59.  The  same  steady  state  flow  runs  with  the  JFS 
accumulator  are  presented  in  Figures  60  and  61. 

3 

(f)  F-4  Pump  Transient  Testing  538.1  in  System 

Turn-off  and  turn-on  transients  were  run  with  the  F-4  pump  at  steady  state 
flows  of  10,  50,  77  and  104  CIS.  Test  data  for  the  104  CIS  run  are  shown  in 
Figures  62  and  63.  Test  data  with  the  accumulator  added  to  the  test  circuit 
are  presented  in  Figures  64  and  65. 

The  test  system  load  was  not  large  enough  to  show  significant  changes 
in  the  JFS  accumulator  gas  and  oil  pressures  and  piston  position.  The  fluid 
inertance  effects  could  not  be  determined.  The  change  in  pressure  between 
the  line  and  accumulator  were  rapid  and  small  in  magnitude.  The  rate  of 
change  in  flow  as  measured  by  differentiating  the  piston  position  was  also 
rapid.  When  the  pressure  change  is  applied  too  quickly,  compressibility 
effects  cannot  be  ignored  and  the  flowrate  is  not  uniform.  Consequently, 
transient  accumulator  performance  was  not  simulated  with  the  empirical  pump 
models. 
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FIGURE  62  F-4  HYDRAULIC  PUMP  105-4  TURN-OFF  TRANSIENT,  104  CIS,  145"F 
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c.  Empirical  Pump  Model  Usage  and  Correlation 

The  application  of  any  empirical  pump  model  depends  on  the  amount  of  design 
and  test  data  available  on  the  pump/system  to  be  simulated.  An  empirical 
pump  model  of  a  specific  unit  must  be  verified  over  a  wide  range  of  test 
conditions  for  it  to  be  useful  in  other  applications. 

(1)  First  Order  Pump  Model 

Data  provided  from  previous  pump  testing  was  used  during  the  initial 
development  of  the  empirical  pump  models.  The  first  order  flow  model  gave 
good  initial  correlation  with  the  test  data. 

The  test  system  consisted  of  an  F-15  hydraulic  pump  with  a  1"  x  .058"  wall 
x  39 3"  long  stainless  steel  line  terminated  by  a  transient  control  valve. 

The  pump  steady  state  input  data  was  obtained  from  the  test  data  presented 
in  AFAPL-TR-77-63. 

The  following  Information  is  required  input  data  for  the  first  order  pump 
flow  model: 

Pump  Speed  4000  RPM 

Pump  Rated  Speed  4600  RPM 

Pump  Flow  @  Rated  Speed  225  CIS 

Pressure  @  Zero  Flow  2953.  PSIA 

Pressure  @  Full  Flow  2720.  PSIA 

First  Order  Time  Constant  .04  SEC  (turn-off) 

Case  Flow  at  Rated  Flow  and 

Pressure  4  CIS 

The  first  order  time  constant  was  derived  from  the  hanger  response  curve 
in  Figure  66.  The  time  for  the  hanger  to  oscillate  one  cycle  is  .064  seconds. 

During  the  time  It  is  assumed  that  the  hanger  will  reach  53.2%  of  its  final  value 
in  .064  *  .632  or  .040  seconds.  The  exponential  function  reaches  63.2%  of  its 
final  value  in  one  time  period  so  .040  is  the  first  order  time  constant. 
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FIGURE  66  F-  IS  HYDRAULIC  PUMP 

65A03-XH  TURN-OFF  TRANSIENT 
77  CIS  L30  F 


A  HYTRAN  system  was  assembled  to  simulate  the  turn-off  transient  at  77  CIS 
steady  state  flow  and  130°F.  The  HYTRAN  system  schematic  is  in  Figure  67. 

The  HYTRAN  input  data  file  is  in  Table  3.  The  type  57  component  is  the  empirical 
pump.  The  type  23  valve  is  identical  to  the  type  21.  The  final  steady  state 
flow  was  2.0  CIS.  The  HYTRAN  computed  pump  pressure  is  shown  in  Figure  68. 

The  test  data  for  this  run  is  plotted  over  the  computer  Results.  The  computed 
results  indicate  good  correlation  with  the  test  data.  Superimposed  on  the 
computed  pressure  wave  is  a  higher  frequency  pressure  signal.  The  signal  has 
a  period  of  .015  seconds.  This  corresponds  to  the  time  required  for  the  pressure 
signal  to  traverse  the  tube  and  return  to  its  starting  point.  From  Table  3  the 
velocity  of  sound  in  the  line  is  52325  in/sec  and  the  line  length  is  393.25  in. 
The  time  for  a  pressure  signal  to  leave  the  pump  be  reflected  at  the  valve  and 
return  to  the  pump  is 


2£  2(393.25) 

c  “  52325 


-  .015  sec 


(22) 


The  line  model  dynamic  friction  does  not  significantly  dissipate  the  high 
frequency  signal •  and  the  pump  model  is  incapable  of  absorbing  the  pressure  energy. 

To  eliminate  the  pressure  spikes  a  mathematical  filter  was  added  to  the  pump 
model.  The  time  constant  was  set  to  .002  sec  and  the  HYTRAN  simulation  was  rerun. 
Plots  of  pump  outlet  pressure  and  flow  are  shown  in  Figures  69  and  70.  The  measured 
pump  outlet  pressure  is  overplotted  with  the  computed  results.  The  effects  of  a 
higher  filter  time  constant  (t  ■  .004)  is  shown  in  Figure  71  for  a  turn-off  transient 
run.  Selecting  larger  values  can  cause  Instability. 
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TABLE  3  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  65A03  TURN-OFF  TRANSIENT 
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Next  a  tum-on  transient  was  tried  In  the  same  system.  The  initial  steady  state 
flow  rate  was  2.0  CIS  at  130°F  fluid  temperature. 

The  first  order  time  constant  was  determined  from  the  hanger  position  in  Figure  72 
using  a  slightly  larger  time  base. 

T  -  .094  *  .632  -  .06  sec 


ihis  ?ag£  y  TO  l&Q  — 

noM  cost 
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FIGURE  68  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03-P1  TRANSIENT  SIMULATION 


FIGURE  69  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03-P1  TRANSIENT  SIMULATION  WITH 

.002  FILTER  TIME  CONSTANT 
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FIGURE  71  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03-P1  TRANSIENT 
SIMULATION  WITH  .004  FILTER  TIME  CONSTANT 
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Another  method  for  obtaining  the  first  time  constant  is  by  applying 
equation  (9).  From  equation  (9)  the  time  constant  equals  RC.  The  hydraulic 
equivalent  of  resistance  and  capacitance  can  be  expressed  as 


A1 

"  6 


(23) 

(24) 


where 

P  =  system  pressure  change  across  the  load  (psi) 

Q  «  system  flow  change  (CIS) 

2 

A  =  line  flow  area  (in  ) 

1  =>  line  length  (in) 

3  »  fluid  bulk  modulus  (psi) 

For  the  test  system  the  pressure  across  the  load  went  from  3000  psi  to  100  psi. 
The  flow  rate  was  77.0  CIS,  and  the  fluid  bulk  modulus  was  223000  psi. 

Substituting  the  appropriate  values 


R 


3000-100 

77 


-  38 


psi 

cis 


C  -  (.6137)093) 

223000 


.001082 


The  system  time  constant  is 

T  .  38  -Efi  *  .001082  ^7 
cis  psi 


.041  sec 


100 


« 


The  time  constant  is  larger  at  zero  load  flow,  which  means  that  the 
oscillation  frequency  and  pressure  gain  will  be  lower. 

The  transient  response  is  faster  and  more  oscillatory  for  full  flow  to  zero 
flow  (turn-off  transient)  because  of  the  higher  gain  and  frequency 
response  of  the  pump/system  at  rated  pump  flows. 

A  HYTRAN  computer  program  turn-on  transient  was  run  using  the  .06 
sec  time  constant.  The  results  of  the  simulation  shown  in  Figure  73  show  a  large 
error  between  the  computed  and  measured  data.  A  look  at  the  pump  inlet  pressure 
in  Figure  74  shows  the  pump  cavitating  transiently  for  approximately  .03  seconds. 
The  cavitation  time  was  used  to  arrive  at  a  new  time  constant  for  the  simulation. 

The  HYTRAN  input  data  for  the  turn-on  transient  run  with  the  .03  sec  time  con¬ 
stant  is  in  Table  4.  The  results  of  the  simulation  are  shown  on  Figure  75,  76  and 
77.  Figure  76  is  the  pump  outlet  flow  which  resembles  the  hanger  response. 

Several  HYTRAN  computer  runs  were  made  with  the  empirical  pump  test  data. 

Table  5  presents  the  HYTRAN  input  data  for  a  turn-on  transient  with  the  F-15 

3 

hydraulic  pump  in  a  280  in  system.  The  steady  state  input  data  was  determined 
from  figure  29.  The  first  order  pump  model  was  used  so  the  time  constant  was 
evaluated  from  Figure  78.  The  time  period  for  a  hanger  cycle  is  .09  seconds.  The 
time  constant  is  .09  *  .632  or  .057  seconds.  The  computed  outlet  pressure  and  flow 
are  shown  in  Figures  79  and  80.  The  pump  outlet  pressure  data  is  overplotted  on 
the  HYTRAN  output. 

The  transient  valve  closing  rates  were  determined  from  the  P4  and  P5  (Figure  9) 
pressure  transducers  located  on  either  side  of  the  valve. 

A  turn-off  transient  run  was  simulated  in  the  280  in'*  system.  The  initial 
steady  state  flow  was  77.0  CIS.  The  hanger  response  curve  is  shown  in  Figure  81. 

The  HYTRAN  data  file  is  shown  in  Table  6.  The  computed  pump  outlet  pressure  and 
pressure  at  the  control  valve  are  overplotted  with  test  data  in  Figures  82  and  83. 
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77  CIS  L 30  F 


FIGURE  73  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03+P1 
TRANS I ENT/ SIMULA! ION  WITH  .057  TIME  CONSTANT 
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TIME  IN  SECONDS 

FIGURE  74  F- 15  HYDRAULIC  PUMP 

BSA03+PS  TURN-ON  TRANSIENT 
77  CIS  130  F 


TABLE  4  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR  TEST  DATA 

RUN  65A03  TURN-ON  TRANSIENT 
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FIGURE  75  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A034-P1 
TRANSIENT/SIMULATION  WITH  .030  TIME  CONSTANT 
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FIGURE  70  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03/PUMP  OUTLET 
FLOW  TRANSIENT  SIMULATION 
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FIGURE  77  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  65A03+P4 
TRANSIENT  SIMULATION 


TABLE  5  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA 
FOR  TEST  DATA  RUN  100-02  TURN-ON  TRANSIENT 


*•**  EMPi»tCAL  PUMP  MODEL  ISO  IN** 3  SYSTEM  100-02+XX  *»**(D1002P) 


.0005 

.5 

.005 

130. 

3 

1 

2 

340 

432. 

1. 

.osa 

■  3E+OE 

40. 

1. 

.058 

.3E-404 

57 

1 

-1 

3730. 

4(00* 

225. 

3143. 

1100. 

.037 

0.8 

.0001 

23 

3 

i 

-2 

4 

.022 

.45 

o. 

.030 

.060 

.3 

.017 

.017 

.4055 

.4033 

61 

l 

2 

100* 

2 

2 

3 

10. 

0 

I 

2  1 

2 

3 

2 

10. 

2 

3 

I 

0 

00 

2 

.10 

••10 

443. 

-443. 

4 

1 

2 

1  It 

t  13 

1  17 

0. 

3000.  3 

9. 

3000. 

105 


TABLE  6  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT 
DATA  FOR  TEST  DATA  RUN  100-02  TURN-OFF 
TRANSIENT 


***«  EMPIRICAL  PUMP  MODEL  280  SYSTM  100-02-XX  »»»»<D1002M) 


2  -I 

4600.  22). 

.001  10. 
)  1  -2 
.6) 


2 

360 

4)2. 

40. 

1. 

1. 

.0)1 

.0)8 

•  3E408 
.3E+08 

22). 

3163. 

3100. 

.030 

8.8 

0.0 

4669.6000  - - — 


1166.6666  ; 


c  t  r  P  e 


DATA  HUM  HO.  IOD-L'  M 


FIGURE  82  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  100-2-Pl 
TRANSIENT  SIMULATION 
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FIGURE  83  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  I00-2-P4 
TRANSIENT  SIMULATION 


Table  7  presents  the  HYTRAN  input  data  file  for  a  turn-on  transient  in  a 
37  in^  system.  The  initial  steady  state  flow  is  2.0  CIS.  The  transient  control 
valve  closing  time  was  approximately  .035  milliseconds.  The  first  carder  time 
constant  was  estimated  at  .030  seconds.  The  pressures  at  the  pump  outlet  and 
before  the  control  valve  are  plotted  over  the  computer  results  in  Figures  84  and 
85.  The  measured  drive  torque  is  shown  in  Figure  86  with  the  HYTRAN  program 
predicted  valve. 

A  turn-off  transient  in  the  same  system  was  attempted.  The  damped  natural 
frequency  of  the  drive  torque  was  approximately  25  HZ.  The  computed  pump  outlet 
pressure  in  Figure  87  continues  to  oscillate  after  the  initial  transient.  The 
first  order  time  constant  is  not  large  enough.  Another  run  was  made  increasing 
the  time  constant  on  the  mathematical  filter  used  to  damoen  the  pressure  to  .01 
seconds.  The  computed  outlet  pressure  in  Figure  88  does  not  reach  the  peak  pressure 
value  of  the  measured  data,  but  the  simulation  is  stable.  The  HYTRAN  input  data 
is  shown  in  Table  8. 
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The  F-4  pump  in  a  538  lnJ  system  was  simulated  with  the  first  order  pump 
model.  The  HYTRAN  input  data  is  shown  in  Table  9.  The  first  order  time  constant 
was  estimated  a  .063  seconds.  The  predicted  pressure  output  in  Figures  89  and  91 
correlate  well  with  the  test  data.  The  computed  pump  outlet  flow  is  in  Figure  90. 

The  turn-off  transient  simulation  input  data  is  in  Table  10.  Since  the 
undamped  natural  frequency  of  the  drive  torque  was  6.172  Hz  the  time  constant 
was  set  to  .1024  seconds.  Figures  92  and  93  show  the  simulated  pump  outlet 
pressure  and  flow.  The  computed  pump  outlet  pressure  matches  the  test  data  for 
the  first  transient  spike  in  Figure  92.  Then  the  computed  data  undershoots  the 
desired  results.  The  remainder  of  the  simulation  correlates  well  with  the  test 
data.  Since  there  is  no  damping  provided  by  the  first  order  response  the  undershoot 
on  the  turn-off  transient  can  be  expected.  A  second  order  simulation  could  provide 
a  much  better  response  prediction.  The  turn-on  transients  do  not  indicate  any 
type  of  undershoot  or  overshoot  becuase  the  system  natural  frequency  becomes  larger 
when  the  valve  is  open. 


TABLE  7  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA 
FOR  TEST  DATA  RUN  103-04  TURN-ON  TRANSIENT 


**••  E1PI1UCAL  PUMP  MODEL  37  IM**3  SYSTEM  103-044XX  *»**(D1034P) 


.0003 

.5 

.005 

100. 

2  3 

1 

1 

2 

360 

58.5 

1. 

.058 

.38408 

2 

40. 

1. 

.058 

.38408 

1  57 

1 

-1 

1950. 

4600. 

225. 

3165. 

3100. 

.030 

8. 8 

.0001 

2  23 

3 

l 

-2 

4 

.022 

.65 

0. 

.050 

.085 

.5 

.017 

.017 

.7356 

.7756 

3  61 

1 

2 

100. 

3  2 

1  1 

2 

3 

10. 

1  1 

0 

l 

2  1 

2  2 

3 

2 

10. 

0  2 

3 

1 

1  3 

1 

00 

2 

1  4 

.01 

-.01 

58.0 

-58.0 

1  4 

1 

2 

1  11 

I  1) 

1  17 

1 

0. 

5000.  3 

0. 

3000. 
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FIGURE  84  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  103-4+P1  TRANSIENT  SIMULATION 


FIGURE  85  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  103-4+P4  TRANSIENT  SIMULATION 
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FIGURE  87  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  103-4-PI  TRANSIENT  SIMULATION 
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FIGURE  88  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  103-4-PI 
TRANSIENT  SIMULATION  WITH  .01  SECOND  FILTER  TIME  CONSTANT 
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TABLE  8  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  103-04  TURN-OFF  TRANSIENT 


****  EMPIRICAL  PUMP  MOHEL  37  IN»»3  SYSTHM  103-34-XX  *»*»(D1034M) 
.00025  .5  .005  100. 

2  3  1 

1  2  360  58.5  1. 

1  40.  1. 

1  57  1-1 

1950.  4600.  275.  3165.  3100.  .032 

2  23  3  1  -2 

.022  .65 

0.  .070  .080  .5 

.7756  .7756  .017  .01? 

3  61  1  2 

100. 

3  2 

1123  10. 

110  12  1 
2  2  3  2  10. 

0  2  3  1 

1  5  0  00  2 

1  4  .01  -.01  58.0  -58.0 

1  4  1  2  1  11  1  13  1  17 

1  0.  5000.  3  0.  5000. 


TABLE  9  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR  TEST 
DATA  RUN  105-4  TURN-ON  TRANSIENT 


**** 

EMPIRICAL 

pump  : 

iODEL 

538 

IN**3  SYSTEM 

105-04+XX 

****(D1054P) 

.001 

l. 

.01 

148. 

2 

l 

3 

l 

2 

360 

876.75 

l. 

.058 

.3E+08 

2 

1 

57 

l 

-l 

40. 

1. 

.058 

• 3E+08 

3750. 

3750. 

106. 

3165. 

3100. 

.063 

3.8 

.0001 

2 

23 

3 

1 

-2 

4 

.022 

.65 

0. 

.050 

.085 

1. 

.or; 

.017 

>8434 

.8434 

3 

61 

1 

2 

100. 

3 

2 

l 

l 

2 

3 

10. 

i 

1 

0 

1 

2 

1 

2 

2 

3 

2 

10. 

0 

2 

3 

l 

l 

5 

l 

00 

2 

1 

4 

.01 

-.01 

876. 

-876. 

1 

4 

1 

2 

1 

U 

1  13 

1  17 

l 

0. 

500C. 

3 

0. 

5000. 

« 


.058  .  3E+08 

.058  .  3E+08 

8.8  .0100 
4 
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FIGURE  89  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  105-4+Pl 
TRANSIENT  SIMULATION 


FIGURE  90  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  105-4 
PUMP  OUTLET  FLOW  TURN-ON  TRANSIENT  SIMULATION 
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FIGURE  91  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  105-4+P4  TRANSIENT  SIMULATION 


TABLE  10  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  105-4  TURN-OFF  TRANSIENT 

****  EMPIRICAL  PUMP  MODEL  538  IS**3  SYSTM  105-04-XX  **»»(D1054M) 

■0003  1.  .01  145. 

2  3  I 

1  2  360  976.75  1.  .058  .3E+08 


» 


The  F-15  pump  was  simulated  by  the  first  order  model  in  a  346  in'3  system.  The 
HYTRAN  input  data  in  Table  11  was  used  to  predict  the  computed  output  pressures  and 
flow  in  Figures  94.  93  and  96.  The  first  order  time  constant  was  estimated  i.s  .030 
seconds  using  the  rise  time  in  the  drive  torque  data  in  Figure  97. 

The  turn-off  simulation  using  the  input  data  of  Table  12  and  the  time  constant 
from  Figure  98  also  shows  the  undershoot  characteristics  in  Figures  99.  100  and  101. 
(2)  Second  Order  Model 

The  first  order  response  will  provide  a  good  approximation  of  the  pump 
characteristics.  In  short  systems  with  fast  transient  control  valves  the  pressure 
oscillation  frequency  can  be  significantly  higher.  A  second  order  function  can 
simulate  the  pump  response. 

The  second  order  pump  flow  model  requires  more  input  data  than  the  first 

order  model,  but  the  data  is  readily  available  from  the  test  results.  The 

following  data  is  required  for  the  second  order  pump  model  for  a  turn-off  transient 
3 

in  a  37  in  system. 

Pump  Speed  -  1950  RPM 

Pump  Rated  Speed  - - -  4600  RPM 

Pump  Flow  (3  Rated  Speed  -  225  CIS 


Pressure  <?  Zero  Flow 
Pressure  @  Full  Flow 


Natural  Frequency  - 

Case  Flow  @  Rated  Flow 
and  Pressure 


Damping  Factor  - 

Final  Steady  State  Flow  - 

Flow  Response  Delay  - 

Pump  and  Pump  Manifold  Volume 


1950  RPM 
4600  RPM 
225  CIS 
3125  PSIA 
3100  PSIA 
150  RAD/SEC 
5  CIS 


2  CIS 
.004  SEC 
10.  IN3 


•  .  -l, 


TABLE  11  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA 
FOR  TEST  DATA  RUN  102-03  TURN-OFF  TRANSIENT 


***•  EMPIRICAL  PUMP  MODEL  546  IM*»1  SYSTEM 


.0005 

.5 

.005 

150. 

!  3 

1 

1 

2 

360 

57 

1  -1 

3750. 

4600. 

225. 

3165. 

23 

3  1 

-2 

.022 

.65 

0. 

.050 

.085 

.5 

.017 

.017 

.9489 

.9489 

61 

1  2 

too. 


3  2 

112  3  10. 

110  12  1 

2  2  3  2  10. 

0  2  3  1 

1  5  0  00 

1  4  .01  -.01 

»  *  1  2  1  11 

1  0.  5000.  3 


88  7. 
13 
0. 


102-0J4XX  ••••(D1023P) 


887.75 

1. 

.058 

.38408 

40. 

1. 

.058 

.  3E+08 

3100. 

•  030 

8.8 

.0001 

4 

-887. 
1  17 

5000. 
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FIGURE  94  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  102-3+Pl  TRANSIENT  SIMULATION 


FIGURE  95  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  102-3  PUMP  OUTLET  FLOW 
TURN-ON  TRANSIENT  SIMULATION 


120 


« 


FIGURE  96  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  102-3+P4  TRANSIENT  SIMULATION 


FIGURE  97  f-is  hyd  pump 

102-3+DT  TURN  ON  TRANSIENT 
117  CIS  155  F 
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TABLE  12  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  102-03  TURN-OFF  TRANSIENT 


'  EMPIRICAL  PUMP  MODEL 

546 

IN**3  SYST01 

102-03-XX  ****(D1023M) 

.0005 

.5 

.005 

150. 

2  3 

t 

l 

2 

360 

867.73  1. 

.058 

2 

40.  1. 

.038 

l  57 

1  -1 

3750. 

4600. 

225. 

3165. 

3100.  .079 

8.8 

2  23 

3  i 

-2 

4 

.022 

.65 

0. 

.060 

.070 

.5 

.9469 

.9489 

.017 

.017 

3  61 

1  2 

100. 

3  2 

l  l 

2  3 

*0. 

Jr  1 

0  1 

2 

1 

2  2 

3  2 

10. 

0  2 

3  l 

t  5 

0  00 

2 

1  4 

.01 

-.01 

867. 

-887. 

I  4 

l  2 

l 

i  1 

1  13 

1  1? 

SHOO. 


0.25 

TIME  IN  SECONDS 

FIGURE  98  fr_l5  hyd  pump 

102-3-DT  TURN-OFF  TRANSIENT 
117  CIS  150  F 
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FIGURE  99  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  102-3-P1  TRANSIENT  SIMULATION 
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FIGURE  100  FIRST  ORDER  EMPIRICAL  PUMP  MODEL  102-3  PUMP  OUTLET  FLOW  TURN-OFF 
TRANSIENT  SIMULATION 
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»»»*  EMPIRICAL  PUMP  MOOXL  37  IN»»3  SYSTM  103-04-XX  .»»»(l>RPUHS7) 


.0003 

.3 

.005 

100. 

2  3 

1 

1 

2 

360 

50.5 

1. 

.030 

*38408 

2 

l  57 

2 

-1 

1 

0 

60. 

1. 

.030 

.  3E408 

1950. 

4600. 

223. 

3163. 

3100. 

130.0 

3.0 

.04 

2.0 

.004 

10. 

2  23 

3 

l 

-2 

4 

.022 

.63 

0. 

.070 

.072 

.3 

.7736 

.7756 

.017 

.017 

3  61 

1 

2 

100. 

3  2 

1  1 

2 

3 

10. 

1  1 

0 

1 

2 

1 

2  2 

3 

2 

10. 

0  2 

3 

1 

1  7 

1 

00 

2 

1  6 

.01 

-.01 

58.0 

-30.0 

1  1 

1 

2 

1 

3 

1  4 

1  5 

1  6 

1  16 

1 

0. 

5000. 

3 

0. 

3000. 
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The  period  of  torque  oscillation  is  estimated  from  Figure  42.  There  are 
approximately  9  oscillations  in  .38  seconds  or  an  average  period  of  .0419  sec 
or  23.80  Hz.  The  natural  damped  circular  frequency  is  149  rad/sec.  The 
settling  time  is  the  time  required  for  the  response  curve  to  reach  and  stay 
within  a  range  of  the  final  value.  The  range  can  be  2%  or  5X  of  the  final 
value.  The  settling  time  is  related  to  the  largest  time  constant  of  the 
system  and  is  a  function  of  the  system  natural  frequency  (u^)  and  damping 
factor  (O.  For  a  given  u>n  and  a  range  of  t,  between  0  and  1,  the  settling 
time  for  a  lightly  damped  system  is  large  compared  to  that  for  a  properly 
damped  system. 

For  an  underdamped  second  order  system  the  transient  response  to  a  unit 
step  is  bounded  by  a  set  of  curves  defined  by  equation  (25). 


i  ±  ( S-y /rrp  ) 


(25) 


The  time  constant  of  these  envelope  curves  is  T  * 


u> 


If  the  5%  tolerance  band 


is  applied  for  the  settling  time,  then  by  applying  equation  (25),  t  is  approxi¬ 
mately  three  times  the  time  constant  or 


3T=  — 


(26) 


The  settling  time  from  the  drive  torque  response  in  Figure  100  is  at  least 
.5  sec.  Also  the  damped  frequency  is  related  to  the  undamped  natural  frequency 
by  equation  (27). 


H i r  ^  J  '  ~  f  ’ 


(27) 


Substituting  the  known  values  into  equations  (26)  and  (27)  results  in  two 
equations  with  unknowns  u>n  and  £.  Making  the  appropriats  substitutions  and 
solving  _ 

;  t 


He.  =  j  /  - 
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5  -  .040 

oj  -  150.  RAD/SEC 
n 

The  flow  response  delay  Is  the  difference  between  the  start  of  the  pump 
outlet  pressure  rise  and  the  first  change  in  drive  torque.  For  the  turn-off 
transient  run  the  value  was  .004  seconds. 

The  input  data  file  is  shown  in  Table  13.  The  computed  pump  outlet 

pressures  and  flow  are  in  Figures  102  and  103.  The  pressure  data  in  Figure  102 

matches  the  computed  data  in  peak  transient  prediction.  The  resulting  pressure 

oscillations  between  the  measured  and  computed  data  have  the  same  frequency. 

The  test  data  changes  frequency  after  the  first  transient  spike  and  is  also 
more  damped.  Another  computer  run  was  made  increasing  the  damping  factor  £,  to 
.  1.  The  predicted  pressure  in  Figure  104  has  the  pressure  magnitudes  more  in 
line  with  the  overplotted  data,  even  though  the  phasing  is  slightly  different. 

A  turn-on  transient  was  simulated  with  the  second  order  flow  model  in  the 

3 

37  ir.  system.  The  HYTRAN  input  data  for  the  simulation  is  shown  in  Table  14. 
The  drive  torque  in  Figure  43  reflects  a  critical  or  overdamped  response  with 
a  C,  >  1.  The  second  order  function  is  invalid  in  this  region.  Therefore  the 
damping  factor  was  set  to  0.9  in  the  simulation.  The  natural  frequency  is  also 
undefined  for  damping  ratios  greater  than  or  equal  to  one,  but  was  computed 
using  the  established  criteria.  The  settling  time  is  .12  sec  but  the  natural 
frequency  cannot  be  found  using  Equation  (27).  Using  Equation  (26)  the 
settling  time  reaches  a  minimum  value  around  £  *  0.68  and  increases  linearly 
for  larger  c  values.  The  discontinuity  arises  because  an  infinitesimal  change 
in  the  value  of  Q  can  cause  a  finite  change  in  the  settling  time.  Using  the 
5%  band  criteria  the  settling  time  for  an  almost  critically  damped  system 
(t,=  .9)  will  be  five  times  the  time  constant  or 

t  -  5T  -  —  (28) 

s  u>  C 
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FIGURE  102  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  103-4-PI 

TRANSIENT  SIMULATION  WITH  .04  DAMPING  FACTOR 


FIGURE  103  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  103-4  PUMP 
OUTLET  FLOW  TURN-OFF  TRANSIENT  SIMULATION 
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FIGURE  104  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  103-4-PI 
TRANSIENT  SIMULATION  WITH  .1  DAMPING  FACTOR 


TABLE  14  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  103-4  TURN-OFF  TRANSIENT 


EMPTRICAl  'P1PJP  MODEL  JT  IS»*J  SYSTEM  103-04+XX  (DRPM57A) 


.0005 

.5 

005 

100. 

2 

1 

3 

1 

2 

360 

5R.5 

1. 

.058 

.3K+08 

2 

1 

57 

7 

-1 

1 

1 

100. 

1. 

.  058 

.3E408 

1950. 

4600. 

225. 

3165. 

3100. 

46.0 

5.0 

.9000 

95.0 

.005 

10. 

2 

23 

3 

l  - 

2 

6 

.022 

.65 

0. 

.050 

.080 

.082 

.105 

.5 

.017 

.017 

7756 

2.000 

.7756 

.7756 

3 

61 

1 

2 

100. 

3 

2 

2 

3 

10. 

1 

0 

1 

2 

1 

2 

3 

2 

10. 

0 

2 

3 

l 

7 

1 

00 

02 

4 

.01 

-.01 

58.0 

-58  0 

1 

1 

2 

1 

3 

1  6 

1  5 

l  6 

1  14 

0. 

5000 

3 

0. 

5000. 
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Applying  equation  (28)  with  the  settling  time  of  .12  seconds  the  undamped 
natural  frequency  is  46.0  RAD/SEC.  The  simulation  results  are  overplotted  with 
test  data  in  Figures  105  and  106. 

3 

A  turn-off  transient  computer  run  was  made  in  a  280  in  system  with  the 

F-15  pump.  The  HYTRAN  data  file  in  Table  15  was  used.  The  natural  frequency 

was  82.45  rad/sec  with  a  damping  factor  of  .072.  Figure  81  was  used  to  obtain 

the  settling  time  and  undamped  natural  frequency.  The  pump  outlet  flow  and 

pressures  are  shown  in  Figure  107  and  108.  The  pressure  at  the  control  valve. 

452"  from  the  pump  is  shown  in  Figure  109. 

A  second  order  pump  model  was  used  to  simulate  a  turn-on  transient  in  a 
3 

538  in  system  using  the  F-4  pump.  The  HYTRAN  input  data  in  Table  16  generated 

the  computed  pressures  and  flows  in  Figures  110,  111  and  112.  The  damping  ratio 

was  set  to  .9  and  the  settling  time  t  >  was  .5  seconds.  The  computed  pressures 

s 

match  well  with  the  test  data. 

3 

A  turn-off  transient  in  the  538  in  system  had  a  natural  frequency  of 
37  RAD/SEC  and  a  damping  ratio  of  .16.  The  damped  natural  frequency  was  measured 
from  Figure  62  as  36.5  RAD/SEC  and  the  settling  time  was  .51  seconds.  The  com¬ 
puted  pump  outlet  pressure  and  flow  are  in  Figures  113,  114  and  115. 
d.  Summary  of  Empirical  Pump  Input  Data  Requirements 

Either  HYTRAN  empirical  pump  model  can  be  used  to  simulate  a  particular 
test.  The  same  input  data  will  not  work  in  a  different  system  unless  the  pro¬ 
grammer  is  aware  of  how  to  vary  the  input  parameters.  Multiple  test  systems 
should  provide  a  better  data  base.  The  designer  can  extrapolate  the  information 
he  measures  to  other  system  designs  and  perhaps  to  other  pumps  of  similar  capacity 
and  response  that  he  is  unable  to  test. 

The  undamped  natural  frequency  of  the  pump  torque  and  hanger  response  are 
important  parameters  for  both  empirical  pump  models. 
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FIGURE  105  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  103-4+P1  TRANSIENT  SIMULATION 


FIGURE  106  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  103-4+P1  TRANSIENT  SIMULATION 
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TABLE  15  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA 
FOR  TEST  DATA  RUN  100-2  TURN-OFF  TRANSIENT 


****  EMPIRICAL  POMP  MODEL  280  IN*«3  SYSTEM  100-02-XX  **»VD1002M) 


.0005 

.5 

.005 

150. 

2  3 

l 

l 

2 

360 

452. 

1  . 

.058 

. 3E+08 

2 

40. 

u 

.058 

.  3E+08 

1  57 

2  -1 

1 

3750. 

4600. 

225. 

3165. 

3100. 

82.45 

8.8 

.0220 

2.0 

.001 

10. 

2  23 

3  1 

-2 

4 

.022 

.65 

o. 

.078 

.083 

.5 

.6244 

.6244 

.017 

.017 

3  61  1  2 

100. 

3  2 

1123  10. 

110  12  1 
2  2  3  2  10. 

0  2  3  1 

1  5  1  00  1 

1  A  .10  -.10  449.  -449. 

1  1  1  2  1  4  1  5  '  6 

1  0.  5000.  3  0.  5000. 


FIGURE  107  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  100-2-PI  TRANSIENT  SIMULATION 
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FIGURE  108  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  100-2  PUMP 
OUTLET  FLOW  TURN-OFF  TRANSIENT  SIMULATION 


FIGURE  109  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  100-2-P4  TRANSIENT  SIMULATION 
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TABLE  16  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR 
TEST  DATA  RUN  105-04  TURN-ON  TRANSIENT 


**»«  EMPIRICAL  PUMP  MODEL  338  111**3  SYRTB8 
•001  1.  .01  US. 

2  3  1 


1 

2 

1  37 
3750. 

104. 

2  23 
022 

0. 

.017 

3  61 

100. 


2  360 

2  -1  1  1 

3730.  106  .  3163. 

.001  J.O 

3  1  -2 

.63 

.030  .OS3  1. 

.0  1  7  .  84  34  .  84  34 

1  2 


1  2 

112  3  10. 

110  12  1 

2  2  3  2  10. 

0  2  3  1 

1  3  1  00 

1  4  .01  -.01 

1  4  1  2  1  11 

1  0.  5000.  3 


876. 

13 

0. 


103-0 4+XX  ****(D1054P) 


876.75 

1. 

.058 

.38*08 

40. 

1. 

.038 

.  3E+08 

3100. 

It. 31 

38 

•  8000 

4 


-876. 
1  17 

3000. 


FIGURE  110  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  105-4+P1  TRANSIENT  SIMULATION 


133 


« 


» 


TABLE  17  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  INPUT  DATA  FOR  TEST 
DATA  RUN  105-04  TURN-OFF  TRANSIENT 


***»  EMPIRICAL  PUMP  MODEL  5J8  IN**3  SYSTtH  103-04-XX  «*«<>(D1034M> 

2 
1 
2 
t 


0.001 

1. 

.01 

143. 

!  3 

1 

2 

360 

876.73 

1. 

.038 

.3(408 

40. 

1. 

.038 

.38408 

37 

2 

-1 

1 

3750. 

3730. 

106. 

3163. 

3100. 

37.0 

3.8 

.1600 

2.0 

.001 

3.0 

23 

3 

1 

-2 

.022 

.63 

0. 

.070 

.083 

1. 

.8434 

.8434 

.017 

.017 

61 

1 

2 

100. 

2 

1 

2 

3 

10. 

1 

0 

l 

2  1 

2 

3 

2 

to. 

2 

3 

1 

5 

1 

00 

2 

4 

.01 

—  01 

876. 

-876. 

4 

1 

2 

1  11 

1  13 

1  17 

0. 

3000.  3 

0. 

3000. 

>•< 
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FIGURE  113  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  105-4-PI  TRANSIENT  SIMULATION 
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FIGURE  114  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  105-4  PUMP  OUTLET  FLOW 
TURN-OFF  TRANSIENT  SIMULATION 


FIGURE  115  SECOND  ORDER  EMPIRICAL  PUMP  MODEL  105-4-P4  TRANSIENT  SIMULATION 
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Plots  of  the  ratio  of  actual  flow  over  rated  flow  versus  the  natural  frequency 
period  t  in  seconds  of  the  drive  torque  are  shown  In  Figures  116,  117  and  118 
for  the  F-15  and  F-4  hydraulic  pumps  In  the  three  different  test  systems. 

Figure  117  shows  that  the  damping  period  Is  relatively  constant  for  each 
flow  rate  except  the  turn-on  transient  with  the  F-4  pump  at  rated  flow.  When 
the  pump  outlet  pressure  falls  significantly  below  3000  psi  at  rated  conditions, 
the  flow  response  is  much  slower  due  to  compressibility  effects  In  the  pump/ 
system. 

The  Input  data  requirements  are  outlined  in  the  following  paragraphs  for 
the  first  end  second  order  pump  models. 

(1)  First  Order  Pump  Model 

(a)  Obtain  steady  state  parameters  from  test  or  specification  sheets 

-  Pump  speed 

-  Pump  rated  speed 

-  Pump  flow  at  rated  speed 

-  Pressure  at  full  flow 

-  Pressure  at  zero  flow 

-  Case  drain  flow  at  rated  flow  and  presssure 

(b)  Evaluate  first  order  time  constant  by  measuring  the  period  of  one 
torque  oscillation  then  multiply  by  0.632. 

T1  “  TPERIOD  *  0,632  *29) 

(c)  To  remove  spurious  pressure  signals  the  outlet  pressure  can  be 
phased  through  a  lag  network  which  effectively  removes  the  oscillation  frequency. 
The  pressure  time  constant  can  be  zero.  Too  large  a  constant  can  cause  a  mathe¬ 
matical  instability. 

NOTE:  The  mathematical  subroutine  used  in  the  pump  model  provides  an  approximate 
difference  form  of  a  continuous  transfer  function. 
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FIGURE  118  DAMPING  PERIOD  FOR  500  IN.3  SYSTEMS 
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The  sample  frequency  (HYTRAN  program  calculation  interval  frequency)  must  be 
10  to  15  times  larger  than  the  largest  system  frequency  or  discrepancies  will 
arise. 

(2)  Second  Order  Pump  Model 

(a)  Obtain  steady  state  parameters  from  test  or  specification  sheets 

Pump  Speed 

-  Pump  Rated  Speed 

-  Pump  Flow  at  Rated  Speed 

-  Pressure  at  Full  Flew 

-  Pressure  at  Zero  Flow 

Case  Drain  Flow  at  Rated  Flow  and  Pressure 

(b)  Evaluate  the  damped  natural  frequency  period  from  the  drive 
torque  curve.  Estimate  the  settling  time  as  5%  of  the  final  torque  value. 

Use  the  following  equations 

t  =_J_ 

s  om;  (30) 


To  solve  for  the  undamped  natural  frequency  and  the  damping  factor  £. 

(c)  Input  the  desired  pump  outlet  steady  state  flow  rate  after  the 

transient . 

(d)  Measure  the  difference  between  the  start  of  the  pump  outlet 
pressure  transient  and  the  start  of  the  drive  torque  transient.  Enter  the 
difference  as  the  delay  time. 

(e)  Measure  or  estimate  the  pump  outlet  chamber  volume. 

Notes:  Special  programming  of  the  second  order  pump  model  will  be  required  to 
study  reversal  transients. 

The  delay  time  is  not  necessary,  but  an  outlet  volume  must  be  provided. 
The  simulation  can  be  improved  with  a  measured  valve  closing  time  and 
accurate  system  volume. 
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3.  HYTRAN  BASIC  PUMP  MODEL 

The  HYTRAN basic  pump  model  simulates  the  operation  of  a  variable  displacement, 
pressure  compensated,  hydraulic  pump.  Inlet,  case,  and  outlet  pressures  and 
flows  ate  calculated.  A  complex  model  requires  many  detailed  input  parameters 
old  the  HYTRAN  model  is  no  exception.  However,  many  of  the  parameters  require 
the  user  to  be  familiar  with  the  pump  operation  and  the  relationships  of  key 
variables.  The  validity  of  a  simulation  depends  on  the  user's  ability  verify  the 
pump  model  input  data.  Oftentimes  the  data  is  difficult  to  obtain. 


Unfortunately,  the  required  input  data  cannot  be  reduced  without  compromising 
the  computed  output  accuracy, but  the  user  task  can  be  greatly  simplified. 

The  contract  work  emphasis  was  to  make  the  pump  model  more  usable. 

Some  data  for  the  current  HYTRAN  basic  pump  model  had  to  be  obtained  from 
the  manufacturer.  The  program  input  data  was  changed  to  allow  the  user  ,_o 
phvsically  measure  or  scale  from  a  drawing  the  required  information.  The 
dimensional  data  is  then  used  in  the  pump  subroutine  to  compute  the  input 
parameters.  A  detailed  discussion  is  included  to  guide  the  user  to  derive 
the  non-dimensional  data.  These  changes  should  greatly  enhance  the  usability 
cf  the  pump  model. 

The  HYTRAN  pump  model  changes,  input  parameter  derivation, and  correlation 
with  previously  collected  test  data  are  discussed  in  the  following  paragraphs, 
a.  Program  Changes 

Modifications  and  enhancements  were  made  to  the  HYTRAN  basic  pump 
model.  The  following  sections  describe  the  changes. 

1.  Orifice  Coefficient 

The  fluid  flowrate  through  an  oritic?  neglecting  the  inlet  velocity 


is 


(32) 


where 

Q  »  orifice  flow  (CIS) 

Cd  --  discharge  coefficient 

2 

A  =  orifice  area  (in  ) 

/P  -  pressure  drop  (TRIP) 

=  fluid  density  ( lb-sec^/ in4 ) 
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The  inlet 
an  orifice. 


velocity  can  have  an  effect  on  the  discharged  flow  through 
The  effects  of  inlet  velocity  are  incorporated  in  Equation  (33). 


Q  = 


Cd  A 


V 


2  AP 


(33) 


orifice  diameter  (in) 

inside  line  diameter  upstream  of  the  orifice  (in) 

Cd 

V1  - 

is  called  the  flow  coefficient,  C.  The  flow 

coefficient  is  a  function  of  Reynolds  number  and  the  inlet  to  orifice  diameter 
,do. 

ratio  (."jp  .  The  flow  coefficient  for  square  edged  orifices  is  computed 

by  the  HYTRAN  pump  model  for  each  compensator  position.  This  eliminates  the 
user  having  to  input  a  discharge  coefficient  from  pump  outlet  to  actuator 
and  actuator  to  case.  Further  discussion  of  the  flow  coefficient  calculation 
can  be  found  in  Appendix  D  of  AFAPL-TR-76-43  Volume  VI. 

2.  Flow  Force  Calculation 

Steady  state  flow  forces  on  the  compensator  spool  were  rederived  in  the 
pump  model.  The  net  force  acting  on  a  spool  land  caused  by  the  fluid  accelerating 
through  the  vena  contracts  formed  between  the  spool  and  sleeve  can  be  broken 
into  axial  and  lateral  components. 


where 

do  = 
dl  = 
The  quantity 
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The  lateral  component  pushes  the  valve  spool  sideways  against  the  sleeve 
and  is  usually  compensated  for  by  symmetrical  location  of  valve  ports  around 
the  spool.  The  axial  force  is  not  compensated  and  generally  acts  to  close 
the  valve  port.  Neglecting  compressibility,  a  net  force  acting  on  the  spool 
can  be  written  as 

FAXIAL  "  2‘  *  C<1  *  W  *  x  *  AF  *  cos  0  (34) 

where 

Cd  =  discharge  coefficient 
W  =  valve  width  (IN) 

X  =  slot  opening  (IN) 

AP  =  pressure  drop  across  orifice  (PSI) 

0  =  jet  angle 

(Equation  (34)  has  been  verified  by  Merritt,  Blackburn  et  al) .  Equation 
(34 )  assumes  that  the  orifice  is  rectangular  and  che  peripheral  width  is 
large  compared  with  its  axial  length.  The  jet  angle  for  most  valves  is  69° 
and  the  discharge  coefficient  can  be  set  to  .6. 

Equation  (  34)  provides  a  jet  steady  state  flow  force  which  acts  to 
close  the  compensator  ^alve.  In  HYTRAN  the  flow  force  is  computed  based 
on  the  previous  time  step  valve  position  and  pressure  drop.  The  force 
is  translated  to  a  displacement  through  the  compensator  spring  rate  and  is 
subtracted  from  the  latest  compensator  displacement. 

Transient  flow  forces  act  as  a  stabilizing  force  when  flowing  from 
actuator  to  case  because  the  forces  tend  to  close  the  valve.  F]ow  from 
outlet  to  the  actuator  tries  to  open  the  valve  and  is  a  destabilizing 
force.  The  transient  flow  force  is  due  primarily  to  acceleration  of  fluid 
in  the  valve  chamber.  The  magnitude  of  the  force  may  be  written  as 

FT  -  Cd  W  yj2  APp  L  &  (35) 


144 


4 


The  compensator  valve  velocity  was  typically  1  IN/SEC.  The  flow  length 
for  the  destabilizing  force  was  approximately  1.2  IN.  Assuming  Cd  ■  .6  with  a 
pressure  drop  of  2200  PSI  at  120°F  and  the  maximum  slot  opening,  the  transient 
flow  force  can  be  computed  as 

Ft  -  (.6)  (.125)  V2  (2200)  ( .  814E-4)'  (1.2)  (1) 

-  .0538  LBS 

which  is  negligible.  Obviously  the  actual  transient  flow  forces  are  not 
simple  to  compute* but  the  effects  are  minor  and  the  calculation 
was  omitted  from  the  HYTRAN  pump  model. 

3.  Offset  Flow  Calculation 

The  F-15  pump  hanger  is  offset  from  the  barrel  centerline  which 
contains  the  pumping  elements.  The  net  result  of  the  offset  is  the 
generation  of  a  small  piston  flow  whenever  the  actuator  is  stroking  the  hanger. 
The  old  HYTRAN  pump  model  required  the  user  to  input  an  offset  coefficient. 

The  model  was  revised  to  internally  calculate  the  coefficient.  The  user 
is  now  required  to  enter  the  number  of  pistons  (N) ,  piston  diameter  offset 
distance  (OFFSET)  and  the  actuator  lever  arm  (LEVACT).  The  OFFSET  coefficient 
is  then  computed  as 

COEOSO  =  OFFSET  *  N  *  AplSTQN 

2  *  LEVACT  1  * 

4)  Compensator  Position  Calculation 

The  F-15  hydraulic  pump  transient  test  data  showed  the  compensator 
position  was  proportional  to  pump  outlet  pressure.  The  information  was  used 
to  derive  an  equation  to  compute  compensator  position  as  linear  function  of 
outlet  pressure  just  before  the  compensator  valve  opens  from  actuator  to 
case.  This  establishes  a  reference  point  on  the  compensator  spool.  The 
user  also  inputs  the  total  spool  sleeve  overlap. 

The  slope  of  the  outlet  pressure  vs  compensator  position  curve  is 
the  compensator  spring  rate  referenced  to  the  compensator  area.  The  slope 
and  the  input  data  point  are  used  to  compute  the  compensator  position  3t  zero 
outlet  pressure.  The  position  and  slope  then  define  a  linear  equation  which 
is  used  to  compute  valve  displacement  for  any  pump  outlet  pressure. 
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5)  Derivation  of  Actuator  Pressure 

Once  the  compensator  position  has  been  determined  the  actuator 
pressure  can  be  computed.  Whenever,  the  compensator  valve  is  open  from 

actuator  to  case,  the  actuator  pressures  and  flows  are  directly  calculated. 
With  the  valve  in  the  overlapped  region,  or  open  from  outlet  to 

actuator,  the  actuator  pressure  is  computed  via  an  iteration  on  the  outlet 
pressure.  The  algorithm  is  explained  in  the  HYTRAN  pump  model  in  Appendix  D. 
A  new  portion  was  added  to  account  for  diametral  leakage  flows  past  the 
spool  in  the  lapped  region  of  compensator  travel.  Leakages  from  pressure 
to  actuator  and  actuator  to  case  through  the  compensator  valve  and  actuator 
are  computed. 

6)  Case  Drain  Flow  Area 

The  case  drain  outlet  on  the  F-15  pump  is  a  quick  disconnect  type 
fitting.  When  the  pump  is  engaged  with  the  pump  manifold,  the  fitting 
is  opened.  Three  slots  are  i  the  flow  path  •  The  previous 
HYTRAN  pump  model  acr  ■  '*•••■■'  >x  the  slots  and  computed  an  orifice  pressure/ 
flow  coefficient  Because  most  hydraulic  pumps  do  not  have  this  feature 
and  the  case  drain  outlet  diameters  can  vary,  a  case  drain  outlet  flow  area 
has  been  added  to  the  input  data.  The  HYTRAN  pump  model  will  compute 
an  orifice  pressure  flow  coefficient  based  on  the  area,  fluid  density,  and 
a  discharge  coefficient  of  0.6. 

b.  Derivation  of  Input  Data  Parameters 

Many  of  the  HYTRAN  basic  pump  model  input  data  parameters  can  be 
obtained  from  physical  measurements  of  a  disassembled  pump.  The.  data 
requiring  computation  is  explained  in  the  following  paragraphs. 

1)  Pressure  at  Which  the  Compensator  Valve  is  Line  to  Line  From 
Actuator  to  Case. 

The  HYTRAN  pump  model  simulates  compensator  position  as  a  direct 
function  of  pump  outlet  pressure.  To  establish  the  linear  relationship  the 
compensator  position  is  required  for  an  outlet  pressure.  Figure  119  es¬ 
tablishes  the  coordinate  system  to  be  used. 


146 


4 


QP79-OM1-40 

FIGURE  119  COMPENSATOR  VALVE  COORDINATE  SYSTEM  AND  NOMENCLATURE 


The  following  data  is  needed  to  compute  the  pressure: 


Compensator  Valve  Area -  .15  IN4 

Spring  Rate  -  2000  LB/IN 

Outlet  Pressure  @  a  Known  Flow  (2  GPM) -  2955  PSIA 

Compensator  Position  @  2  GPM  with  Respect  to 

the  Land  Surface  Exposed  to  the  Case  Pressure  -  .0099  IN 


The  compensator  position  was  taken  from  the  position  teanout  on  the  F-15 
instrumented  pump.  The  valve  must  move  .0099  IN  to  be  in  a  line  to  line 
position  from  actuator  to  case.  Therefore  the  pressure  can  be  computed 
from  equation  (37). 


P OUTLET 


PLINE  TO  LINE 


SPRING  RATE 
AREA 


(.0099) 


(37) 


PLINE  TO  LINE  "  ?955  “  .15  “  2822  PSIA 

2)  Compensator  Slot  Width 

The  pump  model  incorporates  rectangular  orifices.  The  slot  width 
times  the  valve  travel  defines  the  rlow  area.  Most  valves  have  symmetrically 
located  slots.  The  compensator  slot  width  should  be  the  width  of  one  slot 
times  the  total  number  of  slots. 

3)  Actuator  Pressure  Due  to  Spring  Force  at  Zero  Pump  Displacement 

The  geometry  of  the  problem  is  shown  in  Figure  120. 


14  7 
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spring 


FIGURE  120  SPRING  FORCE  BALANCE  ON  HANGER 


The  following  data  is  needed: 

Xz - 


2.7  in. 
2.07  in 


Spring  Preload  -  29  LB  @  2.1"  Stroke 

Spring  Rate - 105  LB/ IN 

Spring  Stroke  at  Zero  Flow  —  +1.26  IN 

2 

Actuator  Area - .307  IN 

The  spring  force  is 

F  =  29.  lb  +  AF 


(  38 


where 

AF  ~  K  (AX)  -  105  (2.10  -  1.26)  ■*  88.2  lb. 

Therefore 

Fg  =  29.  +  88.2  =  117.2  lb. 

The  actuator  force  can  be  obtained  from  the  forces  on  the  hanger  and  the 
respective  lever  arms. 

Fg  (2.7)  -  FA  (2.07) 

F .  -  152.87  lb. 

A 

or  the  actuator  pressure  is 

p  =  -  497.94  FSI 

ACT  . 307 


14b 


1ST 


« 


4)  Actuator  Pressure  Due  to  Spring  Force  at  Maximum  Pump  Displacement 
For  this  calculation  the  lever  arm  lengths  in  Figure  120  change  to 


■  2.11  in. 

X2  ■  2.47  in. 

The  force  on  the  actuator  is 


v  m  29  *  2.11 
A  2.47 

or  the  pressure  is 


24.77 

PACT  “  .307 


-  24.77  lb. 


«  80.68  PSI 


5)  Actuator  Pressure  Due  to  Piston  Acceleration  at  3600  RPM 
Figure  121  shows  the  hanger  geometry  needed  to  compute  the  average 
piston  acceleration. 


FIGURE  121  PISTON  ACCELERATION  FORCES  ON  HANGER 
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The  following  data  is  needed 

rP  -  radial  distance  to  piston  centerline  at  max  actuator 

displacement  <1>172  IN) 

rA  “  radial  distance  to  actuator  at  max  actuator  displacement  (2.47  IN) 

v  -  max  actuator  displacement  (.795  IN) 

A  REV  2ft  ,77  RAD, 

w  «  piston  rotational  velocity  0600  *  £q  ■  J77  SEC7 


m  »  piston  mass 


(.0149  lb  *  ln2/sec  •  3. 856E-5  IfcSSS.2  , 


A  piston  position  for  any  time  during  a  revolution  is 


Xp  *  X  IE 


SIN  (..it) 


The  piston  velocity  is 


VP  *  cos  ait 


and  the  acceleration  is 


=  -Xu  rP 


sin  cot 


The  piston  force  is  equal  to  the  mass  times  acceleration  ok 


F  =  -  m  xoi  rP 
rA 


sin  ait 


The  torque  on  each  piston  is 


where 


X  =  -F  *  r 

^  rp 


r'  =  rP  sin  wt 


substituting  equation  (47)  into  equation  (43)  gives 
T  ■  m  x, ,  2  rP^  .2 

p  Aoi  yA~  s^n 

The  average  torque  per  piston  can  be  written  as 

T  -  f  2  tr  T_  d  0 

PAVE  2it  I  P 

J  o 


where  0  *  ait 
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Substituting  equation  (44)  into  equation  (45) 


PAVE  2tt 


—  /*2tt  (m\  w2  rP^  )  sin^  0  d  0 

11  Jo  rA 


But  sin  0  ■  1— co s  2  0 
2 

so  i  r?v 


C2rr  m  X  2  r£2  i  d0  -  1_  /*2ir  m  X  “?'rP  ■- 
*  *• .  2  2?r  J 2 


cos  2  0  d  0 


and  evaluating  the  integral 

2 

■  „  m  x  w  rP 

PAVE  — r - 

2r* 


Since 


FA  rA 


The  average  total  force  for  nine  pistons  is  then 

„  2  2 
=  9n  rp 


Substituting  the  appropriate  numbers 

9  (3.856E-4)  (.795)  C 
AVE  "  2  (2.47)‘ 


=  44.142  lb. 


Referenced  to  the  actuator  piston  area  the  actuator  pressure  is 


44.142 

.307 


143.78  PSI 


6)  Actuator  Pressure  at  3600  RPM  and  Zero  Pump  Displacement 
Figure  122  shows  average  hanger  torque  at  3600  RPM  due  to  piston 
pressures  as  a  function  of  hanger  angle,  steady  state  outlet  pressure,  and 
oil  temperature.  Torque  due  to  pumping  piston  inertial  forces  are  also  shown. 
These  torques  along  with  the  hanger  spring  act  in  the  direction  of  full 
stroke  (maximum  hanger  angle).  The  values  in  Figure  122  were  generated  by 
the  HSFR  pump  model  using  various  flow  demands,  system  steady  Etate 
pressures  and  fluid  temperatures  as  the  controlled  variables. 

At  zero  pump  displacement  (zero  hanger  angle)  the  hanger 
torque  is  365  IN-LB.  The  lever  arm  between  the  hanger  centerline  and 
actuator  is  2.07  IN.  Consequently  the  force  at  the  actuator  is 


365  in-lb 
2.07  in. 


-  176.32  lb. 
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FIGURE  122  F-15  HYDRAULIC  PUMP  HANGER  TORQUE 


The  actuator  pressure  at  3600  RPM  is 
PACT  ‘  TST2'  '  574 ' 33  PSI 

7)  Actuator  Pressure  at  3600  RPM  and  Maximum  Pump  Displacement 
From  Figure  122  the  torque  at  maximum  pump  displacement  is  225  IN-LB. 
The  lever  arm  is  2.47  IN  and  the  force  on  the  actuator  is  91.09  LB. 
Reference  to  the  actuator  are,  the  actuator  pressure  is  then 


91.09 

.307 


296.71  PSI 


8)  Slope  of  Actuator  Pressure  Versus  the  Pump  RPM  Curve 
The  HSFR  program  was  used  to  generate  the  actuator  pressure  versus  RPM 
curve  in  Figure  123 .  The  local  slope  at  3600  RPM  is  .035  PSI/RPM. 
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FIGURE  123  HANGER  ACTUATOR  CONTROL  PRESSURE 

F-15  PUMP  VERIFICATION  TEST  •  SHORT  LINE 
MILH5606B,  3000  PSI,  110°F,  2.3  GPM 

9)  Hanger  Damping 

An  estimate  of  hanger  damping  can  be  derived  by  assuming  the  pump  to 
be  a  critically  damped  mass,  spring,  dashpot  system.  The  damping  coefficient 
(B)  can  be  expressed  by  equation  (49)  in  terms  of  the  compensator  spring 
rate  and  fluid  and  hanger  mass. 


where 

B  «  damping  coefficient  (LB-SEC/IN) 

K  »  spring  rate  (2000  LB/IN) 

M  -  mass  (.029  LB-SEC2/IN) 

Substituting  the  appropriate  values  into  equation  (49)  the  hanger  damping 

is  15.23  LB-SEC  or  50.0  PSI/IN/SEC  when  referenced  to  the  actuator  area 
IN 

of  .307  IN2. 

The  hanger  damping  term  can  vary  depending  on  the  system  size  or  type 
of  transient. 


(49) 
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C.  Correlation  with  Test  Data 

Data  from  turn-off  and  turn-on  transients  were  compared  to  the  HYTRAN 
simulation  using  the  improved  pump  model.  The  HYTRAN  input  data  file  for  a 
turn-off  transient  is  shown  in  Table  18.  The  initial  steady  state  flow  rate 
was  77  CIS  and  the  system  temperature  was  130°F.  The  results  of  the  simulation 
are  overplotted  with  test  data  in  Figures  124  through  129. 

The  HYTRAN  input  data  for  a  turn-on  transient  is  presented  in  Table  19. 

The  overplotted  computer  graphs  are  shown  in  Figures  130  through  135. 

TABLE  18  HYTRAN  INPUT  DATA  FOR  RUN  94-A4-XX 


••••OAfA  CUN  NO.  IWfU  Ml  PUNP****tOPrSTlt* 

ft*  rumtim  ftisroNfi  is  tm.o  to  t*  .t«o  steoNos  at  rim  tatiovni  op  nil*  , 

WITH  OUT  OUT  0  HINTS  PtQTTIO  AT  INTfRVUS  Of  »  .00100  0IC0N0I 


lUlft  MU  TOO  Nll-N-940*  AT  >000.0  MU.  -  >0.0  AS  10  AND  110.0  010  0  IN  10*0  OKS  P  STj?S 

V1SC0SITV  -  .1001-01  .l*li-01lN**l/SIC 

DCNSITT  -  .0111-0*  •  ■01I-0*<LB-SIC**1I/IM*« 

•ui«  Nooutus  -  •ttilNi  *iafi«o*Psi 


V  AP  OUB 

MASS.-  .1001*01 

AT  1S0.0  Of* 

P 

ha-up 

TABKN  AT  l IN| 

ll.tfll  Of  SOUND 

IN  l |*|  *  If 

Of.OPIB  CCNT 

IN 

IKBM 

Mt-UP 

TlRlN  AT  UNI 

10. VU  Of  SOUND 

1*  1 1*1  T  IS 

OB.OPIO  CINT 

IN 

HIM 

Pll-UP 

TANIN  At  LlNl 

10. Ill  Of  SO UNO 

IN  l INI  •  It 

0«.SPI>  CINT 

IN 

IBOON 

tisi  a:* 

AINITM 

mr* 

KUiHII 

tflWI.K 

Olio 

i 

03.1000 

•  9010 

•**«* 

•  >00€  *01 

11.100# 

0.1*0* 

4MIO.SMO 

t 

10.0000 

•  1100 

.0100 

•  0001*00 

10.0000 

SO.* TOC 

00101.01** 

i 

SOI.  TOOO 

•00*0 

•00*0 

•00*1 «oo 

10.0T1* 

*•0010 

**SS1»*S10 

* 

10.9000 

•  00*0 

•0000 

•  BOOf  rtl 

10.0000 

0.0010 

4*901. *910 

» 

10.  *00# 

.♦**# 

.01*0 

•  1001*00 

10.0000 

10.0*1* 

* 

*.ooo« 

.4**0 

.0100 

•1001 *01 

*.0000 

10.*»1* 

10000.0000 

T 

4.1190 

.0010 

.0**0 

•  N0(  *00 

4.1110 

0.1414 

• 

4.000* 

.0010 

.0*0# 

•  tool  *00 

*.0000 

0.t*A* 

10000.0000 

* 

1*1.00  00 

•  *010 

.0**0 

•  0001*00 

10. 1001 

*.l*l* 

4*000.11*9 

si 


(MM<  I  (arises  OATS  I 

MU  OATS  CA00  0  1  .»IWI«Ot 

CONMp  t  INTIsra  SATA 

Mll  Uti  CABO  S  I  .  11  tl«*0A 

0(41  DATA  CBAO  •  |  .10101*00 

OlAi  DATA  C ABO  *  I  «IO0O|*f  . 

•*Ai  DATA  CABO  t  A  .>0001*01 

CON**.  I  (NTISIS  DATA  I 

MU  DATA  CABO  •  1  •  10001*01 

COP**.  *  I NTICt B  OATA  * 

COM*.  >  INTISSS  OAI A  > 

MU  OATA  CABO  0  1  f  .11001*01 

ItAl  OATA  CABO  *10. 

BSAl  DATA  CAM  •  >  .«0D>l*0l 

CON**.  A  INTIOIS  OAT*  * 

i«*i  OATA  CAM  0  |  .11001*01 

CON**.  T  INTIOIS  DATA  T 

CPNPB*  *  INTIOIS  DATA  0 

BIAS  OATA  COSO  •  |  .11*01*00 

CON**.  0  INTIOIS  Oil*  0  *1 

,m  MMMM  -,dm,  .  ““l:Uv  •• 


1  -1  •  • 

o. 

*  1  -»  -1 

.10001*0*  .kll'KtSO 
.*0001*01  .00? 11*01 
. TOttA  »#0  *. >0001*00 

,*0091*0*  .*0001*01 

110 


.*•011*90  0. 

.10011-01  .11 
.*0*11*01  0. 
i  1  t  1 

.00011*00  0. 

0  •  1 
I  l  0  *1 

•  Mill  *00  0. 


.10001*00 
. 1*1*1.01 
.  Ft  00  HOI 
•00001*01 


0. 

•11001*01 

.**001-01 


0. 

0  0 

•10001*01 
•  100VIMO 
■  000*1*01 
•10*01-01 


•OI10|*0<  .11TOI401 
•10001-01  .00001*01 
, 101TI.OC  .*1001*01 
•10001*01  .00001*01 


0 

• 

0 

0 

0 

0 

• 

0 

• 

• 

0 

0. 

r. 

I. 

M 

-0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

• 

0 

0 

0 

0 

0 

• 

0 

« 

0 

0 

0. 

0. 

0. 

0. 

1-01 

•  10001*00 

0. 

0. 

0. 

*• 

0. 

I. 

0. 

0 

• 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0. 

0. 

0. 

0. 

0. 

-• 

0 

0 

• 

0 

0 

• 

0 

0 

0 

0 

0. 

0. 

0. 

o. 

0. 

• 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0. 

0* 

0. 

•* 

0. 

0IIAO1  SIAM  INPUT  OATA 

NUNUA  Of  NMIS  •  0  Mill  Of  l|*|  •  *  NUN  Of  S  Of  CONSTANT  MISSUOI  MOTS  - 

LTI  CONNICTION  INPUT  OATA 
UP  IT  NON  M  OUST  MO  01  NO  NM  0*  filMNTS 


I  00  UPS T  NON  M  OUST  Mil  NO  NT*  | 

ill! 

•U5«|  IN  110— --  . 

iilmii 


IH  1=  I* 


PRESSURE  (PSIA) 


FIGURE  124  PUMP  OUTLET  PRESSURE  RUN  NO. 


94-A4-P3 


FIGURE  125  PUMP  OUTLET  PRESSURE  RUN  NO.  94-A4-P4 


155 


PRESSURE  (PSIA) 


w»  ooMPuTismauni 
- IMTAMMNO.'N*'-  *» 


TIME  (SEC) 


FIGURE  128 


PUMP  CASE  PRESSURE  RUN 


NO.  94-A4-P2 


•00,0090 


%00«  COO#  '< 


FIGURE  129  LNLET  PRESSURE  RUN 


NO.  94-A4-P5 
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TABLE  19  HYTRAN  INPUT  DATA  FOR  RUN  94-A4+XX 


••♦♦Oil  I  *!>■  «P.  4-19  7uM,*„|6MST7(  » 

t»i  rtivsinii  Mirooii  u  ••or  t.c.c  to  t.  .too  iiroM  *t  tin,  imimus  or  out*  .mom 
nitn  ou»»ui  iPtus  mottio  4?  humus  o»  .  .ooioo  jicpndi 


•  imr  oiti  70»  it  iooo.o  mk*  -  ic.o  ’fit  *«t>  110.0  dm  r  in  10. 0  dm  *  stms 


vftensiM  -  .1141-ot 

OINJltr  -  .Hlt-M 
iuik  noruiii  •  ,mioi 
0400114  ••(««.-  ,j 101*01 


M»-u»  TMM  II  i  fnl  I7,»lt  rr  scum  in  itvi 

MI*U»  T40fN  (T  (INI  Klin  or  SPUN®  IN  I  INI 

H«-ur  KNf c  «t  iin(  11,  ml  c»  ioono  in  iini 


1(41-01  ,MII-CII«*IMIf 

tsir-ro  .•oif-oMia-irciifi/jNMi 

mi«04  ,|  4TT  ♦0401 1 

1101*01  if  110.0  ore  • 

•  IS  M.MIt  CIN1  |N  (MAD 

V  It  11.0*11  CENT  IN  M*9* 

•  IS  SO. SIC*  CINT  |N  (rift 


tl«  5«* 

If NOTH 

IN  IP  INI* 

HI 

WfciNfSS 

trmw 

Of  11 

{»;»«! 

,,,,c  Hitt'"  °* 

1 

SS.  HOC 

.0070 

.0440 

.1001*04 

11.1100 

(.741 

01040. 0101 

7 

1 (a  COOO 

.1110 

,07(0 

10.0000 

00.0744 

SOI  U.  1104 

1 

Mf,  MOO 

.4(40 

.0100 

. 1001 *04 

10.0774 

0*S(IS 

00001,4000 

4 

10.  moo 

.1(40 

.0140 

•1001400 

to. 1000 

0.1(11 

00001.4110 

• 

4, COOO 

.4440 

.0740 

.1001*04 

4.0000 

11.1474 

70000.0000 

• 

4. COCO 

.1070 

.0410 

.1001*04 

4.0000 

0,1404 

10000.0000 

0 

117. COOO 

,1070 

.0440 

. 1001*04 

10*101* 

(,1004 

00000.1101 

COM4. 

t  (OffCfO 

04TI  1 

*1  1-10 

0  0  0 

0  0 

0 

0  0 

0 

0  0 

Mil  0«T4 

C4*0  4  1 

«OS00f *07 

0.  0. 

0. 

0. 

0, 

0, 

0. 

COM4, 

7  IMMM 

04T4  > 

SI  *  1  -1 

-7  0  0 

0  0 

0 

0  0 

0 

0  0 

•141  fill 

(4*0  4  1 

.M77f*04 

.70007*04  ,|101(*00  .71001*00 

0, 

,10004-01 

. 

1(7*1400  ,11701401 

•in  mi 

C44C  4  1 

•  fOTOMOO 

.«<(0UCt  .  40707*01  ,14907400 

.17411*01 

.71071409 

IIOOf-0!  .7000(401 
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4.  LOSSLESS  LINE  MODEL 

Closely  coupled  hydraulic  components  are  typical  in  aircraft  hydraulic 
systems.  The  F-18  arresting  hook  actuator/damper  is  an  excellent  example. 

The  inlet  fitting  to  the  rod  side  of  the  actuator  cylinder  contains  a  two- 
way  restrictor.  There  is  no  interconnecting  line  between  the  restrictor 
and  the  cylinder.  Similar  close  coupling  exists  with  various  combinations 
of  relief  valves,  check  valves,  accumulators,  and  the  actuator  in  the 
arresting  hook  unit. 

A  HYTRAN  computer  simulation  of  the  Arresting  Hook  Subsystem  would 
require  either  writing  a  single  component  model  or  using  existing  models 
to  functionally  represent  the  arresting  hook  unit  and  all  the  internal 
components.  Because  of  design  and  test  schedules,  time  is  not  usually 
available  to  write  and  verify  a  complete  model.  The  functional  or  "building 
block"  method  is  usually  chosen. 

The  HYTRAN  program  requires  components  to  be  coupled  with  a  line.  To 
model  the  Arresting  Hook  Subsystem  several  lines  must  be  added  between  the 
connected  components.  These  lines  cause  errors  in  computing  fluid  friction, 
inertia  and  compressibility  on  transient  cylinder  pressures,  and  transient 
signal  phasing.  Therefore  the  feasibility  of  incorporating  a  lossless  line  model 
was  investigated.  A  secondary  objective  was  to  reduce  the  user's  modeling  task 
by  finding  a  way  to  couple  the  components  without  using  interconnecting  lines. 

a .  BACKGROUND 

Predicting  hydraulic  system  response  is  a  problem  in  continuous  system 
simulation.  The  HYTRAN  program  works  with  individual  component  equations,  and 
uses  the  method  of  characteristics  in  the  line  model  to  connect  the  component 
models.  The  technique  avoids  algebraic  equation  sets  and  has  the  advantage 
of  including  frequency  dependent  friction  effects  in  the  predicted  response. 

A  method  of  characteristics  solution  requires  determining  characteristic 
curves  in  the  distance,  time  (x,t)  plane  along  which  the  partial  differential 
equations  of  momentum  and  energy  reduce  to  ordinary  differential  equations. 

The  ordinary  differential  equations  can  be  integrated  numerically,  and  a 
solution  can  be  found  which  propagates  through  space  and  time. 
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For  computational  convenience  the  pressures  and  flows  are  computed  in 
a  set  of  fixed  grid  points.  From  initial  conditions  the  solution  propagates 
one  increment  in  time. 

The  method  of  characteristics  line  model  used  with  component  models  allows 
the  computation  of  each  component  variable  almost  independently  of  other 
component  variables.  However,  a  line  must  be  used  to  couple  any  two  components 
in  the  system.  The  component  algorithms  in  the  HYTRAN  program  do  not  allow 
for  components  which  cannot  be  coupled  through  a  transmission  line.  Further¬ 
more,  the  component  port  variables  are  restricted  to  pressure  and  flow, 
b.  HYTRAN  LINE  MATH  MODEL 

The  fluid  flow  field  is  completely  described  by  the  simultaneous  solutions 
of  the  momentum,  continuity,  energy,  and  state  equations.  For  an  isothermal 
liquid  flow  field  the  momentum  and  continuity  equations  become  uncoupled 
from  the  energy  and  state  equations.  Therefore,  fluid  pressure  and  velocity 
can  be  determined  from  the  simultaneous  solution  of  the  momentum  and  continuity 
equations  alone.  The  equations  are  defined  assuming  one  dimensional  flow  with 
the  static  pressure  always  exceeding  fluid  vapor  pressure.  The  lines  have  a 
circular  cross  section  and  are  full  of  fluid  at  all  times.  In  addition,  the 
lines  are  considered  thin  wall  and  all  energy  dissipation  is  due  to  shearing 
stresses  at  the  walls. 

The  transmission  line  model  defines  the  response  in  terms  of  the  equation 
of  motion. 


and  the  continuity  equation. 


-L  2lE  +  -L  y  _ 

pa  3t+?a  +  a  “  " 


a* 


(51) 


Where 

P  =  Pressure  (psia) 

V  *  Fluid  Velocity  (in/sec) 
t  =  Time  (sec) 

p  =  Fluid  Mass  Density  -) 

F(V,D)  “  Pressure  loss  as  a  function  of  velocity  and  pipe  diameter 
a  -  Speed  of  sound  in  fluid  (in/sec) 
x  ■  Distance  along  line  (in) 

The  method  of  characteristics  allows  equations  (50)  and  (51)  to  be  trans¬ 
formed  into  a  pair  of  total  differential  equations.  The  equations  are  valid 
only  when  restrl.ted  to  characteristic  lines  in  the  x-t  plane  (Figure  136). 
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FIGURE  136.  CHARACTERISTICS  IN  X-T  PLANE 


Where  F  (Q)  ■  pressure  loss  as  a  function  of  fluid  flow  (psi). 

The  original  partial  differential  equations  (50)  and  (51)  have  been  replaced 
by  the  two  ordinary  differential  equations  (52)  and  (54).  These  equations  are 
only  valid  along  the  time  space  curves  defined  by  equations  (53)  and  (55) 
which  are  called  the  left  and  right  characteristics  respectively. 


» 


The  pressure  and  velocity  at  the  points  R  and  S  in  Figure  1  can  be 
Interpolated  since  all  the  quantities  at  A,  B,  and  C  are  known.  Assuming 
that  the  wave  characteristics  are  straight  lines  from  R  to  D  and  S  to  D 
a  first  order  integration  of  equations  (52)  and  (54)  results  in  a  set  of 
simultaneous  difference  equations.  The  simultaneous  solution  for  Pp  and 


Qp  results  in 

D  .  +  Cl¬ 
io  ■  o 


(56) 


Where 


(57) 


Cl  =  P*  +  Z*Q«-F(Q«)-Fl(Qo) 
C«=  P*  -  Z*Qs  +  Fa  (Qs )  +  Fa  (Qd) 


CR  and  CL  are  still  functions  of  the  unknown  flow,  QD.  In  HYTRAN  an 
iteration  is  used  to  compute  Qp.  Cr  and  Cp  are  first  determined  using  only 
a  rectangular  rule  to  approximate  the  friction.  This  gives  a  very  close 
approximation  of  Qp  which  is  then  improved  by  using  the  trapezoidal  rule  to 
evaluate  and  Cp. 

There  Are  two  ways  to  apply  these  equations  to  a  line  system.  Either 
modify  the  velocity  of  sound  slightly  to  make  the  number  of  calculation 
grids  in  each  individual  line  an  integer  such  that 


where 

«  number  of  grids  (an  integer  value) 

L  ■  line  length  (IN) 
a  ■  wave  speed  (in/sec) 

At  *  calculation  interval  (sec) 

or  use  a  grid  of  characteristics.  The  method  of  specified  time  intervals, 
which  modifies  the  wave  speed,  is  used  in  HYTRAN.  This  offers  convenience 
in  computer  simulation  because  xp  and  tp  are  assigned  definite  values,  only 
Pp  and  Qp  are  unknown. 

If  either  Qp  or  the  wave  speed  vary  considerably  with  x  and  t,  as  for 
highly  deformable  tubes,  then  the  grid  of  characteristics  is  preferred. 
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By  using  the  interpolation  method  outlined  above,  it  is  possible  to  just 
satisfy  the  limitation  on  the  grid-mesh  ratio  in  each  line  and  proceed  with 
the  solution.  However,  with  linear  interpolation  on  the  x  grid,  the  larger 
the  interpolation,  the  less  accurate  the  numerical  solution.  The  At  should 
be  chosen  so  computing  time  is  not  excessive.  The  Ax  selection  will  insure 
that  interpolations  are  applied  over  minimum  distances  in  each  line. 

For  the  method  of  characteristics  solution  to  be  stable  the  points  R 
and  S  must  lie  between  A  and  B.  For  the  maximum  magnitude  of  V+a  one  must 
assume 


A* 

iv+al 


(59) 


The  fluid  velocity  is  typically  much  smaller  than  sonic  velocity  in  a 
hydraulic  system.  Therefore,  the  grid  size  (Ax)  implicitly  determines  the 
allowable  step  size  (At).  The  converse  is  also  true.  Typically,  the  smaller 
grid  size  produces  a  better  definition  of  the  pressure  and  flow  transients. 
Larger  step  sizes  reduce  the  accuracy  of  the  model.  The  most  simple  approach 
tc  achieve  more  accurate  results  is  simply  to  use  a  smaller  time  step  and 
grid  size. 

However,  for  large  system  simulations,  this  becomes  impractical.  The 
length  and  cost  of  the  computer  simulation  is  often  prohibitive. 

Equations  (56)  and  (57)  apply  only  to  the  interior  sections  of  the  fluid 
line.  The  propagation  of  all  quantities  along  the  interior  spatial  grid 
lines  depend  only  on  the  values  along  the  current  time  grid  line.  Therefore, 
all  interior  point  quantities  can  be  propagated  one  time  increment  independent 
of  the  boundary  conditions  which  are  imposed  by  the  components  on  each  line 
end. 

The  grid  points  on  the  boundaries  of  a  line  cannot  be  propagated  in¬ 
dependent  of  the  connected  component.  The  pressure  and  flow  at  the  line 
ends  are  indeterminate  because  one  wave  characteristic  is  not  present.  An 
algebraic  equation  in  terms  of  the  wave  characteristics  must  be  combined  with 
the  independent  port  variable  to  obtain  the  solution  for  pressure  and  flow 
at  the  line  endpoints. 

c.  LOSSLESS  LINE  MODEL  DEVELOPMENT 

Various  programming  and  analytical  ideas  were  studied  to  provide  a 
lossless  line  model  as  described  in  the  introduction.  These  have  been 
categorized  into  three  approaches,  the  practical,  direct  coupling,  and  port 
energy  method. 
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(1)  PRACTICAL  APPROACH 

The  method  of  characteristics  in  the  HYTRAN  line  model  solves  for  pressure 
and  flow  using  specified  time  intervals.  The  wave  speed  in  the  line  is 
determined  from  fluid  properties  with  corrections  for  pipe  wall 
elasticity.  The  calculation  time  interval  is  input  by  the  program  user. 

The  minimum  calculation  interval  for  line  distance  (Ax)  is  therefore  specified 
for  each  computer  run  as. 


Ax  =  wave  3peed  *  time  interval  (60) 

With  an  integration  step  of  0.0001  seconds  and  an  acoustic  velocity  of 
50,000  in/sec,  the  minimum  Ax  line  segment  would  be  5.0  inches,  A  line  with  five 
segments  would  be  25  inches  long.  If  the  time  increment  was  reduced,  the  number  of 
Ax's  would  increase  and  shorter  lines  could  be  more  accurately  modeled.  The  reductioi 
in  times  step  will  increase  the  computer  running  time  for  the  same  realtime  simulatior 
For  calculations  of  pressure  and  flow  at  the  characteristic  grid  points 
during  the  same  time  step,  the  number  of  Ax' s  in  the  line  are  determined  by 
equation  (58).  The  Ax  used  in  the  simulation  is  computed  as 


line  length 


Depending  on  the  time  interval  selected,  an  error  may  occur  between  Ax 
and  Ax.  (Note:  is  always  an  integer.)  A  linear  interpolation  is  used  in 


HYTRAN  to  obtain  the  interior  values  of  pressure  and  flows  at  point  R  and  S  in 
Figure  1  from  the  known  values  at  A,  B  and  C. 

If  the  Ax  is  more  than  the  line  length  between  closely  coupled  components, 
the  method  of  specified  time  intervals  requires  reducing  the  velocity  of  sound 
in  the  line  so  as  to  make  the  line  length  an  exact  multiple  of  Ax.  During 
the  transient  simulation,  line  dynamic  friction  effects  are  omitted  and  the 
line  will  be  one  Ax  in  length  with  no  intermediate  calculation  points. 

The  right  and  left  characteristics  are  determined  using  the  smallest  Ax  in  the 
simulation.  The  short  line  segment's  characteristic  impedance  and  static 
friction  losses  are  based  on  the  actual  line  length  and  diameter.  Since  the 
velocity  of  sound  and  fluid  density  are  constant  in  the  HYTRAN  program,  the 
characteristic  impedance  is  affected  only  by  the  line's  cross-sectional  area. 

If  the  user  selects  a  grid  size  greater  than  the  smallest  line  length, 
the  simulation  error  results  from  the  fix-up  taken  in  the  acoustic  velocity. 

The  error  can  be  minimized  by  a  proper  selection  of  the  line's  characteristic 
impedance  and  elimination  of  the  static  friction  losses.  The  friction  losses 
can  be  easily  deleted,  and  the  phasing  errors  due  to  the  fix-up  in  acoustic 
velocity  can  be  affected  by  the  line's  cross-sectional  area. 
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An  inaccurate  diameter  for  a  line  smaller  than  the  grid  Ax  can  signifi¬ 
cantly  affect  the  computer  simulation.  To  illustrate  this,  several  computer 
runs  were  made. 

A  simple  baseline  system  (Figure  137  )  with  two  constant  pressure  reservoirs, 
a  branch,  three  lines,  and  a  two-way,  two  position  va1 ve  was  chosen  for  the 
simulation.  In  the  HYTRAN  program  the  branch  model  has  no  static  or  dynamic 
friction  losses.  Consequently,  the  pressures  and  flows  are  the  same  at 
points  A  and  B  in  figure  137  .  The  HYTRAN  input  data  for  the  simulation  is 
presented  in  Table  20  . 


Cl  C2  C3  C4 


Cl,  C4  =  CONSTANT  PRESSURE  RESERVOIRS 
C2  -  BRANCH 

C3  «  TWO-WAY,  TWO  POSITION  VALVE 
LINE  1.  2.  3  »  1/2"  O.D.  X  .020"  WALL  X  100"  LONG 


FIGURE  137.  BASELINE  LIFE  SYSTEM 


TABLE  20.  HYTRAN  INPUT  DATA  FOR  BASELINE  SYSTEM 
****  LINE  SYSTEM  NO  LOSSLESS  LINE  SEGMENT  -  TURN  OFF  (UL0SS2A) 


• 

0001 

.1 

.001 

100. 

3 

4 

1 

I 

0 

0 

100. 

.5 

.028 

3.0E7 

2 

0 

0 

100. 

.5 

.028 

3.0E7 

3 

0 

0 

100. 

.5 

.028 

3.0F7 

1 

61 

1 

-1 

3000. 

2 

11 

0 

1 

-2 

3 

23 

3 

2 

-3 

4 

0.10 

.65 

0. 

.on 

.012 

.5 

.1 

.1 

0. 

0. 

A 

61 

1 

3 

no. 

3 

2 

i 

1 

2 

5 

1. 

l 

1 

0 

1 

2  1 

0  2 

3  1 

2 

2 

3 

2 

1. 

0 

3 

4 

1 

2 

0 

1 

1 

2 

100. 

-no. 

2 

4 

.1 

-.1 

100. 

-100. 
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A  branch  and  a  short  line  segment  less  than  a  A*  length  van  adde**  to  the 
circuit  in  Figure  132.  Line  2  in  Figure  138  is  the  short  line  segment.  Points 
A  and  B  in  Figure  138  correspond  to  ehe  ms»  points  in  Figure  137. 

To  minimize  the  effects  c»  the  short  line  ><peot  a  lossless,  line  Model 
was  added  to  the  line  subroutine.  Table  21  contains  a  listing  of  the  MYTUK 
input  data.  The  lossless  line  aodel  is  denoted  by  s  line  type  2. 

The  lossless  line  aodel  has  no  static  or  dynamic  friction.  Yhe  velocity 
of  sound  in  the  pipe  is  determined  as 

*z[p  (62) 

where  p  -  fluid  bulk  modulus  (Psl) 

Equation  (62)  assumes  the  acoustic  velocity  is  not  affected  by  the  line 
wall  thickness  and  the  material  modulus  of  elasticity.  Since  friction  effects 
are  not  included  in  the  aodel,  the  length  of  the  lossless  line  segment  is 
immaterial .  A  computer  run  was  made  with  Che  system  in  Figure  138.  The  lossless 
line  length  was  0.1  inch.  The  I.D.  of  all  the  lines  were  identical.  The 
effect  of  the  lossless  line  is  shown  by  comparing  pressure  response  at  point  A. 
Similar  comparisons  could  be  made  at  point  B  or  any  other  point  in  system. 
Waveform  would  be  the  same  at  other  locations,  but  pressure  levels  would  vary 
slightly  due  to  steady  state  losses  at  locations  other  than  point  A.  An 
overplot  of  the  baseline  pressure  at  point  A  in  Figure  137  and  the  lossless 
line  results  at  point  A  in  Figure  138  is  shown  in  Figure  139.  Initial  steady 
state  flow  was  53.0  CIS  before  the  valve  was  closed.  There  is  a  slight  mis- 
phasing  between  the  baseline  and  lossless  line  pressure  curves.  Other 
computer  runs  were  made  using  a  0.078",  0.884"  and  3.5"  inner  line  diameters 
for  the  lossless  line.  The  results  of  the  simulations  are  plotted  for  point  A 
in  Figures  140,  141,  and  142. 

Compared  to  the  baseline  run  at  Point  A  the  .078"  lossless  line  has 
slightly  attenuated  the  pressure  signal  and  decreased  the  damping  frequency. 

The  .884"  diameter  run  was  closer  to  the  baseline  but  the  largest  diameter  in 
Figure  142  completely  changed  the  wave  shape  from  the  baseline.  Since  the 
velocity  of  sound  in  the  lossless  line  was  the  same  for  each  run,  the  differences 
are  due  to  cross-sectional  area  regardless  of  the  lossless  line  segment  length, 
as  long  as  the  length  is  less  than  the  smallest  calculation  grid.  The  proper 
selection  of  the  line  diameter  is  important  when  using  the  lossless  line  model. 
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Another  set  of  runs  were  made  using  a  1/4"  OL  x  100"  long  line  downstream 
of  the  tee  in  Figure  137.  A  lossless  line  segment  with  a  0.444"  ID  was  put  in 
the  system  and  the  simulation  results  compared  to  the  baseline  system  pressure 
at  point  A  is  shown  in  Figure  143.  There  are  minor  phasing  errors  between  the 
baseline  and  lossless  case,  but  amplitudes  still  show  good  correlation.  A 
computer  run  was  tried  using  a  0.206"  ID  lossless  line  segment.  The  results  of 
the  simulation  for  pressure  at  point  A  is  shewn  in  Figure  144  ,  and  is  essentially 
the  same  as  Figure  143. 


Cl  C2  C3  C4  C5 


GP03-0077S4 

FIGURE  138.  LINE  SifS^EM  WITH  LOSSLESS  LINE  SEGMENT 


TA3LE  21.  HYTRAN  INPUT  DATA  FOR  LOSSLESS  LINE  SYSTEM 


****  LIVE  SYSTEM  WITH  LOSSLESS  LINE  SEGMENT 


.0001 

4  5 


0 
2 
0 
0 
61 
3000. 
2  11 


11 

23 

.10 
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FIGURE  139-  COMPARISON  OF  A  0.444  IN.  ID  LOSSLESS  LINE 

WITH  A  1/2  IN.  LINE  SYSTEM 
100  IN.  ALONG  LINE  1 


figure  140.  COMPARISON  OF  A  0.078  IN.  ID  LOSSLESS  LINE 
WITH  A  BASELINE  1/2  IN.  LINE  SYSTEM 
100  IN.  ALONG  LINE  1 
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figure  141.  COMPARISON  OF  A  0.884  IN.  ID  LOSSLESS  LINE 
WITH  A  BASELINE  1/2  IN.  LINE  SYSTEM 
10C  IN.  ALONG  LINE  1 
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FIGURE  142.  3.5"  ID  LOSSLESS  LINE  COMPUTER  RUN 
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FIGURE  143.  COMPARISON  OF  A  0.444"  ID  LOSSLESS  LINE  WITH  A  BASELIUF. 
1/2"  and  1/4"  LINE  SYSTEM 


FIGURE  144.  COMPARISON  OF  A  0.206"  ID  LOSSLESS  LINE  WITH  A  BASELINE 
1/2"  and  1/4"  LINE  SYSTEM 
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A  run  was  made  substituting  a  4.0"  ID  x  10"  long  line  for  line  2  in  t.he 
baseline  system  in  Figure  137.  The  base  line  pressure  at  point  A  is  compared  to  the 
lossless  line  runs  using  a  0.444"  ID  and  4.0"  ID  in  Figures  145  and  146  res¬ 
pectively.  Using  the  0.444"  ID  line  gives  a  better  approximation  than  the 
4.0"  ID  line. 

Figure  147  shows  the  effect  of  the  lossless  line  model  when  the  line  length 
is  greater  than  the  minimum  calculation  grid  (Ax)  size.  There  are  two  Ax's  In 
the  lossless  line.  The  lossless  lire  had  a  0.444"  ID  and  the  system  line 
lengths  were  those  shown  in  Table  21.  The  frictionless  case  has  slowed  the 
waveform  because  of  the  delay  in  traveling  across  the  two  Ax  segments. 

(2)  DIRECT  COUPLING  APPROACH 

Direct  component  coupling  using  the  method  of  characteristics  for  trans¬ 
porting  fluid  flow  and  pressure  involves  two  techniques.  In  the  first,  the 
HYTRAN  program  would  create  frictionless  lines  between  the  connected  components. 

The  major  stumbling  block  is  the  proper  selection  of  a  line  area  by  the  program. 

Most  of  the  HYTRAN  component  models  do  not  have  port  diameters.  If  they  did, 
the  area's  would  not  necessarily  be  the  correct  ones  to  use.  What  area  would 
the  program  select  for  the  Arresting  Hook  Subsystem's  two-way  restrictor  on 
the  inlet  port  of  the  actuator?  Even  though  the  programming  would  be  relatively 
straight-forward,  selecting  an  appropriate  port  diameter  is  best  left  to  the 
program  user  because  of  the  varying  design  conditions  encountered.  A  lossless 
line  model  would  be  better  than  this  technique. 

The  second  technique  would  omit  the  closely  coupled  line.  The  method  of 
characteristics  requires  the  simultaneous  solution  of  the  line  end  boundary 
conditions  with  the  component  equations  for  the  pressures,  flows,  and  other 
component  variables.  With  the  line  segment  removed  the  components  are  directly 
coupled  and  the  component  algorithms  must  be  solved  simultaneously  for  the 
pressure  and  flow  upstream  and  downstream  of  the  connected  components  as  well 
as  the  component  variables. 

lHis  would  be  a  large  programming  task,  Ev.iry  component  subroutine  in 
HYTRAN  would  require  the  addition  of  a  submodel.  The  submodels  could  be  linked 
through  appropriate  input  flags  on  the  component  integer  cards.  New  control 
subroutines  would  be  required  to  combine  the  submodels  and  perform  the  computa¬ 
tions.  The  size  of  the  HYTRAN  program  would  probably  double  in  core  size 
and  the  running  time  would  significantly  increase  even  for  the  simplest  systems. 

The  complexity  of  this  approach  eliminates  any  advantages  obtained  from  reducing 
the  number  of  lines.  It  is  impossible  for  this  technique  to  be  any  more 
efficient  than  the  lossless  line  approach,  or  decreasing  the  time  step  size 
for  a  more  accurate  simulation. 
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FIGURE  145.  COMPARISON  OF  A  0.444  IN.  ID  LOSSESS  LINE 
WITH  A  BASELINE  1/2  IN.  AND  4.5  IN.  LINE  SYSTEM 
100  IN.  ALONG  LINE  1 


figure  146.  COMPARISON  OF  A  4.0  IN.  ID  LOSSLESS  LINE 

WITH  A  BASELINE  1/2  IN.  AND  4.5  IN.  LINE  SYSTEM 
100  IN.  ALONG  LINE  1 
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FIGURE  147.  RUN  WITH  TWO  DELTA  X'S  IN  A  0.444"  ID  LOSSLESS  LINE 

(3)  PORT  ENERGY  METHOD 

Analytically  the  best  approach  would  be  to  develop  port  energy  models 
for  all  the  components  in  the  HYTRAN  program. 

Development  of  a  block-oriented  simulation  program  would  require 
components  to  be  modeled  in  terms  of  the  physical  variables  which  are  defined 
at  the  component  ports.  These  variables  are  called  port  variables  where 
"port"  refers  to  the  points  at  which  components  are  interconnected. 

Port  variables  for  multiport  component  models  can  be  chosen  in  two  ways. 
One  method  defines  port  variables  such  that  the  product  of  the  two  variables 
at  a  port  equals  the  rate  at  which  energy  passes  through  the  port.  In  the 
other  method,  the  product  of  the  port  variables  represents  the  net  energy 
which  has  crossed  the  port. 

Hydro-mechanical  systems  can  be  modeled  in  terms  of  five  port  variable 
pairs  which  are  (pressure,  flow),  (force,  position),  (force,  velocity), 
(torque,  angular  position),  and  (torque,  angular  velocity).  Thermal  effects 
could  be  included  by  two  additional  port  types  which  include  the  effect  of 
heat  transfer  and  the  Internal  energy  in  a  fluid  stream  and  a  wall  mass. 
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The  ports  are  the  independent  end  dependent  variables  of  the  component 
model.  The  coupling  of  component  models  to  form  a  system  model  causes  the 
Independent  and  dependent  variables  at  connected  ports  to  be  interrelated. 
Therefore,  a  port  can  be  independent  with  respect  to  one  component,  dependent 
with  respect  to  the  connected  component,  and  unknown  with  respect  to  the  system 
model.  Equations  are  established  which  allow  for  the  simultaneous  solution 
of  the  system  model  parameters. 

The  simulation  can  be  considered  as  a  type  of  network  analysis.  The 
advantage  over  an  electrical  network  simulation  is  the  ability  to  include 
the  non-linear  response  of  the  hydraulic  components  and  the  use  of  a  multi- 
port  model  which  usually  cannot  be  decoupled  from  the  system.  Each  port  can 
be  connected  to  the  appropriate  port  of  another  component.  Once  the  system 
is  assembled  all  the  port  variables  are  solved  simultaneously. 

Algorithms  developed  by  Smith  (REF  (ll))and  Ebbesen  (REF  (12))  assume  a  system 
can  be  represented  as  a  set  of  coupled  components.  Each  component  is  described  by 
differential,  algebraic,  and  difference  equations,  and  port  variables  provide 
the  inputs  and  outputs.  There  are  no  restrictions  concerning  acceptable  ports 
as  long  as  two  variables  exist  at  each  port  with  one  being  independent  and 
the  other  dependent  with  respect  to  a  reference  component. 

The  port  energy  method  would  require  the  complete  rewriting  of  the  HYTRAN 
program.  Although  the  approach  allows  for  direct  connection  of  components  and 
could  reduce  the  amount  of  computer  core  storage  and  program  execution  time, 
the  manpower  time  and  cost  of  implementing  these  changes  are  prohibitive 
within  the  present  contract. 
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5.  HYTRAN  PROGRAM  IMPROVEMENTS 

The  HYTRAN  program  improvements  consist  of  six  new  or  improved  component 
models.  These  improvements  will  allow  simpler  data  input  in  some  cases  and 
generally  provide  more  accurate  component  simulation. 

In  addition  to  component  models  several  enhancements  were  made  to  the  utility 
subroutines.  The  improvements  are  discussed  in  the  following  sections. 

a.  SUBROUTINE  VALV21 

The  simple  two  way  control  valve  model  (Subroutine  VALV21)  has  been  changed 
to  allow  the  input  data  to  consist  of  rated  flow  and  pressure  drop  or  the 
slot  width  and  discharge  coefficient  as  required  before.  This  allows  the 
user  to  simulate  a  valve  without  having  detailed  knowledge  of  its  internal 
workings.  See  Appendix E  for  the  user  and  technical  manual  sections. 

b.  SUBROUTINE  CVAL31 

The  dynamic  solution  technique  of  the  check  valve  model  (Subroutine 
CVAL31)  has  been  changed  to  allow  a  more  stable  simulation.  The  improved  model 
stability  will  reduce  any  system  instabilities  caused  by  an  oscillating  poppet, 
as  was  common  with  the  old  model.  The  model  can  also  be  used  to  simulate  high 
cracking  pressure  relief  valves.  Appendix  F  contains  the  user  and  technical 
manual  sections. 

c .  SUBROUTINE  CREL32 

The  priority  valve  model  (Subroutine  CREL32)  has  been  updated  to  be  more 
representative  of  this  type  of  component  than  the  old  model  was.  As  before, 
it  is  still  a  simple  model,  simulating  flow  characteristics  instead  of  spring/ 
mass/flow  relationships.  The  subroutine  cannot  be  used  as  a  detailed  dynamic 
model  of  a  priority  valve,  but  does  provide  a  useful  component  in  total  system 
simulation.  The  user  and  technical  manual  write-ups  are  in  Appendix  G. 
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d.  SUBROUTINE  REST41 

The  two  way  restrictor  model  (Subroutine  REST41)  has  been  changed  to  allow 
the  user  to  model  its  characteristics  by  either  rated  flow  and  pressure  drop 
or  orifice  diameter  and  discharge  coefficient.  Cavitation  models  have  been  added 
to  both  ports.  See  Appendix  H  for  the  user  and  technical  manual  sections. 

e.  SUBROUTINE  RSVR63 

A  level  sensing  (RLS)  bootstrap  reservoir  model  (Subroutine  RSVR63)  has 
been  added.  Themodel  combines  the  characteristics  of  four  different  components 
(one  branch,  one  bootstrap  reservoir,  and  two  restrictors)  into  one.  Appendix  I 
contains  the  user  and  technical  manual  write-ups. 

f.  SUBROUTINE  ACT108 

A  dual  system,  tandem,  valve  controlled  actuator  (Subroutine  ACT108) 
simulates  a  two  system,  linear,  valve  controlled  actuator  of  the  type  commonly 
used  in  flight  control  actuation  systems.  The  model  provides  the  mechanical 
interface  between  two  separate  hydraulic  systems.  The  user  and  technical  manual 
sections  are  in  Appendix  J. 

g.  SYSTEM  ARRANGEMENT  DATA 

An  explantion  of  the  zero  flow  leg  feature  has  been  added  to  the  arrangement 
data  section  of  the  HYTRAN  user  manual.  The  revised  section  is  shown  in  Appendix 
K. 

h.  OUTPUT  DATA  REQUIREMENTS  \ 

The  user  can  select  the  Y  axis  scales  for  any  output  graph ,\.The  required 

'/ 

user  information  is  presented  in  Appendix  L. 

i.  OUTPUT  SUBROUTINES 

Changes  made  to  the  technical  manuals  output  subroutines  are  documented 
in  Appendix  M. 

j.  FUNCTION  SECORD 

The  function  secord  provides  a  second  order  response  to  either  a  step  in¬ 
put  or  impulse  forcing  function.  The  function  is  used  by  the  empirical  pump 
model  and  the  HYTRAN  technical  manual  write-up  is  in  Appendix  N. 

k.  BLOCK  DATA  AND  COMP  SUBROUTINE 

The  block  data  and  comp  subroutine  listings  incorporating  the  new  models 
is  presented  in  Appendix  0. 

l.  LINE  MODEL  AND  DYNAMIC  FRICTION 

The  lossless  line  model  changes  are  documented  in  Appendix  P. 
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SECTION  III 
HSFR  PROGRAM 


The  Hydraulic  System  Frequency  Response  program  (HSFR)  was  investigated 
with  the  objective  of  improving  the  accuracy  of  predicted  pulsation  amplitudes, 
developing  techniques  for  empirically  determining  the  internal  impedance  of  a 
typical  pump,  and  to  further  extend  program  capabilities.  A  key  element  of  the 
investigation  of  empirical  techniques  was  to  have  been  development  of  an  oscil¬ 
lating  piston  acoustic  source.  However,  mechanical  problems  with  bearings  in 
the  device  precluded  gathering  meaningful  data.  Program  revisions  were  made  to 
improve  the  flow  calculation  in  the  pump  model.  The  main  program  was  revised 
to  include  the  capability  to  plot  the  standing  pressure  wave  in  a  given  section 
of  the  circuit  at  the  option  of  the  user. 

1.  BACKGROUND 

The  HSFR  program  was  developed  to  simulate  the  dynamic  response  of  a 
hydraulic  system  to  the  acoustic  noise  generated  by  the  pump.  The  program  pre¬ 
dicts  how  oscillatory  flows  and  pressures  caused  by  the  acoustical  energy  content 
of  a  pump  output  are  transmitted  through  lines  and  components  of  a  hydraulic 
system.  Resonance  can  occur  if  a  frequency  of  the  oscillatory  output  coincides 
with  a  natural  frequency  of  the  system.  Resonant  conditions  can  produce  large 
oscillatory  pressure  and  flow  amplitudes  which,  in  turn,  can  cause  excessive 
line  motion  and  stresses,  resulting  in  premature  failure  of  system  lines  and 
components . 

1  The  HSFR  program  predicts  the  pump  speeds  at  which  major  resonances  occur 
with  excellent  correlation  accuracy.  However,  the  prediction  of  peak  pressure 
pulsation  amplitude  has  typically  been  significantly  inaccurate;  i.e.,  up  to 
30%  or  greater  above  measured  values. 

The  capabilities  of  available  instrumentation  provide  good  measurement  of 
pressure  values.  However,  flow  measuring  devices  have  been  unable  to  provide 
sufficiently  accurate  data  to  allow  intelligent  modification  of  the  program 
based  on  the  results  of  empirically  determined  definition  of  the  dynamics  of 
the  interaction  between  the  pump  and  system.  Accordingly,  the  major  thrust  of 
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current  investigative  efforts  concentrated  on  the  definition  and  calculation 
of  the  dynamic  flow  signal  which  is  output  by  the  pump. 

2.  AMPLITUDE  PREDICTION 

The  amplitude  of  pressure  pulsations  in  the  circuit  depend  on  the  relation¬ 
ship  between  the  dynamic  flow  signal  produced  by  the  pump  and  the  impedance  of 
the  circuit  load.  The  program  calculates  the  dynamic  flow  output  of  the  pump 
taking  into  account  the  variation  of  swash  angle  with  RPM  required  to  supply 
steady  state  and  leakage  flow  demand,  the  pump  valving  geometry,  and  charac¬ 
teristics  of  the  fluid  being  used. 

The  pump  is  modeled  as  an  acoustic  source  with  a  parallel  shunt  impedance. 
The  dynamic  flow  signal  generated  by  the  pumping  action  of  the  pistons  is 
modified  by  the  pump  internal  impedance  before  traveling  to  the  outlet  of  the 
pump  where  interaction  with  the  circuit  load  (impedance)  produces  dynamic 
pressure  pulsations. 

a.  Study  Results 

The  PUMP  subroutine  of  the  JHSFR  program  was  reviewed.  The  swash 
an, 'jle  calculation  was  completely  revised  to  provide  better  steady 

state  flow  balance.  The  flow  calculation  was  re-derived  and  routines  were 
included  to  insure  calculation  stability.  Definition  of  the  dynamic  flow  wave¬ 
form  by  Fourier  Analysis  of  time  dependent  outlet  flow  remained  essentially  un¬ 
changed.  The  dynamic  pressure-flow  balance  section  was  completely  revised  to 
analyze  the  internal  (shunt)  dynamic  flow.  Inlet  flow  calculation  and  inlet 
pressure-flow  dynamic  balance  sections  of  the  program  were  revised  to  incor¬ 
porate  the  changes  made  for  outlet  analysis.  The  torque  calculation  section 
of  the  program  was  not  changed. 

A  technical  description  and  listing  of  the  revised  PUMP  subroutine  is 
included  in  Appendix  A. 

(1)  Valve  Area  Calculation  -  Equations  for  an  exact  solution  to  the  area 
calculation  for  the  piston  slot  opening  to  the  valve  plate  pressure  and  suction 
slots  were  developed.  The  previous  math  model  made  certain  simplifying 
assumptions  relative  to  the  geometry  of  the  valve  openings  which  resulted  in 
approximation  errors  in  the  calculation.  The  errors  introduced  by  these 
approximations  were  small,  but  tended  to  be  cumulative  in  nature.  The  revised 
program  eliminates  the  approximation  errors. 
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(2)  Steady  State  Swash  Angle  Calculation  ~  This  section  was  revised  to 
provide  an  exact  balance  (within  +0.01  CIS)  between  input  and  calculated 
steady  state  flow  demand.  The  previous  program  assumed  that  balance  was 
achieved  when  the  calculated  steady  state  flow  error  fell  below  +  0.01  CIS. 
However,  analysis  of  the  results  obtained  showed  that,  after  the  swash  angle 
calculation  for  the  first  several  RPM's,  the  error  would  overshoot  in  the 
negative  direction.  This  resulted  because  the  swash  angle  for  each  succeeding 
RPM  was  based  on  the  previously  calculated  value.  The  incremental  swash  angle 
used  to  make  the  adjustment  was  based  on  an  estimate  of  the  incremental 

flow  change  per  RPM.  This  method  proved  to  be  in  error. 

The  program  was  revised  to  calculate  the  swash  angle  for  each  RPM  indepen¬ 
dently  .  An  interpolation  routine  between  minimum  and  maximum  flow  capability 
at  each  RPM  is  used.  The  revised  program  includes  an  iteration  balance 
routine  so  that  undershoot  error  is  recognized  and  corrected. 

(3)  Flow  Calculation  -  The  equations  defining  output  for  one  piston 
of  the  pump  as  it  traverses  the  pressure  slot  were  re-derived  using  flow 
balance  criteria.  The  previous  program  used  pressure  balance  criteria  to 
establish  time  dependent  flow.  This  approach  is  subject  to  sensitivity  error 
because  very  small  changes  to  quite  large  pressure  values  are  used  to  predict 
flow. 

The  revised  calculations  provide  a  check  and  balance  iteration  between 
the  results  of  two  independent  equations  to  predict  flow.  Hie  iteration  pro¬ 
cess  continues  until  an  absolute  error  less  than  1/2%  between  succeeding  flow 
calculations  is  achieved.  The  calculation  converges  rapidly  on  flow  balance, 
usually  requiring  no  more  than  four  iterations. 

(4)  Dynamic  Pressure-Flow  Balance  -  The  most  significant  changes  to  the 
PUMP  subroutine  were  made  in  this  section.  The  previous  program  estimated  a 
value  for  pump  internal  shunt  Impedance  and  used  the  resulting  total  impedance 
to  produce  a  complex  dynamic  test  pressure.  Flow  calculations  were  repeated 
and  the  resulting  difference  in  output  flow  was  used  to  correct  the  internal 
impedance  and  dynamic  pressure  values.  The  third  calculation  of  pump  flow 
was  assumed  to  be  the  flow  passed  to  the  circuit,  from  which  dynamic  pressure 
was  derived . 

The  revised  program  uses  the  first  calculation  of  flow  (which  assumes 
zero  dynamic  pressure  and  therefore  zero  Internal  impedance)  with  circuit 
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impedance  to  produce  a  test  pressure.  Flow  is  recalculated,  as  before,  except 
that  an  exact  value  of  internal  impedance  is  calculated  using  the  known 
dynamic  pressure  and  pump  total  flow  values.  The  exact  value  of  internal  im¬ 
pedance  is  then  used  to  calculate  shunt  dynamic  flow. 

A  new  test  pressure  is  produced  equal  to  1/2  of  the  previous  value.  Flow 
is  again  calculated,  as  are  shunt  impedance  and  flow  for  the  new  test  pressure. 

The  key  to  this  approach  is  that  exact  shunt  impedance  is  calculated  for 
each  case.  There  are  no  estimations  involved  and  no  corrections,  adjustments 
or  approximations  are  introduced.  Shunt  impedance  for  the  two  test  pressures 
are  nearly  identical;  the  differences  between  them  may  be  accounted  for  in  the 
Fourier  Analysis  of  total  pump  output  flow. 

Values  are  now  known  for  shunt  impedance  and  shunt  flow  for  the  same 
circuit  (pump  model)  at  different  conditions  (two  test  pressures).  The  Norton 
Equivalent  circuit  electrical  analogy  may  be  used  to  calculate  output  dynamic 
pressure.  This  dynamic  pressure  may  now  be  used  with  the  circuit  load  impedance 
to  determine  that  part  of  total  pump  dynamic  output  flow  which  passes  to  the 
circuit. 

(5)  Other  Changes  -  The  inlet  flow  calculation  and  inlet  dynamic  pressure- 
flow  balance  sections  of  PUMP  were  revised  to  Incorporate  the  changes  made  in 
the  outlet  flow  calculation  and  outlet  dynamic  pressure-flow  balance  sections, 
respectively.  Only  minor  changes  were  made  in  the  remaining  sections. 

Preprogrammed  write  options  were  included  at  appropriate  places  in  the 
PUMP  subroutine  so  that  selected  data  calculated  by  the  program  may  be  written 
for  detailed  analysis  of  pump  performance. 
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b.  Verification  Tests 

The  primary  verification  of  the  changes  made  to  the  program  was  by  com¬ 
parison  to  previously  conducted  F-15  pump  verification  tests  *  These  teats 
were  conduct* -J  *3  part  of  the  original  program  ievel^pment  effort  and  are 
discussed  in  Section  IV  of  Reference  (1) .  N^w  verification  tests  using  a 
similar  short  line  test  circuit  with  an  F-15  pump  were  also  conducted. 

(1)  F-15  Pump  Verification  Test  -  The  9  ft.  test  circuit  shown  in  Figure  47 

of  Reference  (1)  was  modeled  for  use  with  the  revised  program.  Three  con¬ 
ditions  for  which  original  data  is  available  were  run: 

0  Run  64-83-P1  (0  GPM)  Figure  51,  Reference  (1) 

0  Run  64-81-PI  (2.0  GPM)  Figure  53,  Reference  (1) 

0  Run  64-80-PI  (10.0  GPM)  Figure  54,  Reference  (1) 

The  revised  program  provides  significantly  improved  amplitude  correlation 
with  the  recorded  data  as  shown  in  Figure  148  except  for  the  10  GPM  flow  case. 
Analysis  of  the  trends  of  both  computed  and  measured  data  suggest  that  the 
peak  pressure  for  10  GPM  at  the  3850  RPM  resonance  should  be  in  the  range  of 
450-500  psip. 

Note  that  computed  peak  pressures  are  shown  for  different  temperatures. 
Temperature  sensitivity  analysis  is  discussed  in  Appendix  B  of  Reference  (3). 

( 2)  Short  Line  Test  Circuit  Verification  -  An  F-15  pump  was  installed  In 
the  test  circuit  shown  in  Figure  149.  Piezoelectric  type  transducers  were 
used  to  record  pressure  amplitude.  The  pressure  measurements  PI  through  P5 
were  taken  at  10  inch  intervals  along  the  line  beginning  at  the  upstream  end 
of  the  108  inch  test  section.  Temperature  was  measured  at  the  inlet  of  the 
test  section. 

Data  was  recorded  on  analog  tape  as  the  pump  speed  was  swept  from 
1000  to  5000  RPM.  Data  was  played  back  from  the  analog  tape  through  a  signa¬ 
ture  ratio  adapter  to  make  X-Y  plots  of  Fundamental  Amplitude  versus  RPM. 

The  circuit  was  modeled  for  use  with  the  revised  HSFR  program.  Peak 
pressure  amplitude  values  were  computed  at  junctions  in  the  circuit  corre¬ 
sponding  to  the  locations  for  which  pressure  measurements  were  made.  The 
computed  values  were  plotted  on  the  recorded  data  for  the  fundamental  frequency. 
The  results  are  shown  in  Figure  149. 

Correlation  between  predicted  and  measured  values  for  this  circuit  is 
considered  quite  good,  especially  for  the  resonant  frequency  near  3900  RPM. 
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FIGURE  148  (CONCLUDED) 


The  bandwidth  of  the  predicted  resonant  peak  is  narrower  than  the 
measured  data  indicates.  However,  a  plot  of  the  standing  pressure  wave, 
constructed  from  either  the  measured  or  predicted  peak  values,  would 
yield  a  good  picture  of  the  pressure  pulsation  "signature"  in  the  section. 
Interpretation  of  the  data  should  be  subject  to  the  sensitivities  discussed 
in  Appendix  B  of  Reference  (3). 
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3.  ATTENUATION  TECHNIQUES 

a.  Introduction 

The  purpose  of  this  portion  is  to  compile  information  regarding 
various  techniques  for  the  control  of  pressure  pulsations  in  aircraft  hydraulic 
systems.  Information  provided  should  serve  as  a  guide  in  solving  pulsation 
problems.  Pulsation  control  techniques  enumerated  herein  are  drawn  from  the 
experience  of  MCAIR  during  the  design,  test,  and  manufacture  of  military  jet 
fighters,  and  during  the  development,  verification,  r.;»u  application  of  the  Hydraulic 
System  Frequency  Response  (HSFR)  computer  program. 

b .  Background 

The  ripple  in  the  flow  output  of  a  piston-type  hydraulic  pump  is  transmitted 
throughout  the  supply  side  of  the  hydraulic  system.  The  dynamic  resistance 
(impedance)  of  the  hydraulic  fluid  column  creates  pressure  pulsations  throughout 
the  hydraulic  supply  system.  The  flow/pressure  pulsations  have  a  frequency  of  750  hz 
for  a  nine-piston  pump  rotating  at  5000  rpm. 

When  the  frequency  (speed)  of  the  acoustic  source  (pump)  is  equal  to  a 
natural  frequency  of  the  hydraulic  fluid  column,  a  resonance  condition  occurs. 
Pressure  pulsations  at  resonance  may  be  very  high;  +  1000  psi  in  a  3000  psi 
system.  These , resonant  conditions  are  potentially  very  destructive  to  the  system 
hardware.  In  extreme  cases,  the  pressure  vessel  (lines  or  components)  may  reach 
fatigue  failure  limits  in  a  few  minutes.  Hydraulic  fl 3w/pressure  pulsations 
excite  high  frequency  mechanical  motion  in  lines  and  components.  Excessive 
motion  causes  stresses  which  may  result  in  failure  of  lines,  components,  and/or 
mounting  hardware. 

Pump  discharge  lines  are  generally  the  most  vulnerable  since  they  are  in 
the  area  of  maximum  acoustic  energy  close  to  the  pump.  Dead-end  lines  to  service 
ports  and  pressure  transmitters  are  also  highly  vulnerable  to  pulsation  induced 
damage . 

Pressure  pulsations  also  occur  in  the  pump  suction/return  system.  Normally, 
the  suction  system  is  not  a  problem  because  of  the  low  pressure  at  which  it 
operates.  However,  thin  wall  tubing,  high  installation  stresses,  and  an  adverse 
resonance  condition  could  produce  suction  system  failures. 
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c.  Prediction  and  Measurement  Of  Hydraulic  System  Resonance  Conditions 

The  Hydraulic  System  Frequency  Response  (HSFR)  computer  program  was  developed 

to  predict  the  pump  speeds  at  which  hydraulic  resonance  occurs,  and  the  amplitude 
of  pressure  pulsations  at  resonance.  Use  of  the  program  is  easy  to  learn  with 
a  couple  weeks  of  on-the-job  training  and  the  guidance  of  the  user's  manual, 
(Reference  3) .  Interpretation  of  results  for  basic  design  purposes  is  also 
explained  in  the  HSFR  user's  manual.  Detailed  understanding  of  the  program 
theory  and  logic  requires  much  longer  and  is  documented  in  the  HSFR  technical 
manual  (Reference  4) .  The  program  is  relatively  small  and  inexpensive  to  use. 

Pump  speeds  at  which  system  resonance  occur  are  easily  recognized  from  the 
computed  output  plots  of  pressure  pulsations  vs  pump  speed.  Program  output 
is  formated  the  same  as  system  pressure  recorded  on  a  spectrum  analyzer  during 
a  sweep  through  the  operating  range  of  the  pump  (Reference  3)  . 

If  pressure  pulsations  at  different  locations  in  the  pump  discharge  line 
are  plotted  for  a  given  resonant  speed,  a  standing  pressure  wave  is  the  result. 

The  standing  wave  is  the  result  of  superimposed  incident  and  reflected  acoustic 
waves  in  the  hydraulic  line.  It  is  a  key  aspect  to  the  accurate  prediction 
and  measurement  of  system  pressure  pulsations.  The  location  of  a  pressure 
transducer  only  at  the  pump  outlet  usually  docs  not  give  a  true  picture  of 
maximum  pressure  pulsations  in  the  system. 

MCAIR  developed  and  routinely  uses  a  roving  piezo-electric  transducer  to 
map  standing  waves  in  the  system.  It  is  clamped  on  the  hydraulic  line  in 
enough  accessible  locations  to  define  the  standing  wave  and  maximum  pulsations 
at  each  resonant  speed.  Strain  gage  measurement  of  internal  line  pressures 
is  a  workable  technique  in  the  laboratory  where  calibration  and  zeroing  before 
and  after  line  installation  can  be  controlled.  However,  it  is  difficult  to 
obtain  useful  pressure  data  on  an  aircraft  with  this  technique  during  ground 
and  flight  tests.  Roving  transducers  can  be  used  on  the  aircraft  during  ground 
tests  to  provide  good  pressure  pulsation  data. 

Typical  computed  and  measured  pulsations  are  compared  in  Figures  150  and  151 
from  Reference  3.  The  HSFR  program  will  automatically  plot  standing  waves 
at  the  discretion  of  the  user. 
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FIGURE  151  STANDING  PRESSURE  HALF  WAVE,  TEST  STAND  F4  ABEX  PUMP 


The  HSFR  program  is  excellent  at  predicting  the  pump  speeds  at  which 
hydraulic  resonances  occur.  Amplitude  prediction  is  usually  pessimistic. 
Fortunately,  this  does  not  seriously  hamper  the  usefulness  of  the  program. 
System  changes  may  be  identified  which  will  relocate  resonant  frequencies 
away  from  continuous  operating  pump  speeds.  Simple,  short  (<10  ft.)  central 
systems  with  only  two  or  three  resonant  speeds  in  the  operating  range,  allow 
"room"  for  safe  relocation  of  resonant  speeds  if  there  are  only  two  or  three 
continuous  operating  speeds.  Fluid  temperature  and  temperature  changes  are 
important.  An  80°F  increase  in  the  temperature  of  MIL-H-5606  fluid  will  reduce 
system  resonant  speeds  by  10Z  <3600  rpm  from  4000  rpm) . 
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d.  Acceptable  Levels  Of  Pressure  Pulsations 

The  coupling  of  hydraulic  to  mechanical  resonances  is  a  complex  phenomenon, 
and  is  a  function  of  line  size,  configuration  (routing),  and  installation 
constraints.  Total  stresses  in  lines  are  a  combination  of  hoop  stress  from 
internal  pressure  and  bending  stress  due  to  installation  and  induced  vibration. 
Large  pump  discharge  and  suction  lines  (1  inch  OD)  are  particularly  vulnerable 
to  high  installation  stress.  Total  combined  line  stress  must  be  low  enough  to 
provide  infinite  fatigue  life.  Self-aligning  fittings  can  virtually  eliminate 
installation  stresses. 

An  acceptable  level  of  pressure  pulsations  in  one  system  may  not  be 
acceptable  in  another  system  due  to  differences  in  mechanical  response.  MCAIR 
has  determined  via  laboratory  tests  and  F-15  experience  that  high  frequency 
line  motion  induced  by  pressure  pulsations  cannot  be  controlled  by  normal  line 
support  techniques  (clamps) .  Clamps  must  be  designed  to  withstand  the  line 
vibration  without  wearing  out  the  cushion  and  chaffing  through  the  line. 

MCAIR  laboratory  tests  and  flight  experience  indicates  the  following  relationships 
between  central  system  pulsations  and  associated  problems. 

MAXIMUM  PULSATIONS  POTENTIAL  PROBLEMS 

PEAK-PEAK _  _ _ 

>  600  psi  Rapid  failure  of  pump  discharge  line  due 

to  pressure  and  vibrational  stresses. 

Possible  failures  of  mounting  structure 
and  internal  functions  of  central  components. 

150  -  600  psi  Line  clamp  cushion  wearout,  line  failure 

due  to  clamp  chaffing,  poor  clamp 
life,  frequent  inspections  required, 
discharge  line  check  valve  wearout. 


<  150  psi  Trouble  free,  long  life  system. 

The  first  category  (>  600  psi)  is  a  potential  safety  of  flight  situation.  The 
second  category  is  one  of  nuisance  level  problems  which  probably  surface  only 
after  a  considerable  amount  of  operational  flight  experience.  The  best  approach 
is  to  verify  acceptable  line  stresses  on  the  iron  bird  and  the  first  flight 
aircraft  to  preclude  failures  of  the  first  category.  The  computer  program  should 
be  used  early  in  the  design  stage  to  predict  resonant  speeds.  Pump  to  filter 
line  lengths  or  other  simple  plumbing  changes  may  be  identified  to  relocate 
resonances  away  from  continuous  operating  speeds. 
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If  stress  levels  are  not  acceptable,  wideband  attenuators  must  be  considered, 
or  hoses  for  mechanical  decoupling. 

Beyond  the  central  system,  i.e.  away  from  the  high  acoustic  energy  of  the 
pumps,  gearboxes,  and  engines,  the  vibration  environments  are  relatively  benign. 
Good  line  support  and  adequate  clearances  between  lines  and  lines  and  structure 
precludes  significant  vibration  related  problems. 

e.  Pulsation  Control  Techniques 

Pressure  pulsations  in  the  central  hydraulic  system  can  be  manipulated  by 
several  techniques  which  fall  into  two  basic  categories:  (1)  relocation  of  resonant 
frequencies,  (2)  wideband  attenuation  of  pulsation  amplitudes. 

(1)  Relocation  of  Resonant  Frequencies 

Techniques  which  relocate  resonant  frequencies  in  the  central  hydraulic 
system  can  range  from  simple  changes  in  line  lengths  and  sizes  to  the  use  of 
acoustic  components  Such  as  Helmholz  resonators.  The  primarily  benefit 
of  this  type  device  is  to  relocate  the  system  resonances  away  from  continuous 
operating  speed  points;  ideally  above  or  below  the  operating  speed  range  of  the 
pump.  A  secondary  benefit  may  ke  a  reduction  in  pulsation  amplitude.  However, 
a  reduction  downstream  of  such  a  device  may  be  accompanied  by  an  increase  in 
pulsations  upstream  of  the  device. 

(a)  Choke  Line 

The  original  installation  of  the  F— 15  PC  systems  produced  a  system  hydraulic 
resonance  at  the  cruise  pump  speed.  Through  an  iron  bird  test  effort  and  HSFR 
computer  analysis,  a  solution  to  the  problem  was  found.  A  5/8  inch 
O.D.  x  22  inch  "choke"  line  was  inserted  just  downstream  of  the  pump  outlet. 

This  introduced  a  new  reflection  point  in  the  system  upstream  of  the  pressure 
filter.  Testing  and  HSFR  analysis  indicated  that  this  change  in  a  portion  of  the 
basic  1  inch  size  supply  line  moved  the  resonance  point  away  from  the  cruise 
condition  and  reduced  the  pressure  pulsation  amplitudes  (Fig.  152).  F-15  production 
aircraft  PC  systems  contain  the  "choke"  line  as  a  result  of  this  effort. 

(h)  Volume 

Emergency  hydraulic  pumps  on  the  F-i5  "Streak  Eagle"  aircraft  were  powered 
by  constant  speed  D.C.  motors.  HSFR  computer  analysis  indicated  that  steady 
state  motor  operating  speed  (3900-4000  rpm)  was  coincident  with  a  system  hydraulic 
resonance  condition  (Fig.  153).  The  HSFR  program  was  used  to  analyse  practical 
changes  to  the  circuit.  Installation  of  an  available  pressure  filter  and  its 
optimum  location  in  the  system  were  determined  by  computer  analysis.  System 
hydraulic  resonance  was  moved  to  2937  rpm,  comfortably  below  the  minimum  pump 
speed  which  resulted  from  variations  in  hydraulic  load.  Subsequent  testing 
of  the  new  configuration  on  the  aircraft  using  roving  transducers  confirmed 
the  computer  predictions. 
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(c)  Line  Length 

A  frequency  analysis  of  the  F-18  hydraulic  systems  was  first  performed 
based  on  preliminary  installation  line  data.  The  analysis  showed  a  strong  system 
resonance  in  the  cruise  to  100%  pump  speed  range  with  fluid  temperature  variations 
expected  during  system  warmup.  The  simplest  and  most  cost  effective  approach 
was  to  change  the  line  lengths  between  the  pump  and  filter  manifold  to  avoid 
resonances  in  the  pump  operating  range  (Fig.  154). 

Optimum  line  lengths  are  of  course  subject  to  installation  and  line  routing 
constraints.  However,  identification  of  optimum  lengths  early  in  the  design 
state  enhances  the  chance  of  incorporating  it  in  the  installation.  The  procedure 
was  followed  successfully  during  design  of  the  emergency  pump  installation  on 
F-18  flight  test  aircraft. 

(d)  Helmholz  Resonator 

The  device  basically  induces  a  volume  effect  into  the  circuit  which  can 
significantly  shift  resonant  frequencies.  A  20  in^  spherical  volume  resonator 
is  attached  to  the  pump  outlet  port  on  production  F-4  hydraulic  systems. 

Location  has  a  direct  effect  on  the  result.  Figures  155  and  156  show 
maximum  pulsations  in  a  test  circuit  with  an  F-4  resonator  mounted  at  different 
locations.  Note  the  shift  in  resonant  frequencies  compared  to  the  baseline 
test  circuit  without  a  resonator  (fig* 155).  Figure  157  shows  standing 
waves  in  one  of  the  resonator  test  circuits.  Note  that  pulsations  are  reduced 
downstream  of  the  resonator  but  are  still  relatively  high  upstream. 

(e)  Accumulators 

An  accumulator  in  the  central  system  produces  a  volume  effect  similar  to 
filters  and  resonators.  Significant  shifts  in  resonant  frequencies  may  be 
produced  by  adding  or  moving  the  location  of  an  accumulator.  Pulsation  amplitudes 
may  be  reduced  by  specific  accumulator  design  and  use  of  the  appropriate  precharge. 
Standard  MS  accumulators  generally  are  not  effective. 

( f )  Hos  es 

Hoses  are  often  mentioned  as  the  solution  to  central  system  pulsation 
problems.  While  they  do  introduce  "softness"  to  the  circuit,  pulsation 
amplitudes  are  not  necessarily  reduced  by  substituting  hoses  for  central  system 
hard  lines.  Pulsation  amplitudes  in  the  F-15  iron  bird  systems  were  about  the 
same  with  hoses  as  they  were  with  hard  lines. 

Hoses  may  provide  mechanical  decoupling  which  can  eliminate  clamp/line 
wearout  problems.  However,  one  must  accept  the  penalties  of  limited  hose  life, 
added  weight  and  cost,  and  larger  diameters. 


196 


PUMP  MANlFOlO  LINE 

12a115lN  1  .  22  IN  (ORIGINAL 

1 0  0305  *  0  29  m  0  0254  .  0  56  m 

5  fi  a  22  IN  iMOOiFlEO 
<0  0159  a  0  56  mi 


LINE  FILTER 

1  .  36  7  IN  14  6  IN  3 

•C  0254, 0  93  m  0  00023  m3 


FIGURE  152  REDUCTION  IN  AMPLITUDE  AND  SH  I  FT  OF  RESONANT 
FREQUENCY  ACHIEVED  BY  A  CHANGE  IN  LINE  SIZE 


TOR  RUMP  SYSTEM  ,I0°F) 


A  0  O  COMPUTED 
▼  •TEST 


0  75  1  01  1  27 

METERS! 


PUMP  FILTER 

port  plate  22  in  3  o  ooom  m3> 


1  52 


2  03 


FIGURE  153  RELOCATION  OF  RESONANT  FREQUENCY 
WITH  ADDED  FILTER.  F15  "STREAK  EAGLE" 


APu  3  t  *  *  CAUlM 

GMOUNO  APPROACH 

lOU 


FIGURE  154  CONTROL  OF  central  system  major  resonant 
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(2)  Attenuation  Of  Pressure  Pulsations 

Techniques  which  significantly  attenuate  system  pressure  pulsations  over 
the  operating  speed  range  of  the  pump  are  included  in  this  category.  Attenuation 
components  added  to  the  central  system  are  the  primary  type  in  this  category, 
however  changes  inside  the  pump  are  also  included.  Attenuators  should  be  located 
as  close  to  the  source  (pump)  as  possible  for  maximum  protection  of  the  down¬ 
stream  system.  Pulsations  at  the  pump  outlet  (upstream  of  attenuator)  may  or  may 
not  be  reduced. 

(a)  Puisco  Attenuator 

This  patented  device  is  shqwn  schematically  in  Figure  158.  It  is  designed, 
manufactured,  and  marketed  commercially  by  the  PULSCO  Division,  American  Oil 
Filter  Co.,  Louisville,  Kentucky.  MCAIR  tested  an  ATP-1  model  sized  for  a 
steady  state  AP  of  100  psi  at  10  gpm.  Tests  were  performed  on  both  a  bench 
system  and  the  F-15  iron  bird  left  utility  system  to  document  performance  and 
verify  a  computer  model  of  the  PULSCO  unit. 

Design  cut-off  frequency  for  the  ATP-1  is  800  Hz  (5333  rpm) ,  Cut-off 
frequency  is  defined  as  the  frequency  above  which  attenuation  of  pressure 
pulsations  is  90%  or  higher,  i.e.,  the  pressure  pulsation  level  transmitted 
downstream  of  the  unit  is  less  than  10%  of  the  input  level.  MCAIR  tests  showed 
significant  attenuation  above  about  60%  of  cutoff  frequency  when  the  unit  was 
installed  at  the  pump  manifold  outlet.  Figure  159  shows  the  effectiveness  of 
the  PULSCO  unit  when  installed  at  the  left  hand  utility  pump  on  the  F-15  iron 
bird.  Pulsations  were  reduced  from  a  maximum  of  350  psi  p-p  (peak-peak)  to 
about  60  psi  p-p  over  the  full  range  of  pump  speed  v.iOOO~4600  rpm)  .  Pulsations 
upstream  at  the  pump  outlet  were  essentially  unchanged.  The  natural  frequency 
of  the  device  (organ  pipe  frequency)  was  computed  at  approximately  2  times 
cutoff  frequency,  well  above  the  using  range. 

A  PULSCO  unit  sized  for  the  F-15  application  (100  pai  AP  at  50  gpm)  is 
estimated  to  weigh  about  6.2  lbs. 

(b)  Quincke  Tube 

MCAIR  has  developed  a  wide  band  attenuator  based  on  the  Herschel-Quincke 
tube.  The  concept  is  shown  schematically  in  Figure  160  .  Although  sized 
for  a  single  frequency  (375  hz-2500  rpm),  the  device  exhibits  significant 
attenuation  over  a  range  of  2090-4500  rpm.  Th.i3  is  adequate  to  cover  the  operating 
range  of  typical  engine  driven  pumps  used  for  primary  hydraulic  power. 
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FIGURE  158  PULSCO  HYDRAULIC  ACOUSTtC  FILTER 
COMPUTER  MODEL  FOR  HSFR  PROGRAM 
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Pressure  Pulsations  23.5  Inches  Downstream  of  Pump  Port 
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FIGURE  161  QUiNCKE  TUBE  TEST  RESULTS 
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Figure  161  shows  pulsations  in  the  left  utility  system  of  the  F-15  iron  bird 
with  and  without  the  MCAIR  prototype  Quincke  tube.  The  unit  was  mounted  directly 
to  pump  manifold  discharge  port.  Attenuation  performance  was  comparable  to  that 
of  the  PULSCO  unit.  Although  adequate  for  the  F-15  application,  the  effective 
range  of  the  Quincke  tube  is  not  as  wide  as  that  obtained  with  the  PULSCO  unit. 
However,  the  MCAIR  prototype  Quincke  tube  weighs  less  than  1/3  as  much  as  a 
PULSCO  unit  (1.7  vs  6.2  lbs)  sized  for  the  F-15  systems.  The  MCAIR  unit  was 
machined  from  titanium  and  has  a  smaller  diameter  (1.75  vs.  2.6  inches) 
and  shorter  length  (10.8  vs.  13.0  inches)  than  the  PULSCO  unit. 

The  MCAIR  prototype  Quincke  tube  has  performed  consistently  in  several  bench 
circuit  configurations,  one  or  both  of  the  F-15  iron  bird  utility  systems,  and 
in  a  simulated  F-18  system.  Pressure  pulsations  upstream  of  the  pump  were  never 
made  any  worse  by  the  Quincke  tube,  and  in  some  case  were  lower. 

MCAIR  developed  and  verified  a  computer  model  of  the  Quincke  tube  for  HSFR 
program. 

(c)  Restrictors 

Restrictors  may  be  used  to  attenuate  pulsations  in  a  dead-ended  line  such 
as  that  terminated  by  a  pressure  transmitter.  If  a  transmitter  must  be  located 
at  the  end  of  a  line,  a  small  restrictor  (.030  dia.)  should  be  placed  at  the 
acoustic  source,  i.e.  the  "T"  where  the  dead-end  line  begins.  This  protects 
the  entire  line  and  transmitter  from  significant  acoustic  energy.  A  secondary 
benefit  is  attenuation  of  system  transient  pressure  spikes  which  may  cause 
erroneous  cockpit  indications  on  a  poorly  damped  pressure  gage. 

(d)  Check  Valves 

A  check  valve  may  be  used  to  acoustically  isolate  a  dead-end  ground  service 
line  which  leads  to  the  system  pressure  supply.  Again,  the  check  valve  must 
be  placed  at  the  downstream  end  of  the  service  line  adjacent  to  the  main  line. 

This  will  isolate  the  service  line  from  acoustic  energy  generated  by  the  on¬ 
board  system  pump  during  normal  aircraft  operation. 
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(e)  Pump  Internal  Effects 

Several  parameters  internal  to  axial  piston  pumps  effect  its  acoustic 
output.  These  are  discussed  below. 

Inherent  Flow  Ripple 

The  summing  of  sinusoidal  flow  outputs  from  pump  pistons  produces  an 
inherent  pulsating  or  ripple  character  in  the  total  output  flow.  The  more 
pistons,  the  smaller  the  amplitude  and  the  higher  the  frequency.  The  amplitude 
of  the  inherent  flow  ripple  varies  with  flow  output  in  a  variable  delivery 
pump.  The  pulsating  outlet  flow  is  the  basic  acoustic  energy  source  which 
results  in  system  pressure  pulsations. 

Pump  Timing 

Timing  in  an  axial  piston  refers  to  the  rotational  position  of  the  drive 
shaft  as  the  rotating  cylinder  slot  begins  to  communicate  with  a  fixed  slot  in 
the  port  valve  plate.  It  is  desirable  to  minimize  the  mismatch  of  pressures 
between  the  cylinder  and  fixed  slot  as  communication  occurs.  Mismatch  causes  a 
transient  flow  surge  which  contributes  significantly  to  acoustic  energy. 

Pre-compression  of  the  oil  in  the  cylinder  between  closure  of  the  cylinder 
to  the  suction  slot  and  its  opening  to  the  outlet  slot  reduces  the  pressure 
mismatch  and  hence  the  outlet  acoustic  source  energy.  In  a  variable  displacement 
pump,  the  optimum  timing  is  usually  set-up  to  occur  at  the  flow  condition  most 
often  encountered.  This  is  steady  state  leakage  flow  on  an  aircraft  hydraulic 
system. 

Timing  changes  which  occur  transiently  during  higher  flow  demands  can 
increase  system  pressure  pulsations. 

Special  Features 

Any  internal  feature  which  increases  the  mismatch  (transient  flow)  during 
slot  communication  will  adversely  affect  system  pressure  pulsations.  One  example 
is  a  by-pass  slot  to  derate  the  flow  delivery  of  a  pump. 
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4.0  EMPIRICAL  PUMP  MODEL 

Improved  accuracy  in  HSFR  component  models  depends  on  the  elimination  of 
test  circuit  effects.  An  objective  of  this  effort  was  to  develop  a  test  circuit 
with  very  low  standing  wave  amplitudes.  The  benefit  of  such  development  is  not 
certain.  However,  it  was  considered  feasible  to  develop  a  standard  test  circuit 
which  would  permit  data  measurement  suitable  for  an  empirical  frequency  model 
of  a  test  pump  of  unknown  internal  characteristics, 
a.  Study  Results 

Further  development  of  the  empirical  pump  model  depended  on  development 
of  a  resonant  free  acoustic  source  for  accurate  dynamic  flow  measurement  in  a 
non-reflective  test  circuit. 

Better  dynamic  flow  measurement  is  essential  to  deduction  of  pump  shunt 
impedance  because  measurable  steady  state  pump  parameters  alone  cannot  be  used 
as  input  data.  Acoustic  source  characteristics  are  dynamic  and  depend  on  many 
internal  pump  parameters;  e.g.,  precompression* port  plate  valving  geometry,  as 
well  as  on  steady  state  flow  and  outlet  pressure. 

The  approach  considered  is  to  test  the  pump  in  a  circuit  of  known  low 
impedance.  Pressure  pulsations  would  be  measured  at  all  pump  speeds.  The 
resonant  free  acoustic  source  (for  which  dynamic  flow  characteristics  would 
be  known)  would  be  tested  in  the  same  circuit  over  the  same  range  of  frequencies. 

The  circuit  impedance  can  be  calculated  given  dynamic  pressure  and  flow 
characteristics  using  the  acoustic  source.  The  dynamic  flow  of  the  pump  can 
then  be  calculated  given  measured  dynamic  pressure. 

Since  the  pump/circuit  is  modeled  as  an  acoustic  source  with  parallel 
shunt  and  circuit  impedance  loads,  the  shunt  impedance  may  then  be  calculated. 
Development  of  a  resonant  free  acoustic  source  offers  other  potential 

Uses: 

o  Provide  a  source  of  measurable  dynamic  flow 

o  Allow  accurate  component  model  verification  with  a  harmonic  free 
acoustic  signal  of  variable  frequency 
o  Allow  endurance  testing  to  a  specific  acoustic  environment 
o  Allow  accurate  measurement  of  load  circuit  Impedance 
o  Provide  calibration  reference  for  evaluation  of  dynamic  flowmeters 
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b.  Verification 

Efforts  directed  toward  development  of  the  acoustic  source  were  plagued 
with  mechanical  problems.  A  simple,  oscillating  piston  device  driven  by  a 
hydraulic  turbine  was  designed  and  built.  The  device  was  sized  to  generate 
pulsating  flows  in  the  range  of  +5  CIS. 

The  turbine  driven  shaft  was  supported  at  either  end  by  close  coupled 
journal  bearings.  An  eccentric  diameter  between  the  bearings  was  used  to  drive 
a  piston  rod  with  a  partial  bearing.  This  in  turn,  drove  the  piston  through 
+  .010  inch  displacement.  Outlet  pressure  acting  on  the  face  of  the  piston 
loaded  the  piston  and  piston  rod  on  the  shaft.  All  bearing  surfaces  and  the 
piston  were  pressure  lubricated  through  internal  passages. 

Initial  testing  of  the  device  showed  promising  results.  The  output 
pressure  waveform  was  nearly  sinusoidal  and  lagged  piston  position  by  the 
expected  180°.  However,  an  unexpected  failure  occurred  early  in  the  checkout 
runs.  The  main  journal  bearings  siezed  the  shaft.  Failure  analysis  suggested 
that  the  bearings  had  overheated. 

The  journal  bearings  were  redesigned  incorporating  a  thicker  wall  to  act 
as  a  better  heat  sink.  Pressurizing  grooves  were  also  incorporated  to  provide 
better  lubrication  flow  to  the  bearing  surface.  The  unit  was  reassembled  and 
testing  was  resumed. 

The  failure  repeated  almost  immediately.  Repeated  efforts  to  replace 
and  rework  bearings  did  not  improve  the  endurance  of  the  unit.  The  result 
was  that  no  useful  data  was  obtained.  Therefore,  further  efforts  to  develop 
the  non-reflective  test  circuit  (required  for  empirical  pump  model  improvement) 
were  abandoned.  •’ 


5.0  STANDING  WAVE  PLOT 

Program  usefulness  has  been  extended  by  adding  the  capability  to  plot 
computed  peak  pressure  values  versus  distance  along  a  section  of  a  circuit. 

The  standing  pressure  wave  thus  produced  has  proven  very  useful  in  evaluating 
the  pattern  of  pressure  pulsations  in  the  circuit.  Preprogrammed  write  options 
have  also  been  incorporated  in  the  PUMP  subroutine  so  that  certain  calculated 
parameters  may  be  written  for  detailed  analysis  of  pump  performance.  The 
standing  pressure  wave  plotting  capability  is  described  in  Appendix  B.  Write 
options  are  discussed  in  Appendix  B  of  Reference  (3). 
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SECTION  IV 
SSFAN  PROGRAM 

1 .  BACKGROUND 

The  SSFAN  computer  program  was  developed  to  analyze  steady  state  flows 
in  a  closed  aircraft  hydraulic  system,  i.e.,  where  the  fluid  leaving  the  pump 
circulates  through  the  system  either  via  a  reservoir,  or  by  direct  line  return, 
or  both.  The  solution  method  used  in  SSFAN  is  a  matrix  type  and  is  on  one 
dimensional  steady  state  flow  throughout  the  network  of  legs  in  the  system.  SSFAN 
may  be  used  to  analyze  existing  systems,  used  as  a  preliminary  design  tool  to  predict 
system  flows  and  pressures,  and  used  to  update  new  system  designs  as  they  are 
established. 

2.  INTRODUCTION 

SSFAN  has  been  updated  to  extend  its  calculation  capability  and  reduced  in 
size  by  simplifying  the  overall  organization  of  the  program.  The  addition  of  the 
Quasi-transient  model  allows  prediction  of  subsystem  operating  times  using  time 
step  increments.  A  capability  to  input  various  fluid  temperatures  at  components 
giving  a  temperature  distribution  throughout  the  system  has  been  added  to  give 
better  simulation.  New  models  for  a  fixed  pressure  and  a  fixed  flow  point  expand 
the  system  analysis  capability  by  allowing  the  designer  to  isolate  a  subsystem 
for  analysis.  The  floating  branch  point  extends  the  capability  to  have  the  pressures 
calculated  at  any  point  in  the  system. 

3.  QUASI -TRANSIENT  MODEL 

The  SSFAN  program  may  be  run  in  a  quasi-transient  mode.  With  an  input  of  time 
interval,  time  step  and  some  additional  component  data,  the  quasi-transient 
model  may  be  used  to  predict  subsystem  operating  times.  A  computer  graph  subroutine 
has  been  added  to  plot  flows,  pressures  and  actuator  position  versus  time.  The 
input  data  for  the  time  Interval  is  the  initial  and  final  times.  The  time  step 
is  optional.  If  a  time  step  is  not  input,  a  default  value  of  100  steps  is  used,  which 
will  provide  a  full  set  of  points  for  the  graph  subroutine. 

Required  input  data  for  valves  is  of  two  types,  1)  valve  position  versus  time 
and  2)  valve  position  versus  position  of  another  component.  The  actuator  input  data 
includes  load  vs  stroke  positions  and  the  Initial  actuator  position.  For  a  dynamic 
accumulator,  the  precharge  conditions  and  the  initial  starting  conditions  are  input. 
Hydraulic  motor  torque  va  rpm  and  efficiency  are  required  as  additional  data  for 
a  quasi-transient  run.  If  additional  data  is  not  input  for  the  above  components, 
the  quasi-transient  program  will  get  its  data  from  the  standard  input  data  which 
means  that  the  component  load  remains  constant  throughout  the  run. 


207 


The  calculation  method  is  as  follows: 

1)  Balance  the  system  using  initial  conditions  at  tQ 

2)  Increment  time  one  At  (time  step)  and  calculate  new  positions  for 
accumulators  and  actuators  using  Q0  x  At  =  AVOL 

3)  Balance  the  system  again  using  the  new  positions. 

4)  Calculate  the  average  pressures  (accumulators) ,  loads  (actuators) 
and  torques  (motors)  from  tn  to  tj. 

5)  Balance  the  system  again  using  the  average  parameters  from  step  4) 

6)  t^  =  t0  +  At.  Balance  the  system  to  initialize  conditions  at  ti , 
and  begin  the  next  time  step. 

Example  input  and  output  data  for  the  quasi-transient  mode  are  shown  in  Technical 

Report  AFAPL-TR-7  6-4 3 ,  Volume  V  dated  April  1980. 

4.  FLOW  RESTRICTOR  MODEL 


The  new  flow  restrictor  (regualtor)  model  sets  a  constant  flow  rate  in  a 
leg  of  a  system.  The  model  breaks  the  leg, adds  two  branch  points,  fixes  the 
flow  out  of  the  branch  point  at  the  restrictor  inlet  and  fixes  the  same  flow  back 
into  the  branch  point  at  the  restrictor  outlet.  Pressures  are  calculated  at 
both  branch  points.  An  orifice  sizer  model  was  added  as  a  take  off  of  the  flow 
restrictor  model  because  the  orifice  sizing  feature  just  required  an  additional 
subroutine  to  size  the  orifice  with  the  pressures  output  from  the  flow  restrictor 
model.  This  orifice  sizing  method  is  described  in  Technical  Report  AFAPL-TR-76-43, 
Volume  VI,  Appendix  D  dated  January  1980. 

5 .  PROGRAM  IMPROVEMENTS 

a.  New  Component  Models 

Other  new  component  models  include  a  fixed  pressure  point,  fixed  flow  point, 
floating  branch  point  and  hydraulic  motor.  The  fixed  pressure  point  and  fixed  flow 
point  models  are  sub  types  of  the  accumulator  type  7  model.  The  fixed  pressure 
point  model  may  be  used  to  breakout  a  subsystem  from  the  main  system  and  set 
constant  pressures  at  the  inlet  and  outlet  of  the  subsystem.  The  fixed  flow  point 
model  is  used  to  simulate  flows  to  or  from  other  subsystems  in  the  system  under 
study. 
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b.  Existing  Component  Models 

The  tube  bend  pressure  loss  calculation  was  changed  from  an  equivalent  length 
(viscosity  dependent)  calculation  to  an  energy  loss  calculation.  An  energy  loss 
calculation  was  added  to  the  cross  model  to  consider  splitting  and  combining  flows. 

A  single  data  point  model  was  added  to  the  special  type  10  model  so  that  a  procure¬ 
ment  specification  component  with  a  single  design  point  for  flow  versus  pressure 
drop  could  be  input.  The  actuator  model  was  changed  to  a  two  pressure  point  model 
and  the  calculation  method  was  also  simplified. 

c.  Program  Simplification 

The  overall  original  program  size  was  reduced  from  approximately  3500  lines 
to  2100  lines.  This  was  done  primarily  in  the  sorting  and  assembly  portion  of  the 
program.  Data  was  originally  stored  in  a  separate  array  for  each  element  (component). 
Now  the  data  is  stored  in  two  arrays,  one  for  static  elements  which  have  fixed 
resistance  coefficients  and  the  other  for  dynamic  elements  which  are  called  during 
the  calculation  and  iteration  portion  of  the  program  and  have  resistance  constants 
which  change  with  flow  rate  or  flow  direction.  This  simplified  the  assembly  search 
for  matching  junction  numbers.  The  number  of  static  resistance  subroutines  was 
reduced  from  approximately  twenty  five  (one  for  each  element)  to  three.  The  quasi- 
transient  model  added  approximately  300  lines  to  the  program  for  a  total  of 
2400  lines. 

d.  System  Capability 

The  program  array  sizes  can  be  changed  at  one  point  in  the  main  program  to 
accommodate  any  size  system  under  study.  All  subroutines  use  dummy  array  sizes 
for  the  variables  dimensioned  in  the  main  program.  A  leg  may  have  an  unlimited 
number  of  dynamic  elements.  Previously,  the  limit  was  five  dynamic  elements. 

The  program  now  uses  a  sparse  matrix  solution  technique  where  the  locations  containing 
data  for  the  matrix  are  stored  and  the  locations  containing  zeroes  are  not  stored. 

This  reduces  the  calculation  considerably  for  large  systems  because  most  of  the  data 
Is  located  around  the  diagonal  of  the  matrix  with  zeros  for  the  other  locations 
in  the  square  matrix. 
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e.  Stability  Problems 

The  effort  to  identify  stability  problems  associated  with  the  iterative 
balancing  resulted  in  the  technique  of  assuming  a  flow  direction  through  a  component 
and  using  the  resistance  coefficient  for  the  entire  iterative  balancing  calculation. 

A  comparison  is  then  made  for  the  actual  flow  direction  to  the  assumed  flow  direction. 
If  the  assumed  flow  direction  was  incorrect,  an  indicator  is  placed  in  the  data 
array  for  the  particular  component  and  an  indicator  is  passed  to  the  calculation 
subroutine  signaling  another  balance  is  required.  Components  that  are  checked 
in  this  manner  are  check  valves,  relief  valves,  one-way  restrictors,  pumps  and 
actuators . 

The  technique  described  above  appears  to  have  solved  some  of  the  stability 
problems  previously  encountered  in  SSFAN.  However,  there  still  may  be  other 
problems.  One  occurrence  .that  has  not  been  fully  investigated  appears  to  be 
associated  with  a  very  smhll  change  in  flow  in  a  leg  creating  a  large  change  in 
pressure  at  the  ends  of  the  leg. 

6.  SSFAN  DOCUMENTATION 

Consult  References  (7)  and  (8)  for  the  user  and  technical  descriptions  of  the 
Quasi-transient  model,  the  flow  restrictor  model  and  the  other  program  improvements. 


SECTION  V 
HYTTHA  PROGRAM 


1.  BACKGROUND 

The  HYTTHA  program  is  used  to  simulate  thermal  effects  in  aircraft 
hydraulic  systems.  The  program  calculates  flowrates,  pressures,  and  temperatures 
throughout  the  system. 

Use  of  the  HYTTHA  program  requires  detailed  physical  information  about 
components  in  the  hydraulic  system.  The  physical  information  is  needed  to 
determine  heat  transfer  to  or  from  the  components.  The  significance  of  the 
required  information  varies  with  the  problem  being  analyzed.  Approximations 
for  the  required  information,  or  options  in  the  program  coding,  to  alJow 
for  approximations,  can  simplify  use  of  HYTTHA.  These  two  simplification 
approaches  were  investigated. 

Using  approximations  for  input  data  would  require  creating  more  generalized 
subroutines  than  those  already  existing.  The  general  information  about  the 
thermal  and  physical  component  characteristics  would  be  input  by  the  user. 

Because  of  the  general  nature  of  these  routines,  they  would  be  more  unreliable. 

However,  the  user  has  the  option  of  including  detailed  physical  information 
not  in  the  component  models.  Length  and  width  parameters  can  be  estimated  to  simulate 
box  type  components.  Heat  transfer  coefficients  can  be  estimated  from  textbook 
approximations.  Where  heat  transfer  between  the  thermal  environment  and  the 
hydraulics  is  negligible,  these  terms  could  be  zeroed.  Reasonable  simulations 
can  be  obtained  with  minimal  input  data. 

Consequently,  program  coding  options  are  the  most  feasible  approach  to 
simplifying  the  HYTTHA  program.  Three  features  were  added  to  the  HYTTHA  program, 
a  default  temperature  section,  an  environment  section  and  a  modified  reservoir  component 
subroutine  for  defining  thermal  characteristics.  Several  program  improvements 
including  a  variable  RPM  section  for  the  pump  and  an  energy  loss  coefficient  for 
line  bends  were  added  to  HYTTHA  and  are  explained  in  the  following  sections. 

2.  PROGRAM  IMPROVEMENTS 

a.  Default  Temperature  Section 

This  program  modification  is  an  efficient  way  of  changing  large  amounts 
of  input  temperature  data.  Each  individual  line  and  component  has  four  default 
temperatures  (ambient,  structural,  wall  and  fluid).  The  user  can  make  the  program 
default  the  line  or  component  to  the  corresponding  temperature  dependent  upon  the 
value  of  the  default  temperature  indicators. 
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The  default  temperature  section  has  the  capability  of  setting  all  line 
and  component  temperatures  to  the  respective  default  temperatures  (ambient, 
structural,  wall,  and  fluid).  The  program  has  a  master  indicator  and  each 
line  and  component  has  indicators  to  skip  the  section  if  desired.  There  is 
also  an  indicator  within  each  element  to  skip  any  specified  temperature  the 
user  prefers  not  to  change. 

b.  Environment  Section 

The  environment  section  allows  the  input  of  up  to  five  different 
environments  (the  maximum  number  of  environments  can  be  changed  to  accommodate 
more  than  five).  Each  line  and  component  can  select  one  of  the  input  environments. 
Tha  program  will  change  the  element's  initial  ambient,  structural,  and  wall 
temperature  to  the  appropriate  temperature  in  the  specified  environment. 

An  example  of  an  environment  is  the  temperature  in  the  landing  gear  bay 
during  a  normal  aircraft  mission.  Each  line  or  component  will  choose  the 
appropriate  environment  which  will  remain  constant  for  the  entire  simulation 
unless  changed  by  the  particular  component. 

c.  Constant  Pressure  Reservoir  Model 

The  constant  pressure  reservoir  subroutine  (TRSVR61)  has  been  modified 
to  allow  the  user  to  input  a  fluid  temperature  curve.  The  user  and  technical 
manual  write-ups  are  in  Appendix  R. 

d.  Pump  Model  -  TPUMP51 

Model  steady  state  computation  stability  and  a  pump  start-up  capability 
were  investigated. 

The  work  on  pump  stability  was  focused  on  better  initialization  and 
improving  the  case  drain  section.  Several  methods  were  tried  to  start 
the  iteration  process  with  better  flow  and  pressure  values.  Both  initializing 
pressures  and  flows  in  the  program  and  in  the  leg  data  have  been  tried.  One 
method  that  has  worked  was  to  set  the  pump  and  reservoir  node  pressures 
in  the  leg  block  data  similar  to  setting  a  constant  pressure  source.  This 
helped  to  keep  the  values  for  successive  iterations  in  the  general  area, 
but  It  did  not  damp  out  the  oscillations. 
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Work  in  the  case  drain  section  has  involved  . trying  to  desensitize 
the  flow  dependency  of  the  model.  Changing  the  weighting  of  old  and  new 
case  pressures,  updating  the  case  pressute  only  every  ten  iterations, 
and  setting  the  case  pressure  to  250  psi  have  all  been  tried.  Large 
negative  flows  were  obtained  when  the  case  pressure  was  updated  every  10 
iterations.  When  the  case  pressure  was  set  to  250  psi,  a  solution  was 
obtained  having  large  case  drain  flows  and  negative  case  pressures. 

Setting  the  case  pressure  to  250  psi  was  effective  but  it  had  some 
difficulties. 

A  brief  look  was  made  at  the  possibility  of  a  three  node  pump, 
but  no  major  work  was  done  with  this  approach. 

Several  changes  have  been  made  in  the  HYTTHA  pump  model  steady  state 
section.  After  attempting  to  stabilize  the  existing  model,  the  steady  state 
section  was  rewritten  using  the  SSFAN  pump  model  as  a  guide. 

The  major  changes  in  the  steady  state  section  were  to  do  all  of  the  pump 
calculations  in  one  section  and  to  set  the  pump  case  pressure  independently 
of  the  case  leg  pressure  drop.  As  the  case  pressure  increases,  the  case  flow 
decreases  due  to  internal  leakage  back  to  the  pump  inlet.  But  if  the  case 
pressure  is  used  as  the  case  leg  pressure  drop,  the  case  drain  flow  will  increase 
with  case  pressure.  By  first  finding  the  case  pressure  and  flow  and  then  setting 
a  separate  case  leg  pressure  drop,  the  proper  case  pressure  -  flow  relationship 
can  be  obtained. 

The  pump  model  was  modified  to  simulate  pump  start  up  characteristics. 

The  user  inputs  a  time  history  of  pump  speed  with  the  pump  component  data. 

The  subroutine  will  linearly  interpret  the  data  to  obtain  the  pump  speed 
for  any  time  during  start-up  or  shut  down  simulations  with  the  HYTTHA  program. 

In  the.  past,  instabilities  have  occurred  in  the  pump  outlet  pressure 
and  flow  at  very  high  system  flows.  The  instability  was  a  result  of  the  rapid 
decrease  in  pump  outlet  pressure  at  outlet  flows  greater  than  the  rated  j 

pump  flow.  To  eliminate  the  instability,  the  pump  routine  was  revised  to 
calculate  steady  state  flows  for  the  system  based  upon  the  relatively 
constant  pump  pressure  for  flows  below  rated  flow.  After  a  balance  is 
obtained,  the  outlet  flow  is  checked  to  see  if  it  is  greater  than  rated 
flow.  If  outlet  flow  is  greater  than  rated  flow,  the  steady  state  flows 
and  pressures  art  recalculated  using  the  pump  outlet  flow  -  pressure 
relationship  for  high  pump  flows. 
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The  pump  model  changes  are  documented  in  the  user  and  technical 
manual  sections  of  the  HYTTHA  program.  The  revised  sections  are  presented 
in  Appendix  S. 

e.  Calculation  Subroutines  -  TCALC  and  TLEGCAL 

The  HYTTH4.  calculation  subroutine  (TCALC)  has  been  revised  to  include 
a  new  compressed  matrix  method.  The  method  reduces  the  amount  of  storage 
space  required  to  solve  for  the  steady  state  pressure  values. 

The  pressure  drop  in  a  leg  was  dependent  on  the  upstream  fluid  temperature. 
This  section  in  TLEGCAL  was  changed  to  average  the  upstream  and  downstream 
temperatures.  The  average  line  temperature  is  now  used  to  determine  the 
line  pressure  drop. 

The  programming  changes  are  documented  in  Appendix  T. 

f.  LINE  MODEL  -  TLINEA 

The  equivalent  line  method  for  determining  steady  state  pressure 
losses  due  to  bends  in  hydraulic  lines  is  inaccurate  at  lower  temperatures, 
high  fluid  viscosity  regions.  A  more  accurate  method  is  computing  an  energy 
loss  coefficient  which  is  a  function  of  fluid  density,  pressure  drop  and  fluid 
velocity  in  a  bend.  The  bend  energy  loss  coefficient  calculation  used  in  HYTTHA 
is  based  on  empirical  test  data.  See  Appendix  U  for  the  HYTTHA  user  and 
technical  manual  changes. 

g.  OUTPUT  OPTIONS 

The  control  data  cards  needed  to  use  the  default  temperature  and  environment 
sections  are  explained  in  Appendix  V.  In  addition  steady  state  print  options 
and  y-axis  scaling  are  explained  in  the  appendix.  The  card  column  locations 
of  the  component  default  and  environment  indicators  are  shown  in  Table  22. 
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TABLE  22  COLUMN  LOCATION  OF  COMPONENT  DEFAULT 
AND  ENVIRONMENT  INDICATORS 

THE  INDICATORS  ARE  ENTERED  ON  THE  COMPONENT  INTEGER  DATA  CARD 


COMPONENT 

TYPE  NUMBER 

DEFAULT  TEMPERATURE  INDICATOR* 
COLUMN 

ENVIRONMENT  NUMBER 
COLUMN 

frictionless 

BRANCH 

11 

40 

45 

TWO-WAY 

CONTROL  VALVE 

21 

35 

40 

FOUR-WAY 

CONTROL  VALVE 

22 

45 

50 

CHECK  VALVE 

31 

30 

35 

RESTRICTOR 

41 

30 

35 

PUMP 

51 

60 

65 

CONSTANT  PRESSURE 
RESERVOIR 

61 

40 

45 

BOOTSTRAP  RESERVOIR  62 

45 

50 

HEAT  EXCHANGER 

69 

30 

35 

ACCUMULATOR 

71 

30 

35 

FILTER 

81 

30 

35 

VALVE  CONTROLLED 
ACTUATOR 

101 

35 

40 

UTILITY  ACTUATOR 

102 

30 

35 

*  0  -  Uses  temperature  values  on  component  cards 

1  -  Uses  default  values  from  Card  2a 
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3.  VERIFICATION  TESTS 

The  test  objective  was  to  measure  the  thermal  response  of  the  hydraulic 
fluid  and  components  in  an  operating  hydraulic  system.  Steady  state  and 
transient  thermal  data  was  recorded  for  seven  test  runs. 

a.  Test  Setup  and  Instrumentation 

A  photograph  of  the  thermal  test  bench  is  shown  in  Figure  162.  a  system 
schematic  is  presented  in  Figure  163  and  Table  23  gives  the  appropriate 
line  and  component  lengths.  The  system  was  powered  by  a  F-15  hydraulic 
pump.  The  primary  heat  load  came  from  the  load  valve.  A  heat  exchanger 
cooled  the  hydraulic  fluid  and  provided  temperature  stabilization  for 
che  steady  state  tests.  The  test  stand  was  equipped  with  a  3750  psig  relief 
valve  and  four  A/C  filters  with  10p  nominal  and  25u  absolute  filtration  . 

An  accumulator  provided  a  reference  pressure  for  the  F-4  bootstrap  reservoir. 

The  pump  and  load  valve  installations  are  detailed  in  Figures  164  and  165. 
the  heat  exchanger  installation  photograph  is  shown  in  Figure  166 

Except  for  the  heat  exchanger,  the  test  setup  was  enclosed  in  a  styrofoam 
box.  Six  thermocouples  placed  inside  the  box  monitored  the  box  air  temperature. 

A  Thennatron  temperature  controller  was  used  to  maintain  the  system  environment 
temperature.  Cooling  air  was  injected  by  the  F-15  pump  and  exhausted  at  the 
heat  exchanger  er.d  of  the  box. 

The  instrumentation  locations  are  shown  in  Figure  163  The  parameters 
recorded  during  the  testing  are  presented  in  Table  24. 

To  accurately  measure  the  hydraulic  systems  steady  state  and  transient 
thermal  response.  Type  T  thermocouples  were  placed  in  the  fluid  stream  and 
cn  the  component  surface.  The  inline  thermocouples  were  located  at  approximately 
the  tube  centerline.  Each  probe  contained  two  copper  constantan  wires 
supported  by  a  Conax  fitting  (Figure  167).  The  surface  thermocouples  were  tack  welded 
to  the  component. 

Since  e.'.ch  instrument  position  contained  two  thermocouples,  one  thermocouple 
was  displayed  on  a  stripchart  recorder  for  a  real  time  check  on  the  data. 

The  other  thermocouple  went  to  an  analog  tape  recorder  through  a  150°F  reference 
box.  A  calibration  was  run  before  each  test  to  assure  that  the  thermocouples 
did  not  drift  from  their  reference  values. 

The  copper  constantan  23  gauge  thermocouple  wire  gave  good  temperature 
responses  and  sensitivity. 
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FIGURE  192  HYTTHA  TEST  BENCH 
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FIGURE  163  HYTTHA  STEADY  STATE  AND  TRANSIENT  TEST  BENCH 
UNE  LENGTHS  AND  INSTRUMENT  LOCATION 
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TABLE  23  HYTTHA  LINE  AND  COMPONENT  LENGTHS 
ALL  LINES  ARE  1"  OD  X  .058"  WALL  THICKNESS  UNLESS  OTHERWISE  NOTED 
NUMBER  LENGTH  (INCHES)  ±.0625"  NUMBER  LENGTH  (INCHES)  ±.0625" 


I 

8.625 

21 

15.125 

2 

15.25 

22  LOAD  VALVE 

5.25 

3 

15.125 

23 

1.625 

4 

16.00 

24 

144.125 

5  FLOW  METER 

3.25 

25  TEE 

3.50 

6 

7.875 

26 

53.875 

7 

11.00 

27 

2.25 

8  VALVE 

7.125 

28 

4.875 

9 

11.25 

29 

3.375 

10 

6.875 

30* 

75.00 

11 

25.50 

31  CHECK  VALVE 

2.875 

12 

43.625 

32* 

1.625 

13  FLOW  METER 

3.375 

33  FLOWMETER 

2.875 

14 

6.625 

34* 

15.125 

15  TEE 

3.375 

35* 

20.875 

16 

15.25 

36  UNION 

1.25 

17 

15.125 

37* 

5.875 

18 

15.625 

38 

40.875 

19 

142.50 

39 

25.125 

20 

21.875 

40 

3.125 

41 

2.75 

42 

4.25 

43 

3.50 

44 

6.75 

0.375"  O.D.  X 

.022"  WALL  THICKNESS 

45 

5.50 

46 

13.375 
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PARAMETER 

PI 

P2 

P3 

P4 

P5 

P6 

Q1 

Q2 

Q? 

T1 

T2 

T3 

T4 

T5 

T6 

T7 

T8 

T9 

TIO 

Til 

T12 

T13 

DS 

DT 


DESCRIPTION 

PUMP  OUTLET  PRESSURE 

PRESSURE  UPSTREAM  OF  LOAD  VALVE 

PRESSURE  DOWNSTREAM  OF  LOAD  VALVE 

RETURN  PRESSURE 

CASE  DRAIN  PRESSURE 

RESERVOIR  PRESSURE 

CASE  DRAIN  FLOW 

RETURN  FLOW 

WATER  FLOW 

PUMP  OUTLET  FLUID  TEMPERATURE 

FLUID  TEMPERATURE  UPSTREAM  OF  LOAD  VALVE 

FLUID  TEMPERATURE  DOWNSTREAM  OF  LOAD  VALVE 

FLUID  TEMPERATURE  UPSTREAM  OF  FILTERS 

CASE  DRAIN  FLUID  TEMPERATURE 

SUCTION  FLUID  TEMPERATURE 

RESERVOIR  FLUID  TEMPERATURE 

PUMP  CASE  TEMPERATURE 

LOAD  VALVE  TEMPERATURE 

HEAT  EXCHANGER  SURFACE  TEMPERATURE 

HEAT  EXCHANGER  OUTLET  WATER  TEMPERATURE 

HEAT  EXCHANGER  INLET  WATER  TEMPERATURE 

FLUID  TEMPERATURE  DOWNSTREAM  OF  HEAT  EXCHANGER 

DRIVE  SPEED 

DRIVE  TORQUE 
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FIGURE  164  HYTTHA  TEST  SETUP-PUMP  CONFIGURATION 
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FIGURE  166  HYTTHA  TEST  SETUP  *  FLUID  COOLING  SYSTEM 
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FIGURE  167  THERMOCOUPLE  PROBE 


Inline  thin  film  strain  gage  transducers  were  used  to  measure  pressure. 

The  thermocouples  were  located  next  to  the  pressure  transducers  and  placed 
10-15  line  diameters  downstream  from  where  flows  combined  in  the  test  system. 

Turbine  flowmeters  measured  flows  in  the  case  drain,  return, and 
cooling  water  lines.  All  data  parameters  were  recorded  on  analog  tape 
for  each  run.  The  data  was  processed  by  playback  of  the  analog  tape 
output  through  waveform  recorders  and  into  a  calculator.  Data  was  then  stored 
and  plotted  on  digital  cassette  tapes. 

The  test  setup  contained  MIL-H-5606C  hydraulic  fluid  and  the  dissolved 
air  content  of  the  fluid  was  less  than  1Z  by  volume. 

b.  Test  Conditions  and  Procedurrs 

Testing  consisted  of  steady  state  and  transient  thermal  response  runs. 
Table  25  contains  a  listing  of  the  completed  tests. 
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TABLE  25  HYTTHA  VERIFICATION  TESTS 


RUN  NUMBER 

TEST  CONDITIONS 

STEADY  STATE 
FLOW  (CIS) 

SYSTEM  ATMOSPHERIC 
TEMP  ERA  TURF 

(°r> 

RESERVOIR 

PRESSURE 

(PSIG) 

PUMP 

SPEED 

(*PM) 

TEST  RUN 

TIME 

110-1 

STEADY  STATE  TEST 

11.55 

70. 

56 

4000 

2  MIN  9  SEC 

110-2 

AFTER  TEMPERATURE  STABILIZED 

IN  THE  SYSTEM,  THE  HEAT 

EXCHANGER  WAS  CLOSED  OFF 

AND  THE  SYSTEM  TEMPERATURE 

WAS  ALLOWED  TO  INCREASE  TO 
•v-200°F 

11.55 

75. 

56-59 

4000 

13  MIN  17  SEC 

110-3 

SYSTEM  WAS  SOARED  AT  70“F  THEN 
PUMP  WAS  STARTED  WITHOUT  THE 

HEAT  EXCHANGER  IN  THE 

SYSTEM 

0-11.55 

70. 

56-59 

4000 

10  MIN  32  SEC 

110-4 

STEADY  STATE  TEST  WITH  HEAT 
EXCHANGER 

11.55 

0. 

54 

4000 

4  MIN*  38  SEC 

110-5 

SYSTEM  WAS  COLD  SOAKED  AT  0°F 

THEN  PUMP  WAS  STARTED  WITHOUT 

THE  HEAT  EXCHANGER  IN  THE  SYSTEM 

0-11.55 

0. 

52-54 

4000 

13  MIN  43  SEC 

110-6 

STEADY  STATE  TEST  WITHOUT  HEAT 
EXCHANGER  SYSTEM  WAS  ALLOWED 

TO  REACH  A  STABLE  TEMPERATURE 
BEFORE  RECORDING  DATA 

11.55 

i 

0. 

56 

4000 

4  MIN  52  SEC 

110-7 

SOAKED  SYSTEM  AT  70°F,  THEM  STARTED  115.5 

THE  PUMP  WITHOUT  THE  HEAT 

EXCHAMCER  IK  THE  SYSTEM 

70. 

62 

4000 

4  MIN  16  SEC 

For  the 

steady  state  tests  the 

system  ran 

at  a  stabilized  temperature 

and  flow, and  che  fluid  and  component  temperatures  were  recorded.  The  heat 
exchanger  cooling  flow  rate  and  temperature  were  also  recorded. 

Transient  testing  investigated  start-ups  and  load  heat  generation. 

The  test  stand  was  started  from  cold  soaked  and  room  temperature  conditions. 

The  subsequent  transient  thermal  response  was  recorded.  In  addition  the  system 
was  stabilized  at  a  constant  operating  temperature  and  the  heat  exchanger 
was  closed  to  allow  the  load  io  warm  the  system. 

The  F-15  pump  locked  after  completing  run  110-7  and  the  pumps  spline  drive 
shaft  sheared.  The  following  temperatures  were  recorded  prior  to  the  pump 
failure. 

Temperature  (°F) 


Pump  Case  Drain  (T5)  213. 
Pump  Inlet  (T6)  277. 
Pump  Case  (T8)  217. 
Upstream  Of  Load  Valve  (T2)  267. 
Downstream  of  Load  Valve  (T3)  284. 


When  the  pump  was  disassembled,  several  large  pieces  of  steel  believed 
to  be  from  a  piston  shoe  hold  down  ring  were  found  in  che  pump  housing. 
Pine  bronze  particles  were  also  found.  Testing  was  terminated  due  to 
limited  time  and  budget  available  to  clean  out  the  system  and  complete  the 
test  series. 
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The  F-15  hydraulic  pump  (ABEX  P/N  69796-12,  S/N  105,  USAF  ID  263053)  was 
a  qualification  unit  used  for  vibration  and  shock  testing  on  the  F-15 
program.  In  addition  the  unit  was  subjected  to  proof  pressure  and  overspeed 
tests . 

c.  Test  Results  and  Program  Verification 

Test  data  for  the  heat  exchanger  off  transient  (Run  No.  110-2)  is  shown 
in  Figure  *68.  The  ambient  temperature  was  756F  and  the  heat  exchanger  was 
used  to  stabilize  the  system  temperatures.  To  generate  the  thermal  transient 
the  bypass  valve  ahown  in  Figure  163  was  opened  and  the  heat  exchanger  valves 
were  closed. 

A  computer  simulation  was  made  of  the  test  run.  The  equivalent  HYTTHA 
computer  schematic  of  the  test  system  is  shown  in  Figure  169.  The  steady 
state  leg  and  node  diagram  is  presented  in  Figure  170.  The  HYTTHA  input 
data  is  in  Table  26.  The  simulated  pump  outlet  fluid  temperature  is 
shown  in  Figure  171.  The  computed  fluid  temperature  rises  too  quickly. 

The  computed  value  at  500  seconds  is  30°F  above  the  actual  data. 

To  determine  if  the  pump  model  was  causing  the  rapid  fluid  temperature 
rise,  the  pump  was  replaced  by  a  constant  pressure  reservoir  with  the  pump 
outlet  fluid  temperature  profile.  The  results  of  the  simulation  in  Figures  172 
and  173  show  better  correlation  with  the  test  data. 

Test  data  for  the  srart-up  thermal  transient  data  run  110-5  is  shown  in 
Figure  174  .  A  computer  simulation  was  made  of  the  start-up  transient  run. 

The  HYTTHA  input  data  file  is  presented  in  Table  27  .  The  computer  output 
runs  are  shown  in  Figures  175  and  176.  The  HYTTHA  program  predicts 
a  14°F  higher  temperature  for  the  start-up  pump  outlet  fluid  temperature 
peak  at  10  seconds  into  the  simulation.  The  computed  fluid  temperature 
at  200  seconds  is  20°F  higher  than  the  measured  value.  The  computed  and  actual 
fluid  temperatures  downstream  of  the  pump  outlet  are  shown  in  Figure  176. 
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FIGURE  168  DATA  RUN  NUMBER  110-2 


thermal,  transient  test 
110-2-T7  HEAT  EXCHANGER  OFF  TRANSIENT 

11.55  CIS 


THERMAL  TRANSIENT  TEST 
110-2-T9  HEAT  EXCHANGER  OFF  TRANSIENT 

11.55  CIS 


THERMAL  TRANSIENT  TEST 
110-2-TH  HEAT  EXCHANGER  OFT  TRANSIENT 

11.55  CIS 


FIGURE  166  DATA  RUN  NUMBER 
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TABLE  26  TEST  RUN  NO.  UO-2  EXCHANGER  OF?  TRANS TiNT  HYTTHA  INPUT  DATA 


*  HVTfHA  TOTT  RUM  WO. 

“110-2" 

38  33 

.5 

500. 

l 

80. 

4»» 

l  9 

C  0 

2  90 

201.5 

1. 

.0580 

2  9 

0  0 

3  90 

130. 000 

1. 

.0580 

3  9 

0  0 

0  0 

2.75 

1. 

.0580 

4  9 

0  0 

0  0 

2. 

1. 

.0580 

5  9 

0  0 

0  0 

2. 

1. 

.0580 

6  9 

G  0 

0  0 

11.25 

1. 

.0580 

7  9 

0  0 

0  0 

11. 

1. 

.0580 

8  9 

0  0 

0  0 

25.5 

1. 

.0550 

9  9 

0  0 

0  0 

7.0 

.75 

0420 

10  9 

0  0 

0  0 

7.0 

.75 

.0420 

11  9 

0  0 

1  90 

7.375 

.75 

.0420 

12  9 

0  0 

1  90 

7.375 

.75 

.0420 

13  0 

0  0 

0  0 

2. 

.75 

.0420 

M  9 

0  0 

0  0 

2. 

.75 

.0420 

15  9 

0  0 

0  0 

78.375 

375 

.0220 

16  9 

0  0 

1  90 

7.375 

.75 

.0420 

17  9 

0  0 

0  0 

2. 

.75 

.0420 

16  V 

2. 

.75 

.0420 

19  9 

0  0 

1  90 

7.375 

.75 

.0420 

20  9 

7. 

.75 

.0420 

21  9 

0  0 

0  0 

*? 

.75 

.0420 

22  9 

0  0 

2  90 

40.8"’5 

1. 

.0580 

23  9 

3.125 

1. 

.0580 

24  9 

0  0 

1  90 

28.625 

1. 

.0580 

25  9 

0  0 

2  90 

29.250 

.375 

.0220 

26  9 

2.75 

1. 

.0580 

—  HEAT  EXCHANGER  Off  TRANSIENT  —  (OTHERM)  ** 
5. 


14.7 

90 

4. 

.0069 

80. 

70. 

111. 

90 

90 

0 

4. 

0 

4. 

.0069 

70. 

70. 

126. 

.006$ 

70. 

70. 

126. 

0 

0 

4. 

.0069 

60. 

70. 

126. 

0 

0 

4. 

.0069 

80. 

70. 

92. 

0 

0 

4. 

.0069 

70. 

70. 

115. 

0 

0 

4. 

.0069 

70. 

70. 

105. 

0 

0 

4. 

.0069 

70. 

70. 

92. 

0 

0 

4. 

.0069 

70. 

70. 

101. 

0 

0 

4. 

.0069 

70. 

70. 

101. 

4. 

.0069 

70. 

~U. 

101. 

4. 

.0069 

70. 

70. 

101. 

0 

0 

4 

.0069 

70. 

70. 

101. 

0 

0 

4. 

.0069 

70. 

70. 

101. 

90 

C 

4. 

.0069 

70. 

70. 

136. 

4. 

.0069 

70. 

70. 

101. 

0 

0 

4. 

.0069 

70. 

70. 

101. 

4. 

.0069 

70. 

70. 

101. 

4. 

.0069 

70. 

70. 

101. 

4. 

.0069 

70. 

70. 

101. 

4. 

.0069 

70. 

70. 

101. 

90 

4. 

.0069 

7C. 

70. 

101. 

4. 

.0069 

70, 

70. 

85. 

4. 

.0069 

70. 

70. 

100. 

90 

4. 

.0069 

100. 

70. 

136. 

4. 

.0069 

70. 

70. 

92 
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TABLE ,26  TEST  RUM  NO.  110*2  EXCHANGER  OFF  TRANSIENT  HYTTHA  INPUT  DATA 
(CONTINUED) 

27  9 


10,375 

26  9 

1. 

.0580 

4. 

.0069 

70. 

70. 

70. 

15.625 

29  9 

1. 

.0580 

4. 

.0069 

90. 

70. 

111. 

1.625 

30  9 

1. 

.0580 

4. 

.0069 

75. 

70. 

108. 

15.125 

1. 

.0580 

4. 

.0069 

75. 

70. 

126. 

31  9 

0  0 

1  135 

37. 

1. 

.0580 

4. 

.0069 

70. 

70. 

94. 

32  9 

0  0 

1  135 

6.625 
33  9 

1. 

.0580 

4. 

.0069 

70. 

70. 

96. 

15.25 

1. 

.0580 

1. 

.0069 

''0. 

70. 

98. 

34  9 
15.125 

35  9 

1. 

.0580 

4. 

.0069 

•’0. 

70. 

101. 

10. 

1 

.0580 

4. 

.0069 

100. 

70. 

100. 

36  9 
15.125 

37  9 

.375 

.0220 

4. 

.0069 

70. 

"'0. 

136. 

1.625 

38  9 

.3~5 

.0220 

4. 

.0069 

■’0. 

70. 

136. 

4.875 

1.2 

0.1 

4. 

.0069 

100. 

-o. 

111. 

1  51 

4  35 

-38  -25 

1 

2  19 

9. 

9. 

5.716 

8.155 

8.529 

15. 

10. 

1-5. 

8. 

3. 

.63 

S6i$. 

6. 

27. 

69. 

.0069 

.69 

.189 

100. 

70. 

100. 

131. 

220. 

4600. 

4015. 

3050. 

2850. 

25. 

35. 

8.2 

50. 

8. 

2  41 

2  29 

-30 

9. 

1.661 

1. 

5.25 

15. 

l.Ofc-10 

1. 

75. 

70. 

10b. 

no. 

.65 

.0513 

3  11 

2  2 

-3  -6 

9. 

.2 

.69 

2.3 

5.9 

5.1 

.0069 

70. 

70. 

115. 

110. 

4  21 

5  3 

-4  4 

9. 

9. 

2. 

.1 

3. 

.3 

2.5 

12. 

6.6 

.033 

.0069 

1. 

85. 

85. 

126. 

120. 

.022 

.65 

0.0 

25.0 

27.0 

500. 

5.0 

5  0 

0.0 

0  0 

5  21 

5  6 

-7  4 

9. 

9. 

2.145 

.1 

3. 

.3 

2.5 

12. 

6.6 

.033 

.0069 

1. 

70. 

70. 

■’0. 

•*o. 

.022 

.65 

0.0 

24.0 

24.5 

500. 

0.0 

0.0 

5.0 

5.0 

6  69 

3  4 

-5 

9. 

95. 

45. 

510. 

1. 

41. 

400. 

4000. 

900. 

4896. 

.0069 

.069 

.o^s 

2.91 

85. 

85. 

85. 

126. 

92. 

8". 

.4 

5, 

7  11 

2  26 

7  -8 

9. 

.2 

.69 

.9592 

5.9 

5.1 

.0069 

70. 

70. 

92. 

92. 

8  11 

2  34 

-10  -9 
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TABLE  26  TEST  RUN  NO.  110-2  EXCHANGER  OFF  TRANSIENT  HYTTHA  INPUT  DATA 
(CONTINUED) 


t 


9. 

.2 

69 

70. 

101. 

101. 

9 

11 

2  9 

-12  -13 

9. 

.2 

.69 

70. 

101. 

101. 

10 

11 

2  10 

-11  -14 

9. 

.2 

.69 

70. 

101. 

101. 

n 

11 

2  32 

15  -33 

9. 

.2 

.69 

70. 

101. 

101. 

12 

81 

2  12 

-19 

9. 

4.627 

10. 

1. 

70. 

70. 

13 

81 

2  13 

-18 

9. 

4.979 

10. 

1. 

70. 

70. 

14 

81 

2  14 

-17 

9. 

4.979 

10. 

1. 

70. 

70. 

15 

81 

2  11 

-16 

9. 

4.627 

10. 

1. 

70. 

70. 

16 

11 

2  19 

18  -20 

9. 

.2 

.69 

70. 

101. 

101. 

17 

11 

2  20 

21  -22 

9. 

.2 

.69 

70. 

101 

101. 

Id 

11 

2  16 

17  -21 

9. 

.2 

.69 

70. 

101. 

101. 

19 

11 

2  22 

23  -24 

9. 

.2 

.69 

70. 

101. 

101. 

20 

61 

1  -27 

3600. 

10. 

70. 

21 

62 

3  27 

-23 

9. 

9. 

17.36 

10 

.992 

.11 

665. 

1. 

70. 

70. 

22 

21 

5  5 

-26  4 

9. 

9. 

2. 

6.6 

.033 

.0069 

.022 

.65 

0.0 

25.0 

27.0 

5.0 

5.0 

0.0 

23 

11 

2  38 

-28 

9. 

0.001 

0.001 

70. 

120. 

120. 

24 

11 

2  28 

-1 

4. 

0.32146 

0.61375 

70. 

111. 

110. 

25 

11 

2  1 

-29 

4. 

0.32146 

0.61375 

1.578 

5.9 

5.1 

0069 

70. 

2.3 

5.9 

5.1 

.0069 

70. 

2.3 

5.9 

5.1 

.0069 

70. 

2.3 

5.9 

5.1 

.0069 

70. 

.083 

9.63 

99. 

69. 

.0069 

101. 

90. 

.01 

.0002 

.083 

9.63 

99. 

69. 

.0069 

101. 

90. 

.01 

.0002 

.083 

9.63 

99. 

69. 

.0069 

101. 

90. 

.01 

.0002 

.083 

9.63 

99. 

69. 

.0069 

101. 

90. 

.01 

.0002 

2  3 

5.9 

5.1 

.0069 

70. 

1.578 

5.9 

5.1 

.0069 

70. 

2.3 

5.9 

5.1 

.0069 

70. 

1.052 

5.9 

5.1 

.0069 

70. 

93.410 

1.558 

4.67 

5.467 

1.75 

155. 

77. 

.0069 

75. 

.06 

3.5 

10. 

.1 

3. 

.3 

2.5 

12. 

1. 

500. 

0.0 

85. 

85. 

92. 

92. 

0.001 

0.001 

0.001 

.0069 

120. 

.8646 

14.429 

2.7772 

.0069 

■’0. 

1. 

14.429 

2.7^2 

.0069 

90. 
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TABLE  26  TEST  RUN  NO 
(CONTINUED) 


110-2  HEAT  EXCHANGER  OFF  TRANSIENT  HYTTHA  INPUT  DATA 


« 


•u. 

108. 

108. 

26 

11 

2 

30 

-2 

4. 

0. 

32146 

0.613'5 

.5 

70. 

126. 

126. 

2- 

11 

2 

8 

-31 

4. 

.5214 

0.613-5 

1. 

70. 

92. 

92. 

28 

11 

2 

31 

-32 

4. 

i.2r 

0.61375 

1. 

70. 

92. 

92. 

29 

11 

2 

33 

-34 

4. 

0. 

32146 

0.613-5 

1. 

70. 

101. 

101. 

30 

11 

2 

24 

-35 

4. 

0.32146 

0.41375 

1. 

70. 

ICO. 

100. 

31 

11 

2 

25 

-36 

4. 

o.; 

12146 

0.61375 

.5742 

70. 

136. 

136. 

32 

11 

2 

36 

-37 

4. 

0.32146 

0.61375 

.3060 

70. 

136. 

136. 

33 

11 

2 

37 

-15 

9. 

.0-26 

.69 

1. 

70. 

136. 

136. 

15 

19 

01 

1 

12 

1 

5 

16. 

19 

3 

0 

24 

30 

1 

0 

35 

2 

1 

2 

8 

12. 

1 

2 

0 

33 

23 

1 

0 

28 

3 

2 

3 

5 

12. 

2 

1 

0 

30 

26 

1 

0 

2 

4 

3 

4 

5 

0. 

3 

3 

0 

6 

5 

1 

0 

— 

5 

3 

4 

9 

12. 

3 

2 

0 

3 

4 

1 

0 

4 

7 

1 

6 

4 

5 

7 

12. 

7 

3 

0 

8 

2- 

1 

0 

31 

7 

5 

6 

5 

16. 

11 

3 

0 

33 

29 

1 

0 

34 

8 

6 

7 

3 

8. 

8 

3 

0 

9 

9 

1 

9 

6 

8 

3 

8. 

8 

2 

0 

10 

10 

1 

10 

7 

10 

5 

4. 

9 

2 

0 

12 

12 

1 

0 

19 

11 

7 

10 

5 

4. 

9 

3 

0 

13 

13 

1 

0 

IS 

12 

8 

11 

5 

4. 

10 

3 

0 

14 

14 

1 

0 

17 

13 

8 

11 

5 

4. 

10 

2 

0 

11 

15 

1 

0 

16 

14 

10 

9 

3 

8* 

16 

3 

0 

20 

1- 

1 

IS 

11 

9 

3 

8. 

18 

3 

0 

21 

17 

2 

16 

9 

12 

3 

16. 

P 

3 

0 

22 

19 

1 

17 

13 

12 

3 

.01 

21 

2 

0 

23 

19 

2 

18 

15 

14 

3 

.01 

20 

1 

0 

27 

21 

1 

19 

1 

5 

9 

4. 

1 

3 

0 

25 

31 

1 

0 

36 

11 

2 

18 

0 

00 

000 

1 

4 

l 

4 

-1 

-4 

2 

2 

l 

4 

23 

2 

-2 

-4 

31 

3 

l 

4 

-2 

33 

2 

-1 

-4 

35 

l 

4 

36 

3 

1 

4 

-2 

1 

1 

1 

2 

1 

3 

l 

4 

1 

9 

1 

10 

1 

11 

l 

12 

l 

1* 

1 

18 

14.429 

2.77-2 

.0069 

*5. 

14.429 

2. -—2 

.0069 

‘0. 

14.429 

2.-2 

.0069 

"0. 

14. 429 

2. —“2 

.0069 

*0. 

14.429 

2.7” 2 

.0069 

'0. 

14.429 

2.7*72 

.0069 

IOC. 

14.429 

2.77-2 

.0069 

"0. 

5  9 

5.1 

.0069 

•0. 

1  1 

24  1 

3  1 

-  2 

0  1 

25  1 

0  29 

6  1 

0  5 

22  1 

0  26 

28  1 

0  32 

11  1 

8  1 


16  1 

16  2 

18  2 

18  l 


32  l  0  V  33  1  0  15 


15  16  17  13 
1  13  l  16  1  15  1  16 
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FIGURE  171  HYTTHA  SIMULATION  DATA  RUN  110-2-T1 


FIGURE  172  HYTTHA  SIMULATION  DATA  RUN  110-2-T2 
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UUlZB.  HZ  OUO  u.  i-WZC- 


THERMAL  TRANSIENT  TEST 
110-S-T7  TRANSIENT  TEST 
3  GPM  0  F' 


THERMAL  TRANSIENT  TEST 
1 10-3-Tfl  TRANSIENT  TEST 
3  GPM  0  r 


P 

R 

E 

S 

S 

u 

R 

E 

I 

N 

P 

S 

I 

a 


TIME  IN  SECONDS 


THERMAL  TRANSIENT  TEST 
US-S-T9  TRANSIENT  TEST 
3  GPM  0  F 


THERMAL  TRANSIENT  TEST 
HO-5-P1  PUMP  START  UP  TRANSIENT 
3  GPM  0  F 


FIGURE  174 


DATA  RUN  NUMBER  110-5  (CONTINUED  ) 
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TIME  IN  SECONDS 

THECAL  TRA  NS  I  ENT  TEST 
110-S-QSt  TRANSIENT  TEST 
a  GPt*>  0  F 
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5 
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iSIl 


■ill 

ni 
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time  in  seconds 

THERMAL  TRANSIENT  TEST 
l 10- S-D6  TRANSIENT  TEST 
3  SfT-1  0  F 


FIGURE  174  DATA  RUN  NUMBER  110-5  (CONTINUED) 


TABLE  27  TEST  RUN  NO.  110-5  COLD  PUMP  START-UP 
HYTTHA  INPUT  DATA 


HYTIHA  TtST  RUN  NO.  "110-5"  —  COLD  PUhP  START  UP  --(D2THERM)  * 


38  33 

.5 

200. 

1 

6. 

2. 

14.7 

1  9 

.0  U 

2  90 

90 

201.5 

1. 

.0580 

2  9 

0  0 

3  90 

90 

160.0 

1. 

.0580 

3  9 

0  0 

u  0 

U 

2.75 

1. 

.0580 

4  9 

u  u 

0  0 

0 

2. 

1. 

.0580 

5  9 

0  0 

0  u 

U 

2. 

1. 

.0580 

6  9 

0  0 

0  0 

0 

11.25 

1. 

.0580 

7  9 

0  0 

u  U 

0 

11. 

1. 

.0580 

8  9 

u  0 

0  n 

0 

25.5 

1. 

.0580 

9  9 

0  0 

0  0 

0 

7.U 

.75 

.0420 

1G  9 

0  0 

U  0 

0 

7.0 

.75 

.0420 

11  9 

u  0 

1  90 

7  375 

.75 

.0420 

12  9 

0  0 

1  90 

7.375 

.76 

.0420 

13  9 

0  0 

0  0 

0 

2. 

.75 

.0420 

14  9 

0  0 

U  0 

0 

2. 

.75 

.0420 

15  9 

0  0 

1  90 

78.375 

.375 

.0220 

16  9 

0  0 

1  90 

7.J76 

.75 

.0420 

1/  9 

o  u 

U  U 

V 

2. 

.75 

.04^0 

18  9 

2. 

.75 

.0420 

19  9 

0  0 

1  90 

7.3"I5 

.75 

.0420 

20  9 

7. 

.75 

.0420 

21  9 

0  0 

0  0 

7. 

.75 

.0420 

22  9 

0  0 

2  90 

90 

40.875 

1. 

.0680 

23  9 

3.1250 

1. 

.0580 

24  9 

0  0 

1  90 

28.625 

1. 

.0580 

2. 


4.  .0009  0.  6. 

90 

4.  .0069  U.  6. 

0 

4.  .0069  0.  b. 

0 

4.  .0069  0.  6. 

0 

4.  .0069  0.  6. 

0 

4.  .0069  0.  6. 

0 

4.  .0069  0.  6. 

0 

4.  .0069  U.  b. 

0 

4.  .0069  U.  6. 

U 

4.  . UUby  0.  6. 

4.  .0069  0.  b. 

4.  .00b9  0.  6. 

0 

4.  .0069  0.  6. 

0 

.0069  0.  6. 

.  . 0U69  0.  6. 

.  .0069  U.  6. 

V 

.  .U069  U.  b. 

.  .0069  0.  6. 

.  .0069  0.  6. 

.  .0069  U.  6. 

.  .0069  0.  b. 

.  .0069  0.  6. 

.0069  0.  6. 

.0069  O.  fi. 


» 


TABLE  27  TEST  RUN  NO.  110-5  COLD  PUMP  START-UP 
HYTTHA  INPUT  DATA  (CONTINUED) 


9 


10.375 

1. 

.0580 

4. 

.0069 

0. 

b. 

6. 

28  9 

15.625 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

29  9 

1.625 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

30  9 

15.125 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

31  9 

37. 

0  0 
1. 

1  135 
.0580 

4. 

.0069 

0. 

6. 

6. 

32  9 

6.625 

0  0 
1. 

1  135 
.0580 

4. 

.0069 

0. 

6. 

6. 

33  9 

15.25 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

34  9 

15.125 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

35  9 

1U. 

1. 

.0580 

4. 

.0069 

0. 

6. 

6. 

36  9 

15.125 

.375 

.0220 

4. 

.0069 

0. 

to. 

b. 

37  * 

1.625 

.375 

.0220 

4. 

.0069 

0. 
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FIGURE  178  HYTTHA  SIMULATION  DATA  RUN  UO-5-T2 
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SECTION  VI 


HYDRAULIC  LINE  MECHANICAL  RESPONSE  (HLMR)  PROGRAM 


1.  BACKGROUND 

Hydraulic  line  vibrations  due  to  pulsations  from  axial  piston-type 
pumps  can  cause  wear  and  tear  problems  in  high  performance  aircraft.  In 
a  continuing  effort,  analytical  tools  are  being  developed  to  correlate  theory 
and  test  data.  Complicating  the  analysis  is  the  fact  that  piping  systems 
contain  bends  which  tend  to  change  the  mechanical  response.  This  can  cause 
fundamental  resonances  in  the  pump  operating  regime  and  damage  the  installation. 

The  importance  of  developing  analytical  tools  coupled  with  experimental 
tests  was  recognized  at  AFAPL  and  funds  were  allocated  to  pursue  this  development. 

The  initial  objectives  of  the  HIMR  effort  were  to: 

o  Develop  and  verify  a  computer  program  for  predicting  line  mechanical 
response  due  to  pump  pulsations 

o  Provide  basic  data  for  the  design  of  piping  systems 

o  Provide  information  regarding  intermediate  supports 

The  test  program  involved  the  determination  of  mode  shapes  of  mechanical 
and  hydraulic  resonances  due  to  pump  excitation  as  measured  by  accelerometers 
on  three  configurations.  These  were  a  straight  pipe,  a  pipe  with  a  single  90-deg 
bend,  and  one  with  two  90-deg  bends  (dogleg).  In  addition,  the  effect  of  an 
intermediate  elastomeric  support  was  evaluated. 

The  results  were  reported  in  reference  (2).  There  was  good  correlation 
between  analyses  and  test  data  using  simplifying  assumptions. 

Since  completion  of  these  first  series  of  test,  supplemental  funds  were 
allocated  to  repeat  the  test  on  the  specimen  with  a  single  90-deg  bend  using 
strain  gages  in  lieu  of  accelerometers. 

To  review  the  first  series  of  tests  performed  on  the  one-elbow  pipe 
(one-inch  titanium  line  with  0.051-in.  wall  thickness)  the  results  are  summarized 
in  Figure  177.  The  horizontal  lines  indicate  natural  frequencies  measured  in  the 
test.  The  radial  lines  depict  the  relationship  between  the  exciting  frequency  and 
the  pump  speed,  representing  the  harmonics  or  multiples  of  the  pumping  frequency.  The 
intersections  of  the  radial  lines  (hydraulic  exciting  frequencies)  with  the  horizontal 
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lines  (natural  mechanical  frequencies)  indicate  conditions  of  mechanical 
resonance. 

Although  the  tests  indicated  three  hydraulic  resonances,  at  pump  speeds 
of  1600  rpm,  2900  rpm,  and  4300  rpm  (predicted  by  the  HSFR  program)  none 
excited  a  fundamental  mechanical  resonance.  At  1600  rpm,  no  significant 
mechanical  responses  were  measured  in  any  of  the  test  configurations.  At 
the  other  two  pump  speeds  there  were  larger  responses  in  terms  of  measured 
accelerations.  By  extrapolating  the  data,  the  intersection  of  the  horizontal 
1030  Hz  line  with  the  radial  first  harmonic  line,  indicates  that  the  fundamental 
mechanical  resonance  would  occur  at  6900  rpm.  Fortunately  the  pump  does  not 
have  the  capability  to  achieve  such  a  speed  where  a  potential  catastrophe 
would  most  likely  occur. 

The  mode  shapes  are  shown  as  insets  in  Figure  177.  The  elastomer  in  the 
clamp  was  elastic  enough  that  there  was  no  effect  on  the  mode  shape  and 
the  accelerations  were  only  slightly  lower. 

2.  ANALYTICAL  APPROACHES 

The  most  important  aspect  in  developing  an  HLMR  program  is  selection  of  a 
mathematical  model.  The  best  mathematical  solution  will  not  overcome  a  modeling 
error. 

The  natural  frequencies /critical  speeds  are  unique  to  a  given  line 
installation.  The  equations  of  motion  can  be  derived  without  too  much  difficulty. 
The  resolution  of  these  equations  is  the  basic  obstacle.  The  stumbling  block 
is  either  the  geometric  arrangement  or  the  irregular  shape  of  the  system.  This  is 
where  rigorous,  exact  closed  form,  mathematical  solutions  are  inadequate. 

a)  Technical  Overview 

A  preliminary  study  was  made  to  investigate  methods  for  calculating 
hydraulic  line  vibration  response  and  strains.  Vibration  properties  could  be 
computed  in  NASTRAN  and  would  serve  as  the  base  for  these  response  calculations 
which  would  be  performed  outside  of  NASTRAN  using  MCAIR  based  programs.  A  brief 
discussion  is  given  here  with  more  details  in  Appendix 

Figure  178  shows  a  flow  chart  of  the  proposed  computer  program  latch-up 
where  NASTRAN  is  interfaced  with  MCAIR' s  programs;  Computer  Aided  Structural 
Technology  (CAST) ,  Computer  Graphics  Structural  Analysis  (CGSA) ,  Random  Access 
Matrix  Program  (RAMP),  and  HSFR.  Computer  graphics  CRT  set-up  would  be  used  as 
much  as  possible  to  enhance  visual  displays,  to  accurately  check  and  monitor  work 
and  to  increase  understanding. 
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1.  CAST/CGSA/NASTR AN/RAMP 

Mod«l  construction,  calculation  of  fraquancy  (O),  mode  lhapa  (#)  and  generalized  man.  pan  to  RAMP 

2.  HSFR 

Calculate  preuure  (p),  pan  to  RAMP 

3.  RAMP 

Calculate  forcing  function,  F,  and  reeponn,  pan  to  CAST  for  display 
3.  HSFR/RAMP/NASTR AN/CAST 

Pressure  data  to  RAMP  calculation  of  forcing  function,  than  to  NASTRAN  for  response,  display  in  CAST 

omoorr-isa 

FIGURE  17«  •  FLOWCHART  OF  LINE  VIBRATION  RESPONSE  PROGRAM 
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A  NASTRAN  model  would  be  constructed  using  MCAIR’s  CGfiA  procedure.  The 
model  would  be  kept  simple  but  representative  enough  tc  allow  for  proper 
definition  of  radial, in-plane  and  out-of-plane  dynamics.  Various  clamp  loca¬ 
tions  along  the  pipe  will  be  allowed,  and  various  types  of  clamps  and  stiffness 
ranges  will  be  investigated.  The  vibratory  data  derived  from  NASTRAN  will 
consist  of  normal  mode  frequencies,  shapes,  and  generalized  masses.  These  data 
will  be  passed  to  RAMP  where  the  response  functions  and  strains  will  be  computed 
using  the  pump  pressure  functions  from  IISFR. 

Consideration  was  given  to  including  to  the  extent  possible  both  (a)  the 

response  due  to  steady  state  vibration  forces  Induced  by  the  pressure  pulsations 
(combination  of  fluidic  and  mechanical  resonances),  and  (b)  the  response  due 
to  the  Bourdon-Tube  type  loads  ii  pipe  bends.  This  latter  forcing  function  was 
found  to  occur  in  the  curved  part  of  the  pipe,  and  will  couple  the  various 
motions  in  the  radial  in-plane  and  out-of-plane  directions.  This  force  can 
also  lead  to  unstable,  self-excited,  vibratory  conditions  in  some  cases.  This 
latter  mechanism  is  similar  co  that  found  in  "follower-force"  problems  and  in 
flutter,  see  References  (13)  and  (14).  The  plan  is  to  primarily  concentrate 
on  this  Bourdon -Force  excitation  which  may  be  the  key  to  large  responses  noted, 
whether  steady  state  vibratory  excitation  or  self-excited  cases.  A  preliminary 
check  was  made  on  a  self -excited  vibration  case  using  approximate  data. 

This  showed  the  possibility  for  oscillations  to  occur  and  involve  the  Bourdon  Force 
coupling  of  the  first  and  third  out-of-plane  bending  modes.  This  mechanism  was 
not  observed  in  the  tests  because  we  were  unable  to  excite  the  first  mode 
frequency  in  the  range  of  pump  operating  frequencies. 

A  limited  effort  would  be  given  to  evaluating  nonlinear  effects  and 
other  oscillatory  effects  such  as  those  which  might  arise,  due  to  oscillatory 
forces  in  the  Mathieu-Hlll  mechanism. 
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b)  Equations  of  motion 

The  equations  of  motion  using  normal  vibration  modes  appear 
as: 


‘V  (V + 12  MJJ  ‘j  “J1  <V  +  «-j  V  <V  ■ ,F) 


(63) 


where  M. A  is  generalized  mass,  w,  is  normal  mode  frequency,  ?.  is  normal  mode 

J  «l  J  J 

damping  coefficient,  q^  is  the  normal  mode  degree  of  freedom  deflection  ampli¬ 


tude,  and  Fj  is  the  generalized  force.  The  generalized  force  can  be  broken 
down  into 


F  -  F 

j  ° 


+  F 


j 


'j 


(64) 


where  F  ,  is  a  generalized  force  independent  of  the  deflection  q . ,  while  F 

oj  6  Hi  cj 

is  the  generalized  force  varying  with  the  deflection.  Each  are  ultimately 
functions  of  time. 

Cases  involving  forces  independent  of  the  deflection,  Fq,  give  rise  only 
to  steady  state  response  and  are  stable.  However,  cases  involving  forces 
that  are  directly  proportional  to  the  deflection,  F^ ,  can  give  rise  to 
instability  or  self-excited  vibrations  as  found  in  "follower  force"  problems, 
see  Ref. (13),  ^nd  in  flutter,  see  Ref. (14). 

where  FQj  is  a  generalized  force  varying  only  with  time,  but  independent  of  the 

amplitude  Z,  while  Fc^  is  the  generalized  force  varying  with  the  amplitude  Z 

and  is  thus  also  a  time  function  (indirectly). 

Cases  involving  forces  independent  of  the  coordinates,  F  ,  give  rise  only 

to  steady  state  response,  and  are  as  stable  as  the  input  force.  However,  cases 

involving  forces  that  are  directly  proportional  to  the  coordinates,  F  ,  can 

c 

give  rise  to  instability  or  self-excited  vibrations  as  found  in  "follower 
force"  problems,  see  Ref.  (13)  and  in  flutter,  see  Ref.  (14). 

We  can  represent  Fc^  as 


<F  >  "  [Ajk3  {qk}  +  lB]  {qk}  +  lC]  {c‘k} 
and  substituting  into  (1)  yields 

hi1  -  (v]  v  ♦  [« «,  “j  i  -  >v] 


(65) 


[<“/  v  +  lv]  v  ■  (v 


(66) 


Equation  (66)  gives  all  possible  solutions  for  stability  and  response.  The  left 
hand  side  with  Fq  «  0  gives  the  transient  solution,  say  qT,  and  hence  stability. 


n-t 
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The  solution  with  the  right  hand  side  not  zero,  Fq  //  0,  gives  the  steady  state 


response  solution,  qg.  The  total  solution  is  the  sum 

q  “  qT  +  qs  (67) 

The  actual  physical  deflections,  Z,  are  a  product  of  the  normal  mode  shapes  $,  from 
NASTRAN  in  this  case,  and  the  q's  or, 

Z  -  *q  -  *(qT  +  qg)  (68) 

The  structural  strains  are  computed  from  the  curvature  of  Z  with  respect 
to  distance  along  the  pipe,  or  for  example, 


•x  u  M " w  M  (qT +  v 

axz  ax  1  s 


(69) 


where  u  is  the  distance  from  a  mid  plane  to  the  extent  where  maximum  strain 
occurs. 

Returning  to  Equation  {66)  we  can  indicate  some  preliminary  results  of  a 
study  of  the  self  excited  vibration  case.  For  cur  approach,  the  Bourdon-Tube 
Load  (Lg)  is  idealized  as  Indicated  on  Figure  179,  and  has  a  magnitude  given  by 


d(LB) 


2 

pr  d<|> 


(70) 


where  p  is  the  pressure,  r  is  the  pipe  radius,  d*  is  in  differential  angle 
along  the  pipe  bend.  Based  on  the  idea  for  vertical  excitation  due  to  (Lfi) , 

or  (LBy^  where 

d<y-«v£-«v  [if +fff]  (71) 

note 

X  ■  n  co  8  $ 

Y  *  r»  sin  4> 

along  the  curved  section  0  <  6  <  9C°, 

"<Vv  •  [<<=°8  ♦>  If  +  ♦>  §] 

The  virtual  work  of  this  force  is  6W,  where 


6(dW)  -  d(LR)y  6Z 


(72) 

(73) 
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and  the  generalized  rorce  F  is  defined  along  the  curved  part  of  the  line  as 

w/2  jr/2 
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(75) 
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Sid*  View  -  Upper  Leg 


Side  View  -  Lower  Leg 


FIGURE  179  •  BOURDON  TUBE  LOADS 


IT 


252 


Note  that  the  deflections  Z  defined  in  Equation  (68)can  be  expressed  as 


N  N 

2  “  1  *j  v  2  ■  2  *K  qK  (76) 

J-l  J  J  K»1  *  R 

and  substituting  this  into  Equation  (75) 

/2 

<*j>  d<V  (77) 

but  again  using  Equations  (70),  (73)  and  (76)  into  (77),  and  the  relationship 
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the  forces  F^  can  be  expressed  as 
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Thus,  in  this  case,  the  terms  [A]  *  [B]  ■  0  in  Equation  (60  while  the 


[CJKJ  term  is  expressing  dft 
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Once  the  mode  shapes  ft  are  known,  the  loads  can  be  determined. 

For  stability  assessment,  a  search  of  the  roots  of  the  determinant  is  made 
of  the  left  hand  side  of  Equation  66.  For  example,  for  a  multidegree  of  freedom 
case,  the  determinant  using  the  Bourdon  Load  shown  here  is 


DETlfu^Mjj]  +  fZCj-Hjj  Uj  «]  +  1[«j2mjj)  "  PlDlJl  -  0  (81) 

where  p[D]  «  IC). 

The  roots  4  will  be  a  polynomial  dependent  upon  pressure  (p),  or 

Z  A  (u(p) ]°  -  0  (82) 

n-1  n 

This  can  have  real  and  or  complex  roota  indicating  stable,  neutrally  stable,  or 
unstable  behavior.  This  is  shown  by  the  expression 

<T  "  ^  (83) 

T  n-1  " 

where  the  terms  are  constants  associated  with  initial  conditions,  and  the 

u  terms  are  the  roots  of  Equation  (81).  If  the  u's  are  real  below  the  critical 
N 

pressure, stable  motion  exists.  Above  the  critical  pressure  some  roots  have 
complex  form  indicating  unstable  motion. 
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An  exploratory  case  was  carried  out,  using  a  two  degree  of  freedom  configuration 

considering  the  1st  and  3rd  out-of-plane  pipe  bending  modes.  This  two  degree  of  freedom 
case  has  a  closed  form  solution  for  critical  pressure  and  frequency.  Lacking 
precise  mode  shape  data  it  was  determined  that  the  frequencies  coalesce  as 
depicted  in  Figure  180. 


FIGURE  180  •  FREQUENCY  vs  LINE  PRESSURE 

2  D/F  Case  Modes  1  and  3 
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3.  VERIFICATION  TESTS 

Proof  of  theoretical  analyses  is  in  the  prediction  of  significant  parameters 
affecting  a  given  hardware  system.  This  means  that  the  accumulation  of  test  data  affords 
analysis  a  certain  degree  of  confidence  in  the  ability  to  extrapolate  the  data. 

a.  Test  Set  -  Up 

Previous  test  response  data  was  taken  with  accelerometers.  Subsequent  tests 
were  performed  with  one  of  the  original  test  specimens,  the  one-elbow  pipe,  using 
strain  gages  to  measure  response.  Since  pulsation  response  is  significant,  the 
primary  objective  in  this  series  of  tests  was  to  evaluate  the  effect  of  stresses 
on  the  hydraulic  line  fatigue  life,  and  secondarily  to  reconfirm  the  hydraulic/ 
mechanical  resonances. 

The  test  specimen  was  one-inch  diameter  tubes,  with  0.051-in.  wall  thickness 
of  3A1-2.5V  titanium  having  a  single  90-deg  bend  at  midpoint.  The  pipe  was  rigidly 
mounted  at  each  end  using  Dynatube  fittings  between  the  brackets,  Figure  181,  attached 
to  a  steel  plate.  In  the  test  set-up,  the  test  specimen  was  a  part  of  the  pressure 
system  between  the  pump  and  the  flow  control  valve,  and  was  isolated  from 
extraneous  mechanical  vibration  inputs  in  order  to  more  clearly  evaluate  the 
effect  of  the  pump  pulsations.  The  test  fluid  was  MIL-H-5606C  hydraulic  oil. 

Also  shown  in  Figure  181  are  the  locations  of  the  strain  gages,  four  gages 
at  each  of  the  five  selected  locations,  and  the  position  of  the  clamp  block. 

The  type  of  gages  installed  were  the  CEA-06-125UW-350  with  a  gage  factor  of 
2.09  +0.5%.  A  gage  factor  is  defined  as  the  unit  change  of  resistance  divided 
by  the  strain  which  is  a  runction  of  the  gage  material. 

At  each  location  the  gages  are  attached  to  the  tubing  90-deg  apart;  one  each  on  top  and 
bottom,  one  each  on  the  inside  and  outside  of  the  plane  containing  the  bend. 

A  typical  strain  gage  installation  is  shown  in  Figure  182.  The  strain  gagas  were 
connected  to  the  lab  instrumentation  through  signal  conditioning  equipment  by  means 
of  a  five-wire  system  and  shunt  calibration.  Only  ten  strain  gage  outputs  could  be 
recorded  on  analog  tape  at  a  given  time.  Consequently  two  runs  were  made  for  a  given 
test  condition  to  record  the  in-planeand  out-of-piane  values. 
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Strain  Gage 
CEA-06- 1 25UW-350 
(4)  Peqci  per  Location 


QanMMta* 

FIGURE  182  TYPICAL  STRAIN  GAGE  SETUP 


All  tests  were  performed  with  a  pump  outlet  flow  of  2.0  gpm,  at  a  pump  inlet 
temperature  of  130  +  10°F,  and  a  system  air  content  of  less  than  one  percent  by  volume. 

A  transducer,  coupler,  and  a  clamp-on  block  were  used  to  determine  the  standing 
pressure  wave  in  the  test  specimen.  The  procedure  was  to  place  the  clamp-on  transducer 

at  different  locations  on  the  test  specimen  and  conducting  1000  rpm  to  5000 
rpm  pump  sweeps  while  recording  the  fundamental  pressure  amplitude.  The  standing 
pressure  waves  were  determined  for  the  unclamped  and  clamped  conditions. 
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From  the  analog  tape  data,  different  harmonic  strain  amplitudes  as  a  function 
of  pump  speed  were  made  for  each  strain  gage  using  the  same  technique  as  the  one 
for  recording  the  standing  pressure  wave. 

For  test  Series  No.  1  the  clamp  used  was  a  single  loop  clamp,  Figure  183, 
with  a  yellow  nitrile  elastomer  cushion.  The  results  obtained  were  similar 
to  those  with  the  specimen  unclamped,  as  previously  mentioned  in  Part  I  of  Section 
VI.  (Ref.  2)  For  this  second  set  of  tests,  it  was  decided  to  use  an  I-15-type  clamp,  also 
shown  in  Figure  183,  which  uses  a  white  teflon  grommet  as  a  spacer  in  conjunction  with 
a  single  loop  clamp  with  an  .02-in.  thick  green  teflon  cover.  The  installed  clamp 
is  shown  in  Figure  184  and  was  designed  to  restrain  the  test  specimen  in  the  inplane 
direction  since  the  first  test  series  indicated  that  this  was  the  direction  of  maximum 
responses . 


FIGURE  113  TEST  CLAMPS 
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b.  Test  Results 

The  hydraulic  resonances  were  the  same  three  as  those  reported  in  Reference  ( 2  ) , 
namely,  1600  rpm,  2900  rpm,  and  4300  rpm. 

Examples  of  the  pump  sweeps  to  determine  resonances  are  seen  in  Figures  185  through 
11.  In  Figure  185  at  the  indicated  location  with  the  test  specimen  unclamped,  the 
resonances  are  clearly  discernible  especially  the  one  at  4300  rpm  which  is  being  excited 
by  the  major  hydraulic  resonance.  At  the  same  location  with  the  test  specimen  clamped, 
Figure  186,  again  the  hydraulic  resonance  at  4300  rpm  produced  a  significant  strain 
response  and  another  one  at  1350  rpm  which  is  a  mechanical  response.  However  the  strain 
measurements  as  a  function  of  pump  speed  must  be  compared  for  all  locations  or  an 
erroneous  picture  may  be  obtained  as  depicted  in  Figure  187.  Here  the  location 
of  the  measurement  is  near  the  clamp  and  the  responses  are  much  more  subdued  at  1350 
rpm  and  the  major  response  is  at  1600  rpm  which  has  been  previously  identified  as  a 
hydraulic  resonance. 

Once  the  composite  mechanical  and  hydraulic  resonances  were  identified,-  the 
corresponding  pump  speeds  were  dwelled  at  for  approximately  one  minute.  Data 
plots  of  strains  as  a  function  of  frequency  at  each  resonant  pump  speed  indicates 
the  harmonic  content.  For  example,  at  3436  rpm  (a  mechanical  resonance)  and  at  the 
location  indicated  in  Figure  188,  the  unclamped  test  specimen  indicates  that  the  second 
harmonic  of  the  pump  speed  produces  the  largest  response.  Figures  189  end  190  are 
the  strain  responses  of  dwells  at  the  hydraulic  resonances  of  2860  rpm  and  4300  rpm, 
respectively.  In  Figure  189,  again  the  second  harmonic  is  the  predominant  response. 

However  in  Figure  190  the  major  hydraulic  resonance  at  4300  rpm  does  produce  a  first 
harmonic  content. 

The  results  are  summarized  in  Figures  191  and  192  for  the  unclamped  and  clamped 
versions,  respectively.  Similar  to  the  summary  for  the  first  test  series,  the  horizontal 
lines  are  the  measured  natural  frequencies  and  the  radial  lines  are  harmonics  of 
the  pump  speed.  The  basic  reference  1s  that  5000  rpm  represents  750  Hz.  The 
resonances  are  the  intersections  of  the  radial  lines  with  the  horizontal  lines. 

The  unclamped  test  specimen  duplicated  the  first  test  series  and  in  addition 
produced  a  mechanical  response  at  the  1600  rpm  hydraulic  resonance  not  previously 
noted.  However,  this  is  only  of  passing  Interest  as  the  pump  operating  regime  is 
considerably  higher  than  this  value.  All  the  remaining  mechanical  and  hydraulic  reson¬ 
ances  produced  identical  frequencies.  The  clamped  test  specimen,  had  the 
same  hydraulic  responses  and  frequencies,  Figure  192,  but  the  more  rigid  clamp 
arrangement  caused  the  mechanical  resonances  to  drop  to  the  first  harmonic 
radial  line  and  consequently  produced  lower  frequencies.  This  indicates,  once 
again,  that  the  use  of  clamp(s)  in  long  lines  can  and  does  produce  undesirable  results 
and  eventual  wear  of  the  teflon  grommet  and  ultimately  metal-to-met al  fretting. 
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PUMP  RPM  X  1000 


FIGURE  187  ONE-ELBOW  CLAMPED, 
111-05-S15,  FUNDAMENTAL, 
LOCATION  4,  LOWER 
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FIGURE  189  ONE-ELBOW  PIPE  UNCLAMPED, 
111-18-S17,  3436  RPM, 

LOCATION  5,  UPPER 


FREQUENCY  (HZ) 


FIGURE  190  ONE-ELBOW  PIPE  UNCLAMPED, 
111-19-SI,  4303  RPM, 

LOCATION  1,  UPPER 


FIGURE  191  HLMR  TEST  DATA  SUMMARY  ONE-ELBOW  PIPE  UNCLAMPED 
Based  on  Strain  Gage  Measurements 


264 


Frequency  -  Hz 


Hac  mantes 


FIGURE  192  HLMR  TEST 
Based  on 
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A  SUMMARY  ONE-ELBOW  PIPE  CLAMPED 

In  Gage  Measurements 
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c.  Data  Reduction  Procedure 

The  longitudinal  strain  measurements  at  each  location  would  produce 
erroneous  stress  values  if  taken  individually.  Since  radial  or  hoop  strains  have 
been  consistenly  measured  at  an  average  of  1220  micro  in. /in.  independent  of  pump 
speed,  the  procedure  was  to  use  three  longitudinal  strain  measurements  and  the  hoop 
strains  value  at  each  location  to  determine  the  four  associated  parameters.  These 
are  the  internal  pressure,  the  axial  load,  and  the  inplane  and  out-of-plane  moments. 

Only  the  internal  pressure  value  is  used  to  determine  the  loop  stress  which,  in  turn, 
provides  a  indication  of  the  static  strength  of  the  specimen.  But  all  four  values 
go  into  the  determination  of  the  longitudinal  or  axial  stress  which  is  a  measure  of 
the  specimen  fatigue  life.  Consequently  an  assessment  of  the  static  strength  and  fatigue 
life  of  a  given  specimen  is  a  measure  of  its  structural  integrity. 

From  the  first  series  of  tests,  the  six  accelerometer  data  points  for  each 
resonance  was  used  on  a  beam  with  built-in  ends.  This  was  performed  only  for  the 
unclamped  case.  The  method  used  converts  the  accelerometer  loading  successively 
through  the  shear  and  moment  values,  and  from  the  moment  the  bending  stresses 
as  outlined  in  Appendix  W. 

d .  Stress  Comparison 

From  the  above  mentioned  methods,  the  stresses  for  the  unclamped  specimen 
based  on  accelerometer  and  strain  gage  data  are  compared  in  Figures  193  through 
197.  These  five  graphs  cover  the  mechanical  and  hydraulic  resonances.  The 
accelerometer  data  indicate  the  inplane  stresses  are  higher  than  the  out-of-plane 
stresses  especially  at  the  major  hydraulic  resonance  at  4300  rpm.  The  calculated 
built-in  stresses  at  the  brackets  are  also  shown. 

The  longitudinal  stresses  based  on  the  strain  gage  measurements  are  the  total 
values  for  each  location  and  do  not  differentiate  between  the  inplane  and 
out-of-plane  directions.  Although  these  stresses  are  not  directly  comparable 
to  the  data  derived  from  the  accelerometer  data,  the  plots  provide  for  a  qualitative 
overview. 

For  the  clamped  version,  Figure  198,  a  comparison  is  made  between  hoop  and  axial 
stresses  for  the  mechanical  and  hydraulic  resonances  encountered  during  the  test. 

The  hoop  radial  stresses  average  25,000  psi  while  the  longitudinal  or  axial 
stresser  are  about  11,000  psi.  The  reason  the  axial  stress  is  not  exactly  half 
of  the  hoop  stress  is  due  to  the  additional  influences  of  the  axial  load  and  the 
bending  moment. 
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FIGURE  193  HYDRAULIC  LINE  MECHANICAL  RESPONSE 
ONE-ELBOW  PIPE  UNCLAMPED 
STRESS  COMPARISON 

FREQUENCY  1030  HZ  PUMP  SPEED  1700  RPM 


FIGURE  194  HYDRAULIC  LINE  MECHANICAL  RESPONSE 
ONE-ELBOW  PIPE  UNCLAMPED 
STRESS  COMPARISON 

FREQUENCY  1030  Hz  PUMP  SPEED  2300  RPM 
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FIGURE  197  HYDRAULIC  LINE  MECHANICAL  RESPONSE 
ONE-ELBOW  PIPE  UNCLAMPED 
STRESS  COMPARISON 

FREQUENCY  650  HZ  PUMP  SPEED  4300  RPM 
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FIGURE  198  ONE-ELBOW  PIPE  CLAMPED 


STRESSES  BASED  ON  STRAIN  MEASUREMENTS 
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e.  Fatigue  Life 

The  Goodman  diagram  developed  for  the  one-inch  outside  diameter  line  with 
an  .051-in.  wall  titanium  is  shown  in  Figure  199.  The  data  is  based  on  tests 
performed  at  MCAIR  at  3000  psi.  It  must  be  noted  that  it  is  restricted  to  stresses 
adjacent  to  internally  swaged  Dynatube  fittings.  Stress  levels,  including  installation 
stress,  must  stay  below  the  10^  cycle  line  throughout  the  pump  speed.  The  test 
results  presented  in  Figures  197  through  198  show  that  the  test  specimen  would  have 
adequate  fatigue  life  because  the  values  fall  below  the  referenced  cycle 
line.  This  applies  to  both  sets  of  data  (accelerometer  and  strain  gages)  although 
the  accelerometer  data  at  the  peak  hydraulic  resonance  of  4300  rpm  indicates 
marginal  fatigue  if  the  pump  speed  dwells  at  this  resonance. 


FIGURE  199  GOODMAN  DIAGRAM-  1.00  't  0.051  TITANIUM 

3A1-2.5V  TUBING 

APPLICABLE  TO  STRESSES  ADJACENT  TO  INTERNALLY 
SWAGED  DYNATUBE  FITTING 
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SECTION  VII 

SUMMARY  AND  CONCLUSIONS 


1.  HYTRAN  PROGRAM 

a.  Empirical  Pump  Model 

First  order  and  second  order  HYTRAN  empirical  pump  models  were  developed 
from  test  data.  The  mathematical  descriptions  are  in  a  simple  form  which  permits 
quick  usage  without  requiring  large  amounts  of  input  data.  The  models  have  the 
flexibility  to  allow  the  user  to  obtain  any  required  degree  of  accuracy. 

The  computer  program  input  data  is  dependent  on  measured  test  data.  How¬ 
ever,  once  the  input  parameters  have  been  established  for  various  volume 
systems  and  test  conditions,  they  can  be  applied  to  other  system  simulations. 

Both  HYTRAN  empirical  pump  models  simulate  outlet  pressure  and  flow 
response  to  turn-on  and  turn-off  transients.  Good  correlation  has  been  obtained 
between  computed  output  and  measured  test  data. 

b.  Basic  Pump  Model 

Changes  were  made  to  the  basic  HYTRAN  pump  model  to  improve  correlation 
with  test  data  and  enhance  model  usability.  Program  changes  involved  an 
orifice  coefficient  calculation  for  the  compensator  valve,  a  steady  state  flow 
force  calculation,  rederivation  of  actuator  pressure  allowing  for  diametral 
clearance  leakage  past  the  compensator,  case  drain  flow  area  calculation,  and 
hanger  offset  flow  calculation. 

Input  data  requiring  computation  was  derived  and  examples  were  given 
defining  piston  acceleration  forces  and  spring  forces  on  the  hanger  and  a 
hanger  damping  term. 

Turn-on  and  turn-off  transient  simulations  were  made  using  the  improved 
basic  pump.  Results  of  the  computer  simulations  correlated  well  with  test 
data . 

c.  Lossless  Line  Model 

In  the  present  version  of  the  HYTRAN  program,  a  fix-up  is  made  in  the 
velocity  of  sound  whenever  a  line  connecting  two  components  has  a  length  less 
than  a  Ax,  The  modification  makes  the  line  a  Ax  length  and  uses  only  the  static 
friction  effects  in  the  transient  simulation.  A  timing  error  exists  between  the 
computed  pressure/flow  at  the  inlet  and  outlet  of  the  line.  But  for  small  At's 
the  effect  is  oftentimes  negligible. 

Several  approaches  were  tried  to  connect  closely  coupled  components  without 
creating  a  timing  error.  One  approach  was  to  solve  the  components  individually 
by  using  artificial  characteristic  pressure  and  impedance  terms.  This  technique 
did  not  work. 
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An  analytical  approach  was  tried  to  rewrite  the.  HYTRAN  component  models 
to  allow  them  to  be  directly  connected  and  then  simultaneously  solve  for  pressures, 
flows,  and  component  variables.  This  procedure  was  costly  and  time  consuming 
to  implement.  Other  methods,  involving  iteration  procedures  to  solve  the  close 
coupled  component  and  line  system  using  upstream  and  downstream  characteristic 
pressures,  were  also  prohibitive  in  cost.  A  more  attractive  solution  was  to 
use  the  port  energy  method.  Implementing  this  concept  was  not  within  the  scope 
of  the  present  contract,  as  it  would  have  required  extensive  rework  of  the 
HYTRAN  program. 

The  most  practical  approach  to  decreasing  the  timing  errors  was  to  create 
a  lossless  line  model.  The  lossless  line  model  removes  the  line  friction  and 
calculates  the  fluid  velocity  based  on  fluid  properties,  and  gives  reasonable 
results . 

For  the  present  HYTRAN  program,  the  simplest  approach  to  minimizing  errors 
caused  by  closely  coupled  components  is  to  reduce  the  calculation  time  interval. 
Where  computer  machine  cost  is  a  factor, and  the  connection  distance  is  short, 
use  the  lossless  line  model. 

d.  HYTRAN  Program  Improvements 

The  two  way  control  valve,  check  valve,  priority  valve  and  restrictor 
models  were  improved.  A  reservoir  level  sensing  bootstrap  reservoir  model  and 
a  dual  system,  tandem,  valve  controlled  actuator  model  were  added  to  the  program. 
Several  enhancements  were  made  to  the  STORE,  GRAPH,  BLOCK  DATA  and  COMP  sub¬ 
programs,  with  the  appropriate  user  manual  changes.  In  addition,  a  second 
order  response  function,  SECORD  was  added  to  the  utility  library. 

2.  HSFR  PROGRAM 

a.  Amplitude  Prediction 

Substantial  improvement  has  been  made  in  the  computation  of  peak  pressure 
pulsations.  The  key  to  better  correlation  with  test  data  was  found  in  the 
accurate  computation  of  pump  flows  and  rederivation  of  the  dynamic  pressure-flow 
balance  in  the  pump  model. 

Pump  outlet  temperature  and  print  plot  locations  were  varied  to  show  the 
sensitivity  of  these  parameters  in  finding  the  peak  pressure  location  in  the 
test  system  at  any  given  RPM. 

b.  Attenuation  Techniques 

Two  general  approaches  to  solving  pressure  pulsation  problems  were  presented. 
The  first  technique  relied  on  devices  that  shifted  the  unwanted  pulsations 
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outside  the  using  range  of  the  system.  The  second  technique  involved 

components  that  actually  reduced  the  pressure  pulsation  energy  at  the  critical 
resonant  frequencies. 


c.  Empirical  Pump  Model 

Ihe  repeated  failure  of  the  hydraulic  acoustic  generator  prohibited 
further  development  and  verification  of  the  empirical  pump  model.  However, 
pump  flow  and  shunt  impedance  can  be  computed  from  values  calculated  by  the 

complete  pump  model  and  used  to  define  an  empirical  model  for  subsequent  HSFR 
simulations, 

d.  Output  Options 

HSFR  Panted  output  capabilities  have  been  greatly  extended.  The  user 
has  the  option  of  printing  critical  computational  variables  and  plotting  a 
standing  wave  for  any  line  in  the  simulation. 


3.  SSFAN  PROGRAM 

a.  Quasi-Transient 

The  addition  of  the  Ouasi-Transient  calculation  extends  the  capability 
of  SSFAN  severalfold.  The  size  of  the  time  step  selected  for  calculation 
could  affect  the  accuracy  of  the  calculation  if  it  is  too  large.  For  the 
limited  usage  that  it  has  to  date,  it  has  supplied  reasonable  results  for 
predicting  the  operating  times  of  subsystems. 

b.  Program  Improvements 

The  many  program  changes  provide  a  simpler  internal  program  for 
assembling  systems  and  the  new  matrix  calculation  technique  provides  a  faster 
(lower  cost)  solution.  This  has  been  achieved  while  keeping  the  input  data 
format  the  same  for  most  component  elements  which  should  result  in  minimal 
problems  for  users  who  switch  to  the  new  version. 

A  flow  regulator  (restrictor)  was  developed  to  keep  the  flow  constant 
'n  leg.  An  orifice  sizer  model  was  also  developed  from  thin  model  to 
compute  the  orifice  size  at  the  input  flow  rate. 
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4.  FYTTHA  Program 

a.  Program  Improvements 

Several  Improvements  were  made  to  the  HYTTHA  program.  The  user  has  the 
ability  to  default  to  various  structural,  wall,  or  fluid  temperatures  throughout 
the  system.  The  system  can  also  be  divided  into  different  environments  to  simulate 
actual  conditions  and  through  the  constant  pressure  reservoir  subroutine,  the 
user  can  specify  a  fluid  temperature  time  history. 

The  pump  model  was  enhanced  and  a  start-up  capability  was  added.  The 
computational  subroutines  were  modified  to  include  a  compressed  matrix  method 
that  reduced  the  storage  space  required  to  solve  for  the  steady  state  pressure 
values . 

A  bend  energy  loss  pressure  drop  was  added  to  the  line  subroutine,  replacing 
the  equivalent  length  method. 

b.  Verification  Tests 

Two  thermal  transient  test  runs  were  simulated  using  the  HYTTHA  program. 

The  predicted  temperature  values  were  generally  20  degrees  higher  than  the 
measured  data  at  the  end  of  the  computer  run.  Much  of  the  error  is  attributable 
to  the  thermal  pump  model.  Without  the  pump  model  in  the  simulation,  and  using 
the  measured  fluid  temperature  at  the  pump  as  a  boundary  condition,  the 
HYTTHA  computer  simulation  gave  better  correlation  to  the  test  data. 

5.  HLMR  Program 

The  second  series  of  test  on  the  one-elbow  specimen  using  strain  gages 
reconfirmed  the  previous  mechanical  and  hydraulic  resonances  measurements 
made  with  accelerometers.  The  use  of  a  stiff er  clamp  resulted  in  lower 
mechanical  frequencies  such  that  the  resonances  were  within  the  operating  regime 
of  the  pump. 

The  stresses  based  on  strain  measurements  indicate,  by  means  of  a  Goodman 
diagram,  that  specimens  of  this  size  have  adequate  fatigue  life. 

Investigation  into  the  use  of  the  NASTRAN  finite  element  method  program 
and  other  existing  MCAIR  programs  including  the  HSFR  program  indicates  that  it  is 
feasible  to  derive  a  more  accurate  response  calculation  scheme. 
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SECTION  VIII 
RECOMMENDATIONS 


1 .  HYTRAN  Program 

a.  Empirical  Pump  Model 

A  provision  can  be  made  to  model  reversal  transients  using  the  empirical 
pump  mode! .  The  feasibility  of  adding  case  drain  and  ini et  models  should  be 
invest igated . 

b.  Basic  Pump  Model 

Further  modeling  work  needs  to  be  accomplished  to  improve  the  inlet  and  case 
drain  sections  of  the  pump  model.  Test  data  taken  using  the  F-4  Abex  pump  will 
be  used  to  verify  the  F-4  basic  pump  model.  Pump  damping  characteristics  will 
be  further  investigated  from  the  empirical  pump  test  data  to  arrive  at 
appropriate  viscous  damping  expressions  for  use  in  the  pump  model. 

c.  Program  Improvements 

Program  improvements  include  further  verification  and  simplifcation  of 
existing  models,  new  component  models  and  enhanced  programming  features. 

(1)  Actuator  Model  -  A  table  look-up  is  needed  for  the  load/stroke  curve. 
Further  verification  testing  can  include  the  effects  of  various  loads  on 
stiction  and  dynamic  friction. 

(2)  Accumulator  Model  -  The  current  model  assumes  a  perfect  gas  law 
relationship  for  accumulator  operation.  A  user  selectable  specific  heat  ratio 
to  suit  the  type  of  application  being  analyzed  needs  to  be  incorporated. 

(3)  Three  Way  Valve  Model  -  A  two  position  three  way  valve  model  needs  to 
be  written  to  complement  the  existing  two-way  two  position  and  four-way  three 
position  valve  models. 

(4)  Line  Cavitation  Model  -  An  improved  HYTRAN  line  cavitation  mode  is  re¬ 
quired.  This  eliminates  the  need  to  write  cavitation  models  for  many  of  the 
components . 

(5)  Multiple  Plot  Option  -  Modified  output  plotting  routines  are  required 
to  make  plots  of  different  parameters  on  a  single  graph.  This  would  provide 
an  easy  way  to  compare  various  data  parameters. 

(6)  Steady  State  Solution  Technique  -  The  sparse  matrix  equation  solver 
used  in  HYTTHA  and  SSFAN  can  be  implemented  in  the  HYTRAN  program.  The  payoff 
is  significant  cost  reduction  for  program  usage. 
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2.  HSFR  PROGRAM 

Having  a  working  hydraulic  acoustic  generator  (HAG)  allows  fundamental 
and  extremely  useful  research  into  frequency  related  phenomena  in  hydraulic  systems. 
This  HAG  would: 

o  Provide  a  source  of  measurable  dynamic  flow 

o  Allow  accurate  component  model  verification  with  a  harmonic  free 
acoustic,  signal  of  variable  frequency 
o  Allow  endurance  testing  to  a  specific  acoustic  environment 
o  Allow  accurate  measurement  of  load  circuit  impedance  which  can 
be  used  to  determine  pump  shunt  impedance 
o  Provide  calibration  reference  for  evaluation  of  dynamic  flowmeters 

The  HAG  unit  reauires  work.  A  complete  bearing  redesign  is  recommended. 

In  addition  to  the  above  items  the  HAG  can  be  used  to  determine  line  damping 
factors  at  typical  hydraulic  system  operating  frequencies. 

3.  SSFAN  PROGRAM 

a.  Thermal  Prediction 

For  design  purposes,  a  reasonable  estimation  of  fluid  temperatures  has 
proven  to  be  desirable.  It  would  appear  that  a  simple  method  for  calculating 
the  thermal  rise  in  a  hydraulic  system  could  be  developed  and  used  with  the 
quasi-transient  program.  Practical  experience  has  shown  chat  calculated 
conduction,  convection  and  radiation  heat  losses  from  the  fluid  are  less  than 
actually  seen  in  aircraft  hydraulic  systems.  It  is  recommended  that  an 
initial  study  be  made  to  look  at  actual  aircraft  and  iron  bird  thermal  test 
data  and  determine  the  feasibility  for  developing  a  general  heat  dissipation 
coefficient  chat  woui  .  give  reasonable  temperature  rise  results. 

b.  Waterhammer  Prediction 

An  addition  can  be  made  to  the  quasi-transient  program  to  estimate  the 
waterhammer  pressure  rise  due  to  valve  closings  and  bottoming  of  actuators. 

The  actual  leg  lengths  are  already  stored  in  the  program.  A  test  would  be 
made  to  determine  whether  the  valve  was  fast  closing  or  slow  closing  using 
the  "2  x  length  to  pressure  source  -  velocity  of  sound"  criteria  and  calculate 
the  pressure  rise  using  the  appropriate  equation. 
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4.  HYTTHA  Program 

Further  verification  needs  to  be  accomplished  on  the  pump  model. 

Additional  verification  work  involving  actual  aircraft  systems  is  also  de- 
sirable . 

5 .  HLMR  PROGRAM 

For  near  term  activities  it  is  recommended  that  development  be  made  of  wide 
band  pulsation  attenuators.  The  lowering  of  pump  pulsation  will  correspondingly 
lower  the  line  responses  nearest  the  pump.  To  determine  the  effect  on  lines 
testing  should  be  made  with  attenuators  on  the  previously  tested  specimens 
for  direct  comparison,  using  accelerometers. 

For  long  term  activities  it  is  recommended  that  a  general  purpose  computer 
program  be  developed  using  present  MCAIR  analytical  capabilities.  The  objective 
would  be  to  couple  the  HSFR  output  (forging  function)  with  a  Nastran  Program 
(which  accurately  predicts  mode  shapes  and  deflections)  and  an  existing  stress 
prediction  program.  The  stresses  due  to  pulsations  AND  allowable  misalignment  would 
ho  determined.  Since  infinite  fatique  life  is  required,  the  program  would  be 
used  to  identify  unacceptable  stress  levels  and  the  optimum  solution  in  achieving 
infinite  life. 


APPENDIX  A 
PUMP  MODEL 

HSFR  TECHNICAL  MANUAL  (AFAPL-TR-76-4 3  VOL.  IV) 

4 . 0  PUMP  SUBROUTINE 

4 . 1  INTRODUCTION  AND  FLOW  DIAGRAM 

Subroutine  PUMP  is  a  general,  detailed  model  of  a  rotating,  axial,  nine- 
piston,  pressure-compensated  hydraulic  pump.  The  model  computes  the  ability 
of  the  pump  to  deliver  flow  against  an  output  pressure  by  modeling  the  non¬ 
linear  relationship  between  pump  output  flow  and  pressure  in  the  time  domain. 
The  main  program  calculates  the  harmonic  load  impedance  of  the  rest  of  the 
circuit,  and  this  provides  the  linear  phase  and  gain  relationship  between  the 
harmonic  flows  into  the  load  and  the  corresponding  pressures  across  the  load, 
in  the  frequency  domain.  The  balance  is  obtained  in  the  time  domain,  although 
a  check  is  performed  in  the  frequency  domain.  The  model  can  also  calculate 
inlet  flow  based  on  the  return  system  load  impedance  which  is  calculated  by 
the  main  program. 

PUMP  considers  valving  areas,  pre-compression,  de-compression,  steady 
state  swash  angle  or  pressure,  fluid  bulk  modulus,  pump  internal  leakage, 
circuit  termination  flow,  and  piston  motion.  Steady  state  swash  angle  is 
calculated  and  balanced  as  a  function  of  pump  internal  leakage,  circuit  over¬ 
board  leakage,  and  pump  speed.  If  the  swash  angle  is  maximum,  the  steady 
state  pressure  is  calculated.  Swashplate  flexibility  and  swashplate-compen- 
sator  dynamics  are  not  included. 

Piston  pressure  at  the  beginning  of  pre-compression  is  assumed  constant 
and  equal  to  the  inputed  steady  state  inlet  pressure  if  inlet  side  analysis 
is  not  selected.  Otherwise,  piston  pressure  is  calculated  continuously  for 
the  full  pump  revolution. 

Figure  4-1  is  a  general  flow  chart  of  the  PUMP  subroutine.  The  specifi¬ 
cation  section  includes  initialization  of  variables  from  input  data,  and 
calculates  several  constants.  Specification  statements  are  followed  by 
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initialization  of  pump  variables  from  the  main  program  input  data,  and  cal¬ 
culation  of  valve  port  areas  for  a  full  360°  revolution.  These  operations 
are  performed  only  once,  when  PUMP  is  called  on  the  first  pump  speed.  Steady 
state  swash  angle  or  outlet  pressure  are  then  calculated,  followed  by  the  pre¬ 
compression  pressures.  Pump  outlet  flow  is  calculated  and  then  analyzed  by 
Fourier  analysis.  The  steady  state  component  of  the  Fourier  analysis  is  then 
compared  to  the  total  steady  state  circuit  flow.  If  these  differ  excessively, 
the  swash  angle  or  outlet  pressure  are  corrected  and  the  pump  outlet  flow  is 
recalculated.  When  the  swash  angle  or  outlet  pressure  produce  a  steady  state 
flow  essentially  equal  to  the  pump  and  circuit  termination  leakage  flows, 
the  Fourier  analysis  is  completed  to  calculate  harmonic  flows  up  through  the 
harmonic  of  interest.  Harmonic  pressure  and  flow  are  then  balanced  dynamically 
by  reconstructing  the  time  dependent  output  pressure  and  recomputing  flow  from 
section  4.  If  inlet  analysis  is  not  selected,  pump  outlet  flow  and  pressure 
for  the  harmonic  of  interest  are  returned  to  the  main  program. 

If  inlet  analysis  is  selected,  piston  decompression  and  inlet  flow  is 
calculated.  If  return  system  analysis  is  selected,  Fourier  analysis  of  inlet 
flow  is  performed,  followed  by  dynamic  balancing  of  inlet  flow  with  the  return 
system  load.  Otherwise,  inlet  flow  is  based  on  the  constant  steady  state 
inlet  pressure  and  the  program  goes  directly  to  the  hanger  torque  calculations. 
Inlet  and  outlet  flow  and  pressure  for  the  harmonic  of  interest  are  then  re¬ 
turned  to  the  main  program. 

The  PUMP  subroutine  is  divided  into  thirteen  sections.  Each  section  is 
discussed  and  a  listing  of  that  section  is  presented  individually  in  subse¬ 
quent  paragraphs . 
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FROM  MAIN  PROGRAM 
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(SEE  NEXT  PAGE) 

FIGURE  4-1 

HSFR  COMPUTER  PROGRAM  -  PUMP 
SUBROUTINE  FLOW  CHART 
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INLET  ANALYSIS  REQUIRED 
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RETURN-OUTLET  FLOW  AND  PRESSURE! 
FOR  HARMONIC  OF  INTEREST 
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TO  MAIN  PROGRAM 
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FIGURE  4-1  (Continued) 

HSFR  COMPUTER  PROGRAM  -  PUMP 
SUBROUTINE  FLOW  CHART 
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SECTION  8  •  CALCULATE  DECOMPRESSION 
PRESSURES 
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SECTION  9  •  CALCULATE  PUMP  INLET  FLOW 
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RETURN  SYSTEM  ANALYSIS  REQUIRED 
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SECTION  10  -  FOURIER  ANALYSIS  OF  INLET  FLOW 
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SECTION  11  -  INLET  PRESSURE/FLOW 
DYNAMIC  BALANCE 
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SECTION  12  -  RECONSTRUCT  TIME  DEPENDENT 
HARMONIC  INLET  PRESSURE 
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SECTION  13  -  TORQUE  CALCULATION 
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RETURN  -  INLET  AND  OUTLET  FLOW  AND 
PRESSURE  FOR  HARMONIC 
OF  INTEREST 
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FIGURE  4-1  (Continu'd) 

HSFR  COMPUTER  PROGRAM  -  PUMP 
SUBROUTINE  FLOW  CHART 
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4*1'1  Math  Model  -  See  sub-paragraphs  in  section  4. 

4.1.2  Assumptions  -  See  sub-paragraphs  in  section  4. 

4- 1*3  Computation  Method  -  See  sub-paragraphs  of  section  4. 
Approximations  -  See  sub-paragraphs  of  section  4. 
Limitations  -  See  sub-paragraphs  of  section  4. 
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4.1.6  Variable  Names  -  Variable  names  unique  to  the  PUMP  subroutine  are 


listed  below. 

Common  variables  are  discussed  in  the  main  program  paragraph 

3. 1.6.1. 

SYMBOL 

DESCRIPTION 

UNITS 

ACTLEV 

Swashplate  actuator  lever  arm 

IN 

ACTLEVO 

Swashplate  actuator  lever  arm  at  zero  angle 

IN 

AHLF.N 

Temporary  variable  used  in  valve  area 
calculation 

- 

AINC 

Incremental  shaft  rotation  angle 

DEG 

AINDEX, ALPHA1 , 
ALPHA2 , ALPHA3 , 
ALPHA4 , ALPHA5 , 
ALPHA6 , ALPH2A 

Temporary  variables  used  in  valve  area 
calculation 

AN,N 

Angular  spacing  between  pistons  used 
in  Fourier  Analysis 

DEG 

ANGCR 

Input  data  -  swashplate  fixed  cross  angle 

DEG 

ANGLE, ANGLE1, 
ANGLE2 

Temporary  variables  used  in  valve  area 
calculation 

- 

ANPRCL.ANPRSC, 
ANPRSO , ANSUCL , 
ANSUOP, ANSUSC , 
ANSUSO 

Angular  position  of  valve  area  index 

RAD 

ARACT 

Area  of  swashplate  actuator 

IN**2 

AREA 

Valve  opening  area 

IN**  2 

AREA 1, ARE A2, 
AREA3, ASUB1, 
ASUB1A, ASUB2 

Temporary  variables  used  in  valve  area 
calculation 

“* 

ASWASH 

Swashplate  variable  angle 

RAD 

ASWERR(IFL) 

Swashplate  angle  computed  during  IFL 
iteration 

RAD 

AT 

Angular  position  of  pistons 

RAD 

284 


4.1.6  (Continued) 


SYMBOL 

DESCRIPTION 

UNITS 

ATOFF 

Angle  of  swashplate  offset 

DEG 

ATTR,  ATSU 

Temporary  variables  used  in  torque 
calculation 

- 

BLEN 

Temporary  variable  used  in  valve  area 
calculation 

- 

BULKP 

Bulk  modulus  of  fluid  at  working  pressure 

PSI 

C,COEF,Cl 

Temporary  variables  used  in  Fourier  Analysis 

- 

CAVOL , CAVOLD 

Piston  cavitation  volume 

IN**3 

CD 

Orifice  coefficient 

CPRESS 

Input  data  -  case  pressure-steady  state 

PSI 

CSPRESS 

Input  data  -  case  to  inlet  pressure  at  zero 
case  drain  flow 

PSI 

DELPX 

Differential  pressure  between  piston  chamber 
and  pump  inlet/outlet 

PSI 

DEQUIV 

Equivalent  diameter  of  cylinder  slot  flow1 
area 

IN 

DIACT 

Input  data  -  swashplate  actuator  diameter 

IN 

DIAM 

Equivalent  diameter  of  pressure  slot  area 

IN 

DIAPIS 

Input  data  -  pumping  piston  diameter 

IN 

DISACT 

Actuator  displacement 

IN 

DISAM 

Maximum  actuator  displacement 

IN 

DLEAK 

Leakage  from  one  cylinder  during  rotation 
through  incremental  angle  AINC 

IN**3 

DPLEAK 

Differential  pressure  in  cylinder  due  to 
leakage  during  precompression/decompression 

PSI 

DRATIO 

DEQUIV/DIAM 

- 

DSWERR 

Incremental  swashplate  angle 

RAD 

DT 

Incremental  time  for  rotation  through 
Incremental  angle  AINC 

SEC 
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4.1.6  (Continued) 

SYMBOL 

DESCRIPTION 

UNITS 

DVOL 

Incremental  volume  change  of  piston  for 
rotation  through  incremental  angle  AINC 

IN**3 

DX 

Incremental  piston  stroke  for  rotation 
through  incremental  angle  AINC 

IN 

ETA 

Not  used 

- 

FLERR(IFL) 

Steady  state  flow  error  computed  during 

IFL  iteration 

CIS 

FNTZ 

Temporary  variable  used  in  Fourier  Analysis 

- 

FQ1(-,-) 

Complex  dynamic  output  flow 

CIS 

FQ1I 

Complex  dynamic  input  flow 

CIS 

HLEN 

Temporary  variable  used  in  valve  area 
calculation 

- 

HOFF 

Input  data  -  swashplate  offset 

IN 

HPRERR(IFL) 

Steady  state  output  pressure  computed 
during  IFL  iteration 

PS  I 

HPRESS 

Steady  state  output  pressure 

PSI 

I, J.M.N 

Integer  counter 

- 

IFL 

Integer  counter  for  number  of  steady  state 
balance  loop  iterations 

- 

INDEX1 , INDEX2 , 
INDEX3, INDEX4 

Temporary  index  values  used  in  valve  area 
calculation 

- 

IOPT (  ) 

Input  data  -  write  option  array 

- 

KINTRP 

Integer  counter  for  number  of  interpolation 
loops  used  in  steady  state  balance  calculation 

- 

KK 

Integer  counter  for  dynamic  balancing  test 

- 

KKN 

Order  of  harmonic 

- 

LEAK 

Constant  for  piston  lap  leakage 

CIS/PSI 

LK1-LK6 

Temporary  variables  used  in  flow  calculation 

- 

LPRESS 

Input  data  -  steady  state  inlet  pressure 

PSI 
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4.1.6  (Continued) 


SYMBOL 

DESCRIPTION 

UNITS 

NAPP 

Number  of  active  pistons  pumping 

- 

NAPS 

Number  of  active  pistons  sucking 

- 

NBEG, 

NBEG1-NBEG8 

Integer  DO  LOOP  counter 

- 

NDEG 

Integer  counter  for  stepping  cylinder  block 
rotation  beginning  with  NDEG  =  1  at  piston 
bottom  dead  center  on  the  swashplate 

ND9 

Maximum  value  of  NDEG 

- 

NHARM 

Integer  form  of  WHARM 

- 

NINLT 

Inlet  identification  code  number 

- 

NKM 

Index  position  of  active  pumping  or  sucking 
piston 

- 

NOP  1ST 

Integer  form  of  PISTNO 

- 

NPRCL 

Last  index  position  (NDEG)  before  cylinder 
slot  is  fully  closed  to  pressure  slot 

- 

NPROP 

Last  index  position  (NDEG)  before  cylinder 
slot  is  fully  open  to  pressure  slot 

- 

NPRSCL 

Last  index  position  (NDEG)  before  cylinder 
slot  starts  to  close  to  pressure  slot 

- 

NPRSOP 

Last  index  position  (NDEG)  before  cylinder 
slot  starts  to  open  to  pressure  slot 

- 

NSTART 

Integer  counter  for  start  of  calculation 

- 

NSUCL 

Last  Index  position  (NDEG)  before  cylinder 
slot  is  fully  closed  to  suction  slot 

- 

NSUOP 

Last  index  position  (NDEG)  before  cylinder 
slot  is  fully  open  to  suction  slot 

- 

NSUSCL 

Last  index  position  (NDEG)  before  cylinder 
slot  starts  to  close  to  suction  slot 

- 

NSUSOP 

Last  index  position  (NDEG)  before  cylinder 
slot  starts  to  open  to  suction  slot 

- 

ORF 

Not  used 

PACTU 

Actuator  pressure  used  in  torque  calculation 

PSI 
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4.1.6  (Continued) 

SYMBOL 

DESCRIPTION 

UNITS 

PHil , PHI2 , PHI4 

Temporary  variables  used  in  valve  area 
calculation 

- 

PIA 

Piston  area 

IN**2 

PIMASS 

Piston  mass 

LB-SEC**2/IN 

PISPK(  ) 

Piston  pressure 

PS  I 

PISTNO 

Input  data  -  number  of  pistons 

- 

PLEAK 

Leakage  out  of  cylinder 

CIS/PSI 

POVOL 

Input  data  -  cylinder  volume  at  midstroke 

IN**3 

PPI(  ) 

Time  dependent  amplitude  of  pump  inlet 
pressure 

PS  I 

PPM, PPP 

Not  used 

PSI 

PPT  (  ) 

Time  dependent  amplitude  of  pump  outlet 
pressure 

PS  I 

PQ1 

Complex  output  test  pressure  in  dynamic 
balancing 

PSI 

PQ1I(-,-) 

Complex  inlet  test  pressure  in  dynamic 
balancing 

PSI 

PRESS 

Input  data  -  steady  state  pump  output 
pressure 

PSI 

P3PG 

Actuator  pressure  due  to  spring  force 

PSI 

P3 

Complex  test  pressure  used  in  constructing 
time  dependent  inlet/outlet  dynamic  pressure 

PSI 

QIFC(  ) 

COSINE  peak  amplitude  of  pump  dynamic  Inlet 
flow 

CIS 

QIFS(  ) 

SINE  peak  amplitude  of  pump  dynamic  inlet 
flow 

CIS 

QIN 

Flow  into  piston 

CIS 

QMAXI 

Maximum  steady  state  pump  outlet  flow  at 
maximum  swash  angle  and  zero  outlet 
pressure  at  maximum  RPM 

CIS 

QMAXIY 

Maximum  steady  state  pump  outlet  flow  at 
maximum  swash  angle  and  zero  outlet  pressure 
at  given  RPM 

CIS 
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A. 1.6  (Continued) 

SYMBOL  DESCRIPTION  UNITS 

QMAXY  Maximum  steady  state  pump  putlet  flow  CIS 

at  maximum  swash  angle  and  Input  steady 
state  pressure  at  given  RPM 

QMECH  Flow  out  of  cylinder  due  to  piston  displace-  CIS 

ment 

QMMAX  Maximum  flow  out  of  cylinder  due  to  piston  CIS 

displacement  at  given  swash  angle 

QOUT  Flow  out  of  piston  CIS 

QOVB  Total  overboard  flow  from  main  program  CIS 

QOVBT  Not  used 

QQFC(  )  COSINE  peak  amplitude  of  pump  dynamic  CIS 

outlet  flow 

QQFS(  )  SINE  peak  amplitude  of  pump  dynamic  CIS 

outlet  flow 

QQI(  )  Time  dependent  amplitude  of  inlet  flow  CIS 

QQT(  )  Time  dependent  amplitude  of  outlet  flow  CIS 

QWBEG  Maximum  steady  state  pump  outlet  flow  at  CIS 

maximum  swash  angle  and  input  steady  state 
pressure  at  starting  RPM 

QWEND  Maximum  steady  state  pump  outlet  flow  at  CIS 

maximum  swash  angle  and  input  steady  state 
pressure  at  maximum  RPM 

QZERO  Straight  line  extrapolation  of  QWEND  and  CIS 

QWBEG  to  zero  RPM 

RBORC  Input  data  -  cylinder  centerline  circle  IN 

radius 

REN  Calculated  Reynolds  number 

RV  Input  data  -  cylinder  and  valve  plate  IN 

slot  centerline  circle  radius 

Ri  Input  data  -  cylinder  slot  end  radius  IN 

R2  Input  data  -  valve  plate  pressure  slot  IN 

end  radius 

RA  Input  data  -  valve  plate  suction  slot  IN 

end  radius 


289 


4.1.6  (Continued) 


SYMBOL 

DESCRIPTION 

UNITS 

R1SQ.R2SQ 

Values  used  to  calculate  equivalent 
pressure  slot  area  diameter 

- 

S 

Temporary  variable  used  in  Fourier  Analysis 

- 

SA 

Half  amplitude  of  piston  stroke  due  to 
swash  angle 

IN 

SAM 

Maximum  piston  half  stroke  at  maximum 
swash  angle 

IN 

SL.EAK 

Leakage  into  cylinder  bore 

CIS/PSI 

SLOTW 

Input  data  -  cylinder  slot  width 

IN 

SLTHAG 

Cylinder  slot  width  half  angle 

RAD 

SSA 

Half  amplitude  of  piston  stroke  due  to 
fixed  swash  plate  cress  angle 

IN 

SWASH 

Input  data  -  maximum  swash  angle 

DEG 

Si 

Temporary  variable  used  in  Fourier  Analysis 

- 

THECON 

Constant  used  in  time  dependent  pressure 
calculation 

- 

THETA 

Angle  of  cylinder  block  rotation 

RAD 

THETA1 , THETA2 , 
THPRE1.THPRS1, 
THSUC1 , THSUE1 

Constants  used  in  valve  area  calculation 

THPRE 

Input  data-valve  plate  pressure  slot  end 
angle 

DEG 

THPRS 

Input  data-valve  plate  pressure  slot  start 
angle 

DEG 

THSUCE 

Input  data-valve  plate  suction  slot  end 
angle 

DEG 

THSUCS 

Input  data-valve  plate  suction  slot  start 
angle 

DEG 

TLEAK 

Input  data-pump  internal  leakage 

CIS 

TLEAKT 


Not  used 


h. ] . 6  (Continued) 


SYMBOL 

DESCRIPTION 

UNITS 

TORAAV 

Average  total  torque  due  to  piston  inertia 

IN-LB 

TORPAV 

Average  total  torque  due  to  piston  pressure 

IN-LB 

TORQ 

Total  swash  plate  torque  at  each  calculation 
point 

IN-LB 

TORQAC 

Swashpiate  torque  due  to  piston  inertia 
at  each  calculation  point 

IN-L3 

TORQAS 

Summation  of  TORQAC 

IN-LB 

TORQ PR 

Swash  plate  torque  due  to  piston  pressure 
at  each  calculation  point 

IN-LB 

TORQPS 

Summation  of  TORQPR 

IN-LB 

TORQSl) 

Summation  of  TORQ 

IN-LB 

TORQ1 

Temporary  variable  used  in  torque  calculation 

- 

TORTAV 

Total  average  torque 

IN-LB 

TRACAV 

Average  torque  due  to  cross  angle 

IN-LB 

TRQACR 

Torque  due  to  cross  angle  at  each 
calculation  point 

IN-LB 

TRQACS 

Summation  of  TRQACR 

IN-LB 

U0,U1,U2,U3 

Temporary  variables  used  in  Fourier  Analysis 

- 

VA, VALEAK 

Cylinder  volume  at  given  piston  position 

IN**3 

VAREA(NDEG) 

Valve-area  at  NDEG  index  position 

IN**2 

W 

Harmonic  frequency 

RAD/SEC 

XANG 

Index  angle  for  calculation  of  QMECH 

RAD 

XLAST.XNEW 

Piston  position 

IN 

XLEN 

Temporary  variable  used  in  valve  area 
calculation 

- 

Y 

Pump  speed 

RPM 

YOPT(  ) 

Speed  for  write  option  output 

RPM 

ZAP(  ) 

Complex  impedance  of  load  on  pump  inlet 

PSI/CIS 

ZE 

Temporary  variable  used  in  dynamic  flow 
balance  calculation 

- 

291 


« 


4.1.6 
SYMBOL 
ZIP(  ) 
zo 


(Continued) 


DESCRIPTION 


Complex  impedance  of  load  on  pump  outlet 
Pump  shunt  impedance 


UNITS 

PSI/CIS 

PSI/CIS 
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4.1.7  Specifications  and  Initialization-Listing 


SUBROUTINE  PUMP  ( NSTART  ,  Y  ,ZI  P  ,  NHARM ,QOV3 ,  PRESS  .WING  ,  PISTNO  , 
+NINLT,ZAP  NF.N  U ,  IOPT ,  VO  PT  ) 


C 

C 

c 


REVISED  MARCH  21,  1977  * 

♦VARIABLE  TYPES,  DIMENSIONS,  COMMONALITY* 


REAL  LPRKSS  ,  LEAK ,  LK1  ,  LK2 , EE  3 ,  1  K4  ,  LK5  ,  LK6 
COMPLEX  BETA.C.P.Q.Z 
COMPLEX  ZO,ZIP,P3 ,ZAP,ZK 
COMPLEX  FQ1 , PQ1 , PQ1 I ,FQl I 

COMMON  BETA ,G  ,  P  , Q ,Z  ,  XBE  ,BER,iiEI  ,BERP  ,5EIP  ,RHO,  BULK,  VOL, W  ,VISC,PAR 
1M  PI,  I  EL,  MEL  ,KTYPF.(  40) 

DIMENSION  0(2,2,40) ,PARM(8,40) ,P(40) ,Q(40) ,Z(40) 

DIMENSION  QQT(3I) ,PPT(S1) ,0QFC(11) ,QQFS(11) 

DIMENSION  ZIP( 10) ,ZAP( 10) 

DIMENSION  VAREA(SOO) 

DIMENSION  FQI( 10 ,3) , PQ1( 10 ,3) 

DIMENSION  PISPR(rfOO) ,QQI(81) ,PPI(31) 

DIME, .'SION  Q I KC (11)  , i) I  FS (  11)  , KQ 1 1 (  1 0 , 3  )  , PQI I (  10 , 3 ) 

DIMENSION  FLKRR(IO)  ,HPRF.Ri<(  10)  ,ASUERR(  10) 

DIMENSION  IOPT ( 7 ) , Y0PT(4 ) 

DATA  VARF.A/ <300*0 . 0/  ,  PISPR/300*0.0/ 


C  *SOLUTION  METHOD* 

C 

C  *  INITIALIZE  VARIABLES  FROM  INPUT  DATA  OR  MAIN  PROGRAM* 

r 

IF(  Y .  ME  .  WSTAilT )  GO  TO  140 
Rl-PARM(l.l) 

SL0TW-PARM(2,1) 

;<V-PARM(3,1) 

RiiORC-PARM(4 ,1) 

D  L\PIS*PARM( 5,1) 

P0V0L-PAR.1(6,1) 

R2-P.UM(7,1) 

R4-PARM(1 , NEL+1 ) 

SUASH«PA.RM(2,  NEL+1) 

TLEAK*P.\RM(  3  , NEL+l ) 

ANCCR-PARM(4,NEL+1) 

TliPRS-PARM(5,NEL+l) 

THPRI>PA.<ii(6 , NEL+1 ) 

THSUCS-PAiU(  7  ,  NF.L+1 ) 

T.ISUCE«PA.U(8, NEL+1) 

LP«ESS-PAiLl(  1 ,  NEL+2 ) 

IlOF F"PAiCl(  2  ,  NEL+2  ) 

DISAM-PA»tM(  J.NEL+2) 

ACTLEVO-PARlK  4  ,  NEL+2  ) 

P  I.'US  S-PAAM  (  5 ,  NEL+2  ) 

CPRKSS»PrtR!l(  6 ,  NEL+2  ) 
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4 . 1.7  (Continued) 


CS  iVF.S-I'AK,  |(  7  ,  Nllli+2  ) 
UlAC  '>l>A.<M(  'i  ,?.'!■  L+2) 
Ai<ACT-l)IAoT**2*l»I/4 . 
ARiv’AS:i»SWASM/57  .  J 
NO  PI  ST=P  IST.iO 
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4 • 2  SECTION  1  -  VALVE  AREA  CALCULATION 

Figures  4-2,  4-3,  and  4-4  illustrate  modeling  parameters  for  a  typical 
aircraft  rotating  piston  hydraulic  pump,  including  those  required  for  area 
calculations. 

Section  1  is  a  generalized  computation  of  the  valve  flow  area  for  one 
cylinder  at  every  1/2  degree  position  in  a  full  revolution  of  the  cylinder 
barrel.  Area  calculation  is  done  once,  the  first  time  PUMP  is  called  by 
the  main  program  for  the  starting  pump  speed  (W  -  WSTART) .  Computed  valve 

V 

areas  for  each  1/2  degree  position  are  stored  in  the  VAREA  array.  Valve 
areas  and  indexes  are  used  in  PUMP  for  outlet  and  inlet  flow,  and  precom¬ 
pression  and  decompression  calculations. 

Section  1  first  initializes  the  angular  increment  AINC  to  1/2  degree 
of  cylinder  block  rotation.  Cylinder  slot  constant  angles  are  calculated, 
as  are  the  maximum  number  of  pistons  exposed  to  the  pressure  and  suction 
slots  for  use  in  subsequent  calculations. 

Pressure  slot  valve  areas  are  calculated  beginning  with  the  cylinder- 
centerline  at  bottom  dead  center  of  the  controlled  swash  plate  angle 
(THETA  =  0.0,  NDEG  -  1).  Index  angles  are  calculated  to  establish  index 
positions  which,  in  turn,  control  DO  LOOP  calculations  of  valve  areas  for 
each  poition  of  cylinder  revolution. 

4.2.1  Math  Model  -  The  basic  valve  area  calculation  model  is  illustrated 
in  figure  4-5  for  the  opening  of  the  cylinder  slot  to  the  pressure  slot. 

The  equations  developed  in  Figures  4-5 (a)  through  4-5(g)  assume  that 
(R1.GE.R2).  The  relationships  for  the  reverse  situation  are  similar, 
except  for  calculation  of  the  index  angles.  The  differences  are  provided 
for  in  each  DO  LOOP  where  tests  for  (R2.GT.R1)  are  used  to  direct  the 
flow  of  program  execution  to  the  appropriate  calculation.  The  pressure 
slot  closing  calculations  are  executed  in  the  same  manner,  progressing  from 
fully  open  through  each  INDEX  to  fully  closed.  Suction  slot  valve  areas 
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4.2  (Continued) 

are  also  calculated  with  the  math  model  shown  in  Figure  4-5,  except  that 
R4  replaces  R2  and  the  main  flow  of  program  execution  assumes  that  (R1.LT.R4). 

4.2.2  Assumptions  -  None 

4.2.3  Computation  Method  -  Areas  are  calculated  for  each  1/2  degree  increment 
of  cylinder  block  rotation  from  0  to  360  degrees. 

4.2.4  Approximations  -  The  small  area  ASUB1A  shown  on  Figure  4-5(d)  is 
approximated  as  the  area  of  a  triangle  with  base  BLEN  and  height  HLEN.  The 
resulting  error  is  considered  to  be  insignificant. 

4.2.5  Limitations  -  Pumps  with  non-typical  valve  plate  configurations  may 
require  that  valve  areas  be  computed  outside  of  PUMP,  and  be  read  into  the 
main  program. 

4.2.6  Variable  Names  -  See  paragraph  4.1.6. 
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rTop  Dead  Center  at  Maximum  Stroke 
r—  Mid-Stroke 


* 


FIGURE  4-2 

PUMP  CYLINDER  BLOCK  PARAMETERS 


i 
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FIGURE  44 

SWASH  PLATE  PARAMETERS 
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Pressure  Slot  Opening  •  NPRSOP  Calculation 


THETA1  =  s|N',|(-L°™  -  Rl)  /Rvj 

THETA2  =  SIN'1  (R1/RV) 

SLTHAG  =  THETA1  +  THETA2 
ANPRSO  =  THPRS/57.3  -  SLTHAG 

NPRS0P  .  .  ,0) 
ALPHA1  »  SIN'1  (R2/RV) 

THPRS1  -  THPRS/57.3 +  ALPHA1 


FIGURE  4  5 

PUMP  PORT  VALVE  AREA  CALCULATIONS 


Pressure  Slot  - 


-ASUB1 


-ASUB2 


ALPHA3 


THETA1 


THETA 


^Cylinder 

Slot 

THETA  *  0.0 

(NDEG  =  1}  - - 

Valve  Area  Calculation  •  NPRSOP  +  1  <  NDEG  <  INDEX  1 
THETA  =  —  0.5^/57.3 


ALPHA3 


THPRS1  -  THETA  -  THETA1 


2.0.  RV.  SIN  (^3) 
2.0  .  COS  '  fell 

2.o .  cos-' 

V  2.0  •  R1  .  J 


ASUB1 


ASUB2 


■  (It)- 
-(£)• 


(PH 1 1  -  SIN  (PHI1) 


(PHI2-SIN  (PH»2> 


1  /R12  +  XLEN2-  R22N 

V  2.0  .  R1  .  XLEN  / 

1  /R22  +  XLEN2  -  R12' 

V  2.0  .  R1  .  XLEN  ) 


VAREA (NDEG)  =  ASUB1  +  ASUB2 


FIGURE  4-5  (Continued) 

PUMP  PORT  VALVE  AREA  CALCULATIONS 


3' 
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» 


ANGLE2  ^ 
\  ALPHA4 


AREA2 ■ 


ANGLE1 


HLEN' 


-ASUB1 

-ASUB1A 


AREA1 


THPRS 


-ALPH2A 


\  SLTHAG  v 

\  /  \ 


>  \\ 

\  \\  ^  ALPHA2 

\  vr 


AINDEX 


1  THETA  =  0.0  | 

I  (NDEG  =  1) 

Pre$sure  Slot  Opening  •  INDEX2  Calculation 

ALPH2A  =  cQS-1  /R22  +  (RV  +  R2)2^\ 
ALrHzA  LUS  \  2.0  .  R2  .  (RV  +  R2)  / 

BLEN  =  2.0  .  R2 

/  ALPHA2  - 

HLEN  =  2.0  .  (RV  -  R2)  •  SIN  (  - j- 

ASUB1A  =  BLEN  .  HLEN/2.0 

ANGLE  1  -  COs’(n^JS^) 

(ALPH2A  \ 
— 20 - ) 


ASUB1A  =  BLEN  .  HLEN/2.0 


ALPHA2  -  ALPH2A 

2.0 


ANGLE,  -  COS 

ALPHA4  =  n - ANGLE1  -  ANGLE2 

ASUB1  =  /—  (ALPHA4  -  SIN  (ALPHA4) 


AREA1 

AREA2 

AINDEX 


INDEX2 


ASUB1  +  ASUB1A 
it  .  R22/2.0 

THPRS/57.3  +  SLTHAG 
AINDEX  .57.3  .  .  „ 


FIGURE  4-5  (Continued) 

PUMP  PORT  VALVE  AREA  CALCULATIONS 
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AREA2 


AREA1 


THETA  *  “  °-5)  Z57-3 

ALPHAB  =  THETA1  +  ALPH2A  +  (THETA  -THRPS1) 
AREA3  -  2.0  .  RV  .  R2  .  ALPHAB 
VAREA  (NDEG)  =  AREA1  +  AREA2  +  AREA3 


FIGURE  4-5  (Continued) 

PUMP  PORT  VALVE  AREA  CALCULATIONS 


NPROP 


ANPROP  .  57.3 
AINC 


+  1.0 


apoi-Mit-r 


FIGURE  4-5  (Continued) 

PUMP  PORT  VALVE  AREA  CALCULATIONS 
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AREA3 


Valve  Area  Calculation  -  INDEX2  +  1  <  NDEG  <  NPROP 

THETA  =  _05j/573 

ALPHA6  =  THETA -THETA1 -THPRS1 
ALPHA5  =  2.0  •  THETA1  +  ALPHAS  +  ALPH2A 

XLEN  =  2.0  .  RV  .  SIN  6j 

AREA3  =  2.0  .  RV  .  R2  .  ALPHAS 

ASUBt  ■=  (  ff  «  R22  -  R22  •(  PH  12  -  SIN  {PH  12)]  +  R 1 2  •  f  PH  1 1  -  SIN  (PH1 1  )J ) 

2.0 


2.0  .  COS' 


•  1  /R12  +  XLEN2-R22> 
\  2.0  »  R1  • 


2.0  .  ff-COS  1 


/R2^0<LEt 
\  2.0  .  R2  . 


XLEN2  -  R12' 


VAREA (NDEG)  - AREA1 +  ASUB1  +  AREA3 


0»03041S4 


FIGURE  4-S  (Concluded) 

PUMP  PORT  VALVE  AREA  CALCULATIONS 
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4.2.7  Section  1  -  Valve  Area  Calculation-Listing 

C 

C  SECTION  1  VALVE  AREA  CALCULATION'  FOR  FULL  360  DECREES  REVOLUTION 
C 

A I NC“0 . 5 

NOV=3U0./AINC 

T.lETAl  =  (  SL0TW/2  .  -Rl  )/RV 

THKTAl-ASIN(T.lETAI) 

THETa2-R1/RV 

TUKTA2-ASIN(TMKTA2) 

SLTHA0*T'IKTAl+Til£TA2 

:!APP«(180.+2.*SLTHAG*37.3-TIIPRS-THPRE)/360.*PISTN'OH. 

NAPS* ( 1 80. +2 . *SI.T>IAC*57 . 3-TiiSUCS-T.ISUCE)/360.*PISTN0+l . 

C 

C  CALCULATE  PRESSURE  SLOT  VALVE  AREAS 
C 

ALPHA I-R2/RV 

ALP  I IA 1  "AS  I  N'(  ALPHA  1 ) 

Tr)PRSl*TllPRS/57 . 3+ALPHAl 
ANPRS0*THPRS/57 . 3-SLTilAG 
HP RSOP“ANPRSO*  5  7 . 3/AI NC+1 . 

DO  400  NDEOl.UPRSOP 
VARLA(NDEG)«0.0 
400  CONTINUE 

ALP  iA2»(UV**2+(RV-R2)**2-Rl**2)/(2.*RV*(RV-R2)) 

IF(R2 . CT .R 1 )ALPHA2»( RV**2+( RV-RI )**2“R2**2)/ ( 2 .*RV*(RV-R1 ) ) 

ALP  H.\2*AC0S(  ALPHA?) 

A I  U!)EX=THPP.SI-ALP1!A2-T!1ETAI 
I X  i)E  X I  *AI  NDi:  X*  5  7 . 3/ A I NC+ 1 . 

NBEC1-N'PRS0P+1 
DO  405  NDEC-NbEol  ,  INDKX1 
T  IETA*  (  N'OEG/  2  .  -0 . 3  )  /  5  7 . 3 
ALPUA3*(  THPRSl-T  IETA-THF.TA1  )/2. 

XLEN-2 .  *RV*Sl\'(ALPilA3) 

Pul  l»(  U**2+XLEN**2-K2**2 )/ (2  .*R1*XLE\') 

P  ill*2  .*ACOS(PliIl  ) 

P:II2-(.;2**2+XLEN**2-Ri**2)/(2.*R2*XLEN) 

Pi  1 1 2*2 • *AC0S( PH12 ) 

ASU.il»(  .tl**2>*  t  Pill  l-Si  :( Pill  L  )  >/2  . 

ASU l»2*(  i<2**2)*( PU12-SI N(  PHI 2) )/2  . 

VA.’EA(  N'uEG  )  “ASU  Ul  <-A:>U  A 2 
4'Jj  uOi.T INUE 

Al.Pii?A*(  RV**2+(  RV+R2  )  >:!,2-P.l  *  A2  ) /  (  2  . *RV*(RV+R2  )  ) 

I F( a2 . GT .Rl  )ALPl2A“( RV**2+( RV+Rl )**2-R2**2 )/(2 .*RV*(RV+R1 ) ) 
ALP.i2A»ACOS(ALPU2A) 

sle:>2  .  *R2 

I  i'(  02  .  GT .  <  1  )  BL£N“2  .  *Rl 
a<i;.-:-.“(ai,p'U2-alph2\)/2. 

HLE  >2.*(RV-:t2)*Sl:.(  U'LEN) 

If  (  R2.GT  .R I  )  iILE;>2  .  *(  RV-RI  )*SIN(  XHLF,.,1 ) 

ASU  Cl  A*  RLE"*  i  ILK  .’/ 2  • 
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4.2.7  (Continued) 
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AHGLKl»(!U:**2+RV**2-(RV-R2)**2)/(2.*Rl*RV) 

IF(R2 . GT .Rl )ANGLE1“(  R2**2+RV**2-( RV-U1 )**2)/(7 . *R2*RV) 
ANGLEl-ACOS(A.NCLi;l) 

AXLEN-ALPH2A/2. 

XLK K» 2  .*( RV+R2 )*SIN( AXLKN) 

I F  (  R2  .  CT  .  R 1.  )  X  LE  N-  2  .  *  (  RV+R  L  )  *  SI  N  (  AXLE  N  ) 
ANGLE2=»(Rl**2+R2**2-XLEi\'*'*2)/(2.*Rl*i<2) 

AN  G  LE  2  «  ACOS  (  ANG  LE  2  ) 

ALPHA4-PI-ANGLF.1-ANGLE2 

ASGlil!B(RI*,!>2)* (Al.PHA4-SIN(ALPHA4)  )/2 . 

IF(R2.GT.Rl)ASUBl»<R2**2)*(ALPHA4-SIN'(ALPHA4))/2. 

AREAl-ASUBl+ASllBlA 

AREA2=»PI*R2**2/2. 

I F ( R2 . GT . R 1 ) ARE A2 - PI*  R 1 *  *  2 / 2 . 

AINOEX-THPRS/57. 3+SLT  HAG 
IF(R2.GT.iU)AI  XDEX-THPRSI-ALPH2A+THF.TA1 
INDEX2~AIN'DEX*57.3/AI  \'C+1 . 

NUEG2=INO£Xl+l 
00  410  KI)EG“NBEG2,IXDEX2 
TiIETA“( NOEG/2  . -0. 5 )  /  37 . 3 
ALPHA5“THETA1+THETA~TUPRS1+ALP’12A 
AREA3-2 . *RV*R2*ALPHA3 
1 F ( R2 . GT . R I ) A  REA  3“ 2 . *  RV*  R 1 * AL  PUA5 
VAR!’A(  NDEG)  “AREA  1+AREA2  PARE  A3 
410  CONTINUE 

AR'PR0P=TRPRSI+ALPil2A+T:lETAl 
I F  (  R  2  .  GT  .  R 1 )  ANP  RO P =T.  IPK  S  /  5  7 . 3+SLT  ■  I  AG 
NPRUP=A\PROP*57 ,3/AINC+l . 

NBEG3-IWqEX2+-l 

00  413  '«DEG=,NLEG3  ,  NPROP 

THE  f A»( NDEG/2 .-0. 5)/57 .3 

ALPUA6=( THETA-THETA1-THPRS1 ) /2 . 

IF  (  R2  .  GT  . R 1 ) ALPHA6- (  THPRS l-TilET.v+THETAl  )  / 2  . 

ALP  HA 5 ” 2 . * ( TH  ETA 1+AL  P  HA  6 )+AL  P 1 12 A 
XLEN- 2 . *RV*SIN( AL  PHA6 ) 
PIIII-(RL**2+XLEN**2-R2**2)/(2.*RI*XLEN) 

PHI2~( R2**2+XLEN**2-RI**2 )/ ( 2 . *R2*XLEN) 

Pill  1=2  .  *ACOS(  Pilll ) 

IF(R2.GT.RI)PHIi«2.*(PI-ACOS(PHIl)) 

PH  12*2 . *( PI-ACOS( PHI2 ) ) 

IF(R2.GT.R1)PHI2-2.*AC0S(PHI2) 

ASUBl«(PI*(R2**2)-(R2**2)*(PHI2-SIN(FHI2))+ 

I(Rl**2)*(PHII-SlN(PHIl)))/2. 

IF(R2.GT.Rl)ASUBl«(PI*(Rl**2)-(Rl**2)*(PHIl-SIN(PKIl))P 
I(R2**2  )*(PHI2-SI  N(  PIII2  )  )  )/2 . 

AREA3-2 . *RV*P 2*ALPHA5 
IF(R2.GT.R1)ARF.A3-4.*RV*R1*THETA1 
VAREA(  NDEG)“AREAI+AS!J  BI+AREA3 
IF(R2.GT.R1)VAREA(NDEC)-ASUB1+AREA2+AREA3 
415  CONTINUE 
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4.2.7  (Continued) 


THPRKl-Pi-T.iPKE/ 5  7 . 3-AI.PIIA1 
AN  P  RSC-l'i  I P  RE  1  -TilKTA  1  -AL  P'I2  A 
I F  ( .<  2  .  GT .  E  i  )  AN  P  R  S  C  -  P I  -  T .  I P  R  K  /  5  7 . 3  -  S  L  T  : !  AG 
N'P  .(SC  L-AN’P  (INC*  5  7 . 3/AI  N’C+1 . 

N'  3  K.  G4  -  NP  RQ  P+ 1 

DO  420  N'DEG-N’BEC4  ,  N’PKSCL 

VA<<!:A(N")EG)-2  .*AREA1+4.*RV*R2*(T  I  ETA  1 +AL  PH  2  A) 

I  K  (  R2  . or  .It  1)  VARKA(  NIjEC ) -2  .  *ARKA2+AREA3 
420  CONTINUE 

AI  NDCX-PI— TMPRS/57 .  J-3LTilAG 

1F(R2  .GT .Ri  ).\IN'DEX-T‘iPREl+ALpil2A  -T-TRTAl 

I  NDEX3  -AI  1DEX*  5  7.3/AI  XC+ 1 . 

N  Li E G  5  -  R'P  R  SCL+1 

00  423  XOEG-NBKCS  ,  2.VOEX3 
t:-ii-:ta-(:;ijk«/2  .-o  .  5 )/  57 . 3 
ALP:1A6=(T:1Pi<E  1-THKTA-TRKTM  )/ 2  . 

IK ( E2 . CT.Rl  )ALP’IA6“( THKTA+THE  f Al-T  iPREl  )/2  . 

.LPRA5-2 .  *(aLPi1A6+T1ETAI  )+ALP!l2A 
XLKN-2 .  *P.V*SI  :\’( .\LPHa6 ) 

P  i  1 1  =  (  ?.l**2+XLE.-;**2-R2**2)/  (2  .*R1*XLEN) 
pill  2=(  R2**2+XLKN’**2-Rl**2 )/ (2 .  *R2*XLK.N) 
Pi!ll-2.*AC0S(PUII) 

I.  (E2.Cr.iU)PHIl-2.*(PI-ACOS(Pllll)) 
PliI2-2.*(PI-ACOS(PMI2)) 

It  (U2.  JT.Rl)PI!l2-2.*ACOS(Piil2) 
ASlJ;U-(PI*(i<2**2)-(R2**2)*(PIII2-,;iN(PHI2))+ 

I  ( El*  *2  )* (PHI l-SIN(Piill)  )  )/2 . 

IK (  ii2  .  GT  ..HI  )  ASL'iil-(  PI*  (Kl*  *2  )-(Rl**2)*  (Pill  I~SI.N(  Pill  L  )  )+■ 
1  ( 112**2 )  *(  Pii  12-21  •:(  Pill 2 )  )  )/2  . 

At;i-:A3-2.*RV*R2*Ar.P!lA5 
I F  (  E2  .  G  T .  R 1 )  AK  tl  A  3 = 4  .  *  R  V*R  l  *T'l  GT  A 1 
V A  REA (  X  Dll' • )  «  A  SI  M  L +AR K  A 1+A REA 3 
l F  (  P.2  .  CT .  R I )  V.vETA ( .-A)EG) -ASU >5 1+AP.EA2+AAKA3 
42  f  C'i  .TINL’E 

AlNOEX-TIiPEill+ALP  lA2+TilETAl 

i  .;di::<4=ai ::oi-:x*37 . 3/ai  :c+i  . 

n;i  L3H 

DO  4  30  N.DE'.’-'.'NCGN ,  INl.'EXA 

t;i  :t\-(::d;.j/2.-o.5)/37.3 

ALP  i.i3-T.iPRr.L-T  !L.  i-\+r  IKTA1+ ALPM2A 

AEGAi-2 .  *RV*R2*ALP‘!A5 

I I  (  R  2  .  or  . ! :  1 )  A  R  KA  3-  2  .  *  :i  y  *  R 1  *  A  L  P !  I A  5 
VA  ’ii.U  NDGO)  -AKCA1+AXKA2+AEEA3 

4  30  CONTI  ,ci: 

a;,prcl-pi-t:iPkf./  57 . j+slt  rag 

NPRCL».\..P  1CL* 5  7 . 3/AI  iC+l . 

N.I-G7-I  Nl>r.X4+l 
00  435  .ii)LC-;.!iE07  ,NPKCL 
T.;!-:TA-(:.:I>cC/?,.-0.  3)/ 57. 3 
ALP:i.i3-(T.ii;TA-f:i;;TAi-T.:PRr;i)/2 . 
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4.2.7  (Continued) 


:cu-  :;-2 .  *i;v*si  N(  alpha.3  ) 

Pil  1 1*(  dl**2+Xl.K';**2— !’.2**2  )/(?.  .*K!*XLFN  ) 
pii  1 1*2 .  *.\cos(  pii  1 1 ) 

I’ill  2=*(  :<2**2+.<LEK**2-!’  1  **2  )/  (  2  .*R2*XI.Ivl) 

PIiI2*2.*aCOS(PI112) 

AdU»l*(Rl**2)*(P;IIl-Sl\,(PMIl))/2. 

ASIId2*(i<2**2)*(PII12-SI.\'(PilI2))/2. 

VAiu-:A(.'j;)i;d)-ASUtii+ASP’d2 
4. 3 5  C()i»TINUK 

C  CALCUUTK  SUCTION  SLOT  VAI.VK  AREAS 
C 

ALP!lAlHii4/i;V 

AL  P I  (A  I  “AO  I  A’  (  A  L  P :  U  V I  ) 

TilSl>CL«PI  PTI1SUCS/5  7.3+ALP!IaL 
A.\S  JSO=PI+r  I.SUCS/ o7 . 3-SLf  TAG 
AL;JGOP=A..SUSO*57.  j/ainc+i  . 

RIlGUi-JIPRCL+l 

DO  440  N'DKG-I.'iJiiOl.OSL’SO” 

VAtO'A(0!)EC)*0.0 
440  COAT  Li'IUC 

ALPIIA2-C  RV**2+(;<V-:U)**2-R4**2)/(2.*RV*(RV-R1>) 
ir(ia.CT.R4)AIiP:!A2=(l,.V'*2+(RV-Il4)**2-ia**2)/(2.*RV*(RV-R4)) 
AUMa2=ACDS(  AUMA2  ) 

A I  A'l)!:>;=TH!>llCl-ALP:iA2-T  .KTaI 
I.iD!  XI  =.vl  ..'OCX*  57 . 3/AI  :.c+i . 

::oiA,i=osusop+i 

Du  445  :;D!a>.JuEG1  ,  IM'I-Xl 
Ti!!:TA=(r;D!’(;/2.-0.5)/57.3 
ALPHA 3 *(  T liSDCl -T.IKTa-T.'IKTA I )  /  2  . 

.';l!-.:>2  .  *rv*si.':(alp'LU) 

P . :  1 1  * (  !ll  *  *2+XUiN ■ **2“ !< 4*  *2  )  /  (  2  .  * 2 1  *X Llr. \' ) 

Pill  1*2  •  *AC08( Pill l ) 

P ; !  I  4  -  (  R4  ■ *  * 2+  XL  ;7.  ;•!*  ■ *  2 - K  J.  *  *  2  )  /  (  2  .  * R  4  *  X 1 .0  N  ) 

PI  1 1 4*  2  .  *ACOS(  PII14) 

ASjAi-(iu**2)*(Pi;ii-si'.(i'!in))/2. 

ASGi.2“(ii4**2)=*(PI!14-SI:l(P;iI4))/2. 

v  a  iu:  a  (  a  ;  u-.g  )  -as  u  i;  i+asuu2 

443  COA’TI.ttJE 

ALP.12A-(P.V**2+(KV+lU)**2-R4**2)/(2.*RV*(KV+Rl )  ) 

I  !•'(  Rl .  GT.  .!4)ALPii2A*(  KV**2+(  KV+R4)**2-;U**2  )/  (2  . *RV*(RV+R4) ) 

,»LPil2A*AU)S(ALPH2A) 

iiLK’i*2 .  *»<1 

I K (  K l .  Ul  .  K4  )  ALliN- 2  .  *R4 
Ailu:ii-(AU,;iA2-Al.Pil2A)/2. 

IILi.‘i-2.*(RV-i;l  )*SI4(A1ILEN) 

If  (  Rl  .GT .  R4  )  :  IU;.s'-2 .  *  (  RV-R4 )*SI  i,’(  Ml  UN) 

ASi:;;iA-8LFN*HLr:.;/2. 

Ai.GL:1-(:IV**2+R4**2-(RV-R1)**2)/(2.*RV*;<4) 
ii-(iu.(;r.f'4)  a;;gu:i-(rv**2+ri**2-(kv-R4)**2)/(2.*rv*ri) 
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4.2.7  ( Continued) 


AAG  LF 1  “ACCJS  (ANGLE  1 ) 

Xl.K.‘i»:>QUi'( 2  ■  *(  RV+:t‘*  )**2-2 . *(RV+K4 )**2*COS  (  ALPil2A)  ) 

IF(lU  .GT.R4)XU::.'-Si)tiT(2.*(ltV+lU)**2-2.*(ltV+ltl)**2*COS(ALPlI2A)) 

A.\T;LK2-(2.*R4**2-XLKX**2)/(2.*R4**2) 

IK(Rl.GT.R4)A.;GLE2-(2.*Rl**2-XLEri**2)/(2.*Rl**2) 

A .  JG  LG  2  -A  COS  (  AN  G  LG  2  ) 

ALP! !  A4  - P  I  -A,  J  G  LK 1  -ANC  LI !  2 

ASL'iU*(  R4**2)*(ALPilA4-SIT(ALPTA4)  )/2 . 

IF(I<1  .GT  •  R4  )ASUIil”( Rl**2  )*(ALP,1a4-SI.V(ALP|.1A4  )  )/2  . 

AivF.Al  ■ASlIUl+ASUillA 
Ai<i:a2-PI*(R1**2)/2. 

IF(Al.GT.R4)AREA2»PI*R4**2/2. 

Al.'il)CX“T’ISlJCl-ALPl!2A+TiGTAl 
I  e  (R1.GT.R4)  A I  XDE  X- 1"  I SUC 1  -AL  P  IAl+f.  LT’IAG 
I  X0EX2-AI  NDEX*57 . 3/AI  \’C+1 . 

NiiiJG2“l:-jl)KXl+l 
00  450 

T : IKT A- (  OE J/2  .  -0 . 5 ) /  3 7 . 3 
ALPI(A3=T!li:rA+X.li:fAi+ALPd2A-T  ISIICI 
AREA  3*2 .  *KV*Rl*<vLPilA5 
I F  ( It  1  .  GT .  .<4  ) AR GA3*  2  .  *RV* R4 *ALP' IA5 
VAR  EA(ilDEG) -AREA  1 +A  it  EA  2+ ARE  A  3 
43J  COiiTii.'tJF. 

A..,SUUP-TIISUCl-AU>UAl+SLT.IAG 
I  r  ( It  1 .  GT . R4  )  AX' SU0P*T!1SUC  1+AI.PR2  A+TMETA1 
N'SUOP-.Y  JSUOP*57 . 3/AI VC+1 . 

R)iEG3»I  .UEX2+1 
DO  455  XDEG-.ibLGJ.R'SUOP 
T  IKTA*( NDGG/2 . -0 . 5 )/ 5 7 . 3 
ALP:iAf»*(  T!!S'JCt“T.IK  t'A+T'li.TAI  )/ 2  . 

IF(  i(I .  GT .  P.4).\LPUA6*(  T'lETA-TTGTAl-T.lSUCl  )/2 . 

A  L  PI  IA  5-  2  .  *  (  r  1 1  !•:  TA IFAI.  p .  iA  A  )  +AL  p  U  2  A 
XI.K 2  .  * R V* S I X (ALP'In 0 ) 

P1II1-(R1*  ‘2+XU;R**2-R4**2)/(2.*RI*XLRN) 

Pill  4*  (  r4**2+XLIR.h*2-RI**2  )/(  2 .  *R4*XLEN) 

P!11 1-2. *(PI-AGOS( Pill  l)) 

IF(Rl  .UT.R4)P'Iil«2.*ACOi>(PUIl) 

PI1I4-2  .*AC0S(  PIII4) 

IF(Rl  .GT  .It  4)  PH  I  4*2.*(PI-ACOS(  PIII4)) 

ASUtf  I“(  PI*(R1**2)-(R1**2)*(PIII  l— SI!i(  PIIII  )  )+ 

1  ( P.4**2 )*( P.II4-G I'i( PIII4 )  )  )/2 . 

IF(RI  .GT .  :<4  )ASUlil*(  PI*(R4**2  )-(U4**2  )*(PIII4— SIN(PIII4  )  )+ 
I(Ri**2)*(P'llI-SIX(P:iII)))/2. 

ARE  A3  -4 .  *[<  V  *  it  1  *  T,  i  ET  A 1 
1 F  (  Rl .  GT .  R4  )  AK  GA3-  2 .  *  It  V*  R4  *AI .  PI  IA  5 
VaRF^(NDKG)-ASU.;I+ARKA2+ARKA3 
I F  <  R I .  GT  .  It 4  )  VAR  F. A  (  .1  DEG  )  -A.tEAl+ASU  B  l+ARF.A  3 
455  CONTINUE 

l'.iSUE  1*2  .  *PI  -TUSUCE  /  57 . 3-ALPIL'  1 
A.XSUtiC-2.*PI-T.ibUCE/57.3-GLr'UG 
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4.2.7  (Continued) 


IF(Ul.GT.R4)ANSUSC-TMSUKl-ALPll2A-T  IKTAl 
NSUSCLc’ANSUSC*57 .3/AINCF1 . 

NBEC4-NSU0P+1 

DO  460  :j;)liG-NBEG4,MSUSCL 

V  AREA  (  N  DEG  )«2.*AAEA2+4.*iiV*Gl*T‘  IETA  i 

1E( Rl . GT • R4 ) VAREA( NDEG ) “2 . * AREA1+4 . *RV*R4* ( T:iKTAl+ALPfl2  A) 
46 J  CO  NT I  RUE 

AI. \’DEX-T.1SUE1+ALPH2A-TUETA1 

IF(R1  .CT  .14  )AINDCX-2 .  *PI-THSUCE/  57 . 3-SLTHAC 
INDKX.3“AI  XDEX*  37 . 3/AINCFl . 

X:5EG5“.NSUSCL+l 

DO  465  MDRG«N\;GG5, 14DEX3 

T. iETA«(  NDEG/ 2  .-0.5)/ 57. 3 

ALP . iA6- (  TdETA+TUET Al-TMS'JE  L )/  2  . 

I F ( Rl . GT . R4  )ALP>1A0“(  T.ISl’E  1-T‘l ETA-T'IETaI  ) / 2  . 

AL  P :  IA  5-  2  .  *  (  THE  TA.  1FAL  PHA6  )  +AL P  il  2 A 

xle;>  2 .  *rv*  s  i  n  (  alp  ;  i.\r> ) 

Pill  l-<  iU**2FXU:M**2-R4**2)/(  2  .  *Rl*XLS.\’) 

!>UI4-(  K4*»‘2+XLKN**2-Rl**2)/(2  .*I(4*XLE:0 
Fill  1-2  . *  ( n— ACOS< Plill )  ) 

IF(RL.GT.R4)  Pill  1-2.  *ACOS(  PHIL) 

I\iI4“2 .  *AOOS(  PIII4) 

I  F(Al  .GT.  R4  )  PllI4“2  •  * (Pl-AGOS(  P1II4)  ) 
A:;jiU-(PI*(!U**2)-(Rl**2,>*(PilIl-SlN(PilIl))F 
l(iv4**2)*(FlII4-Si!i(FHI4)  ))/2 . 

I F(Kl .  GT  .r4  )ASUi>1“(  Pi*( E4**2 )-(  R4**2  )*(PIII4-SI  '•<(  PIII4)  )F 
1  (  Kl  **2  )  *  (Pilll-SIN(  PHI  1 )  )  )/2 . 

AkEAJ-4.*UV*R1*THKTa1 
1 F (  « 1 .  GT  .  R4  )  AIIGA3-2  . * RV* R4 *ALPliA5 
VAuKA(  XDICG  )  “Ao'J  iil+ARKA2  f  AKEA3 
I  F  ( ft  1  .  GT  .114  4  VA  A  E  A  ( DEG  )  •AREA  1+ASUii  1  FARE  A3 
4  o  5  conn  hu:-: 

A I  .V  i)EX-T  I  iSUK  l+T '  I  ETA  1+ALPI12  A 
I  ,.")CX4“AI.JUEX*5  7  .  3/AIMG+l . 

;;,>r.G6=i  ;df>:3h  1 

DO  47  J  A'DIX- i;SEG6,  MDEX4 

THETA" (NDEG/ 2 .-0. 5 )/57 .3 

ALPIIA5*TII.SUEI+AI.P!I2a-T'IETA+T;IET/\1 

ARKA3«2.*ftV*ftl*AUMA5 

I F ( ft  1 . GT . R4  ) AUE A 3 “ 2  .  * R V* R4 *A J. P! ' A 5 

V  AR  K  A  (  K  DLG  )  -  A  RF.  A 1  FA  UK  A  2  FA  !<  K  A  3 
4  7  )  CD  TTlM.'E 

ANSUCL-2.*l*I-TilSL'C:;;/57 .3FSLT.1AG 
.;SUCL»A  .SI3Gr.*5  7. 3/al  'JCFl . 

:oa-;g;-i1:dex4fi 
do  47  5  vd:(>.;;5f.g7,nslicl 
T.iGTA-(..DEG/2.-0.5)/57.3 
ALFI!A3*(  I  !!;TA-T  lr;r\l-T;iSUEl)/2. 

XLE.<-2.*RV*SI  i( ALPHA J) 

PH  11  “(Ml*  *2FXLF.:.  *  *  2-114**  2  )  /  (  2  .  *  R 1  *XLF.  . ) 


I 
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h:  .2.1  (Con  t  I  rvu  ed) 


F.l  1 1  “2  .  *ACOS ( l*!l  11) 
l>  ii4=2.*ACOS(PHI4) 

ASIJi;1-(  {l**2)*(l>III  L-f>I\’(P!Il  l  ))/2  . 

A  S  l ;  2  =■  ( . :  4  *  *  2 )  A  ( r  M 1 4  - :  !  M 1 4 ) )  /  2 . 

va.;ea(R!jeg)-.\gh:ji-k\si,i;2 
47  3  CoRTUUK 

WOKO'^XSUCL+l 
on  4.30  ;,in;r>.!Ai:(;f'  ,721 
v,v!(.-:a(aokg)=o.o 
430  COGTIWK 

•;.M  [TE(u  ,  49u)  XPASOP  ..IStJSuP  ,  APAOP , .•.'SO OP  ,  WPASCL  , NSUSCT,  ,  RPR  CL ,  ASUCL 
490  10K.Ur(//,7X,'***  VALVK  AREA  INDEXES  ***',//,  5X,  'NPRSPP  «',I7,5X, 
l'  .'SoSOP  ,  17  ,  / , 3X  , '.'PROP  ,  17 , 5X ,  'NSUOP  »'  ,  17  ,/ ,  5X,  'NPRSCL  =•'  , 
217,5:;  'XUUSCL  ,  17  ,/  ,5X,  'XPRCL  ,  1 7 , 5X ,  'NSUCL  •',17,//) 
ll '(lOPT(l).N’K.lJGOTO  510 
WAIT 3(0, 49 5) 

495  for;  1AT('1',5X,'  nukg  ',5a,'t:1(;ta',3;;,'vakka(ndeg)',//) 

DO  0u5  :;,)£(>  1 , 721 

TiRTA=(M!)Ec:/2.-u.3)/57.  3 

.].<  I  J*ii(l> , 500)  NllGG  ,Tii!;TA*57.J,VaREA(3DLG) 

50')  FOR.  1AT ( GX , J  3  5X ,  FlO  .  »  , 2X , F10 .6) 

505  CO MX I  . UR 

310  co, cr I.* uk 

;<iso»(RV+;;2)**2 

R2SQ“(  !l\'-l<2)-‘*2 

ARC  L'X  1 50 .  -T. IP KS-T:  1PR R ) /  5 7 . 3 

AREA* .  3*AWGLE*( R1  3Q-R2SO) 

\)  I  A.'  i».30K  i(  ARKA*4  ./PI ) 
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4 . 3  SECTION  2  -  STEADY  STATE  SWASH  ANGLE  AND  OUTPUT  PRESSURE  CALCULATION 

Section  2  calculates  the  steady  state  swash  angle  as  a  function  of  pump 
speed  and  circuit  overboard  flow.  If  the  pump  is  saturated,  i.e.,  overboard 
flow  (QOVB)  is  greater  than  the  capacity  of  the  pump  at  a  given  RPM,  the  steady 
state  outlet  pressure  at  which  the  pump  can  supply  the  demand  is  calculated. 

The  flow  constants  QWBEG,  QWEND,  QZERO,  and  QMAXI  are  calculated  on  the  first 
call  of  PUMP.  These  constants  define  a  flow  capability  "envelope"  which  is 
used  to  estimate  the  steady  state  swash  angle  (ASWASH)  or  outlet  pressure  (HPRESS) 
for  the  first  and  each  succeeding  RPM.  Calculation  of  the  flow  constants  is 
bypassed  on  subsequent  calls  of  PUMP. 

4.3.1  Math  Model 

4. 3.1. 1  Flow  Capability  Envelope  -  Upon  entering  Section  2  on  the  first  call  of 
PUMP,  the  swash  angle  ASWASH  is  set  to  the  input  maximum  SWASH  and  steady  state 
outlet  pressure  HPRESS  is  set  equal  to  input  steady  state  outlet  pressure  PRESS. 
QWBEG  is  set  equal  to  the  calculated  steady  state  flow  QQFC(l)  that  results 
from  Fourier  Analysis  of  the  values  obtained  in  Section  4  at  this  condition 

of  ASWASH  and  HPRESS  with  speed  Y  equal  to  the  starting  spec i  WSTART  (see 
Sections  4.5  and  4.6).  Speed  is  then  set  to  the  maximum  input  speed  WEND.  Flow 
calculations  are  repeated  and  QWEND  is  set  equal  to  the  resulting  QQFC(l)  from 
Fourier  Analysis.  QZERO  is  the  value  that  results  from  straight  line  extrapolation 
of  QWEND  and  QWBEG  to  zero  RPM. 

HPRESS  is  reduced  to  zero  and  the  flow  calculations  are  again  repeated 
with  speed  and  swash  angle  at  their  respective  maximums.  QMAXI  is  set  equal 
to  the  resulting  QQFC(l)  from  Fourier  Analysis.  These  flow  constants  define 
an  "envelope"  of  pump  steady  state  flow  capability  as  shown  in  Figure  4-6. 

4. 3. 1.2  Swash  Angle  Calculation  -  Pump  speed  Y  is  set  back  to  the  starting  RPM 
WSTART  and  the  program  is  ready  to  estimate  the  sv/ash  angle  required  to  provide 
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the  input  steady  state  overboard  flow  QOVB.  For  the  first  speed  (and  for  each 
succeeding  RPM),  the  maximum  swash  angle/maximum  pressure  (QMAXY)  and  maximum 
swash  angle/zero  pressure  (QMAXIY)  are  determined. 

If  QOVB  is  less  than  QMAXIY,  the  swash  angle  is  estimated  by  linear 
interpolation  between  QZERO  and  QMAXY  as  shown  in  equation  (1). 


ASWASH  - 


SWASH 

57.3 


SWASH  „  (QMAXY-QOVB) 
57.3  (QMAXY -QZERO) 


(1) 


If  ASWASH  is  less  than  SWASH,  flow  values  for  this  condition  are  obtained 
and  the  resulting  calculated  steady  state  flow  QQFC(l)  is  compared  to  QOVB 
(see  Section  A. 6).  If  the  flow  error  FLERR(IFL)  is  greater  than  0.01  CIS,  ASWASH 
is  adjusted  by  an  incremental  swash  angle  DSWERR,  which  i  the  calculated  swash 
angle  required  to  provide  a  flow  increment  equal  to  the  flow  error.  DSWERR 
is  also  obtained  by  linear  interpolation  as  show  in  equation  (2). 


DSWERR  = 


SWASH  SWASH  ( QMAXY- ( QZERO+ABS ( FLERR ( IFL ) ) ) 

57.3  57.3  (QMAXY-QZERO) 


(2) 


The  process  of  determining  flow  error  and  adjusting  ASWASH  by  DSWERR  continues 


until  the  error  changes  signs; 

FLERR(IFL) 


i . e. ,  until 


FLERR(IFL-l) 


.  LT.  0.0 


When  this  occurs,  the  next  estimate  of  ASWASH  is  determined  by  linear  interpolation 
between  the  last  swash  angle  (ASWERR( IFL-1)  and  error  (FLERR(IFL-l))  and  the  current 
swash  angle  (ASWERR( IFL) )  and  error  (FLERR(IFL))  as  shown  in  equation  (3). 


ASWASH  -  ASWERR(IFL) 


(ASWERR( IFL)-ASWERR( IFL-1) )* 


_ FLERR (IFL) _ 

(FLERR ( IFL) -FLERR (IFL-1)) 


(3) 


The  integer  IFL  is  used  to  count  the  total  number  of  swash  angle  iterations  and 
the  integer  KINTRP  is  used  to  count  the  number  of  interpolations.  The  process  is 
continued  until: 

316 


i 


(a)  The  flow  error  is  reduced  to  less  than  0.01  CIS  (FLERR(IFL)  .LT.  0.01); 
or, 

(b)  The  incremental  swash  angle  for  the  next  ASWASH  estimate  is  less  than 
0.001  degree;  or, 

(c)  Two  interpolations  have  taken  place  (KINTRP.EQ. 2) ;  or, 

(d)  Ten  total  iterations  have  occurred  (IFL.GT.10). 

Program  execution  continues  with  the  existing  error  in  all  cases  except 
(d)  for  which  it  is  assumed  that  reasonable  flow  balance  cannot  be  achieved 
and  program  execution  stops. 

4. 3. 1.3  Steady  State  Outlet  Pressure  Calculation  -  If  QOVB  is  not  greater 
than  QMAXIY  but  the  first  estimate  of  swash  angle  is  greater  than  maximum 
SWASH,  steady  state  outlet  pressure  HPRESS  is  estimated  by  linear  interpolation 
between  QMAXY  where  HPRESS  -  PRESS  and  QMAXIY  where  HPRESS  =  0.0  in  accordance 
with  equation  (4) . 


HPRESS 


TRESS  -  PRESS  * 


(QMAXY-QOVB) 

(QMAXY-QMAXIY) 


(4) 


HPRESS  is  adjusted  to  achieve  steady  state  flow  balance  in  the  same  manner 
described  in  paragraph  4. 3.1.2  for  the  swash  angle  calculations.  HPRESS  is 
initially  reduced  (or  increased)  depending  on  the  sign  of  the  flow  error 
until  the  zero  error  value  is  bracketed; 

i.e.,  until  fleRR(IFL-I)  ,LT*  °'° 


The  next  estimate  of  HPRESS  is  obtained  by  interpolating  between  the  last 

pressure  (HPRERR(IFL-l))  and  error  (FLERR(IFL-l) ))  and  the  current  pressure 

(HPRERR( IFL) )  and  error  (FLERR(IFL))  as  shown  in  equation  (5). 

HPRESS  -  HPRERR(IFL)  -  (HPRERR(IFL) -HPRERR( 1FL-1) )*  _ (FLERR(IFL)) _ 

(FLERR(IFL)  -FLERR(IFI.-l) ) 


* 


The  criteria  for  steady  state  balance  of  outlet  pressure  is  similar  to  that 
tor  the  swash  angle: 

(a)  (FLERR(IFL)  .LT.  0.01);  or, 

(b)  (KINTRP  .EQ.  2);  or 

(c)  (IFL  .GT.  10). 

In  practice,  rarely  more  than  four  iterations  are  required;  the  more 
usual  number  of  iterations  required  to  achieve  steady  state  balance  is  two. 

4. 3. 1.4  Flow  Saturation  -  If  the  steady  state  flow  demand  exceeds  the  capability  of 
the  pump  at  a  given  RFM  (QOVB. GT. QMAXIY) ,  a  warning  message  is  printed  (if 
write  option  4  has  been  selected)  and  dynamic  flow  and  pressure  (0(1)  and  P(l), 
respectively)  are  set  to  near-zero.  Control  passes  back  to  the  main  program. 

If  flow  and/or  pressure  plotting  options  are  selected,  the  resulting  output 
plots  show  zero  amplitude  for  dynamic  flow  and  pressure. 

4.3.2  Assumptions  -  Swash  angle  is  assumed  to  vary  linearly  with  flow  demand 
between  QZERO  and  QMAXY  at  a  given  RPM  with  steady  state  outlet  pressure 
equal  to  the  input  data  steady  state  circuit  pressure.  Similarly,  steady  state 
outlet  pressure  is  assumed  to  vary  linearly  with  flow  demand  between  QMAXY 

and  QMAXIY  at  a  given  RPM  with  swash  angle  equal  to  the  input  data  maximum 
swash  angle. 

4.3.3  Computation  Method  -  Linear  interpolation  is  used  to  estimate  swash  angle 
or  outlet  pressure.  Successive  iterations  reduce  the  resulting  flow  error 

to  within  specified  limits. 

4.3.4  Approximations  -  The  equivalent  steady  state  output  flow  at  zero 
swash  angle  is  approximated  by  straight  line  extrapolation  of  maximum  flow  at 
the  starting  and  ending  pump  speeds  to  zero  RPM. 


4.3.5  Limitations  -  Near-zero  dynamic  flow  and  pressure  values  are  returned  to 
the  main  program  if  steady  state  overboard  flow  demand  exceeds  the  pump 
capability  at  a  given  RPM.  This  exists  as  a  calculated  zero  psi  steady  state 
outlet  pressure  condition.  This  should  be  interpreted  as  a  meaningless 
situation,  because  the  outlet  lines  would  theoretically  be  less  than  full  of 
fluid.  The  established  relationships  used  for  dynamic  analysis  do  not  apply. 

4.3.6  Variable  Names  -  See  paragraph  4.1.6. 


« 


4.3.7  Steady  State  Swash  Angle  &  Pressure  Calculation  -  Listing 


SECTION'  2  SWASH  ANGLE  AND  STEADY  STATS  OUTPUT  PRESS  USE  CALCULAT 
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4.4  SECTION  3  -  PISTON  PRECOMPRESSION  CALCULATION 


Section  3  calculates  Che  cylinder  pressure  which  exists  just  before  the 
cylinder  slot  starts  to  open  to  the  valve  plate  pressure  slot.  This  pressure 
results  from  compressing  the  fluid  in  the  cylinder  during  that  portion  of  block 
rotation  when  the  cylinder  slot  is  closed  by  the  valve  plate  between  the 
suction  and  pressure  slots. 

4.4.1  Math  Model  -  Piston  motion  results  from  rotating  the  cylinder  block  with 
the  piston  shoes  held  against  the  angled  swash  plate.  Each  swash  plate  angle 
component,  (the  fixed  cross  angle  and  the  controlled  swash  angle)  contributes 

to  total  piston  motion,  which  may  be  defined  as  the  sum  of  two  sinusoidal  motions 
as  shown  in  Figure  4-7.  Piston  positions  at  the  start  and  end  of  incremental 
stroke  DX  and  their  respective  pressures  are  defined  as  shown  in  Figure  4-8. 

4.4.2  Assumptions  -  The  pressure  dependent  factor  for  leakage  out  of  the  cylinder 
(with  cylinder  pressure  greater  than  case  pressure)  is  as  shown  in  equation  (1). 


PLEAK  = 


TLEAK 

NAPP*PRESS 


(1) 


The  pressure  dependent  factor  for  leakage  into  the  cylinder  is  assumed 
to  be  as  shown  in  equation  (2). 


SLEAK 


TLEAK _ 

NAPS*SQRT (CSPRES ) 


(2) 


The  piston  is  assumed  to  be  completely  filled  with  fluid  at  the  start  of 
calculation,  with  piston  pressure  PISPR(  )  equal  to  the  input  data  steady 
state  inlet  pressure. 

4.4.3  Computation  Method  -  The  calculation  starts  with  the  cylinder 
centerline  angle  THETA  at  the  last  index  position  before  the  suction  slot 
closes,  NDEG  «  NSUCL.  Precompression  pressure  is  calculated  in  1/2  degree 
increments  of  cylinder  block  rotation.  Calculated  values  are  stored  in 
the  array  PISPR(NDEG). 
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FIGURE  4-8 

PISTON  PRECOMPRESSION 
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Bulk  modulus  is  calculated  at  the  beginning  of  each  calculation  step. 

The  pressure  rise  due  to  compression  is  calculated  and  is  added  to  the 
final  piston  pressure  from  the  preceding  step.  Net  leakage  volume  DLEAK 
is  calculated  using  the  applicable  pressure  dependent  leakage  factor  PLEAK 
or  SLEAK.  Bulk  modulus  is  recalculated  for  the  new  piston  pressure  (after 
compression)  and  the  differential  pressure  increment  resulting  from  a 
volumetric  change  equivalent  to  DLEAK  is  calculated.  Net  piston  pressure 
at  the  end  of  the  calculation  step  is  given  by  equation  (3). 

PISPR(NDEG)  =  PISPR(NDEG-1 )  +  AP  comp  -  AP  leak 

The  process  is  repeated  until  the  last  index  position  before  the  pressure 
slot  starts  to  open  is  reached,  NDEG  =  NPRSOP. 

4.4.4  Approximat ions  -  Net  leakage  volume  out  of  (or  inco)  the  cylinder  is 
approximated  by  the  pressure  dependent  leakage  factors  and  is  assumed  to  take 
place  at  the  end  of  the  incremental  compression  stroke. 

4.4.5  Limitations  -  Dynamic  effects  on  the  initial  inlet  pressure  are 
not  included. 

4.4.6  Variable  Names  -  See  paragraph  4.1.6. 


) 

i 


(3) 
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4.4.7  Piston  Precompression  Calculation  -  Listing 
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4 . 5  SECTION  4  -  PUMP  OUTPUT  FLOW  CALCULATION 

Section  4  calculates  the  total  output  flow  for  one  pumping  cycle,  i.e.,  40 
degrees  of  cylinder  block  rotation  for  a  nine  piston  pump.  The  primary  output 
flow  results  from  displacement  of  the  piston  in  the  cylinder.  Primary  flow 
is  modified  by  such  factors  as  the  pressure  rise  due  to  compression,  the 
throttling  effect  of  orifice  flow  through  the  valve  opening,  and  flow  losses 
due  to  leakage.  Other  factors  such  as  cavitation  and  the  influence  of 
dynamic  pressure  on  the  steady  state  outlet  pressure  are  also  considered. 

4.5.1  Math  Model 

4. 5.1. 1  Primary  Flow  -  Piston  position  is  determined  by  the  angular  position 
of  cylinder  bloc*  rotation  THETA  and  by  the  swash  plate  angle  components.  From 
Section  3,  piston  position  X  is  defined  by  equation  (1); 


X  *  SSA*3 IN (THETA) -SA*C0S (THETA)  (1) 

which  may  also  be  expressed  as: 

X  =  SAM*SIN (THETA-XANG)  (2) 

where  SAM  =  SQRT(SSA**2  +  SA**2)  (3) 

XANG  =  TAN_1 (SA/SSA)  (4) 


The  primary  flow  resulting  from  displacement  of  the  piston  is  defined 
as  QMECH  and  lags  piston  position  by  90  degrees  as  shown  in  Figure  4-9. 

Peak  QMECH  occurs  when  THETA=XANG  and  is  determined  as  follows. 

Select  a  small  increment  of  cylinder  block  rotation,  AINC 
Let  THETA  «  XANG+AINC/2.0 

So  that  piston  displacement  DX  over  the  increment  AINC  is 
given  by: 

DX  -  2.0*SAM*SIN(AINC/2.0).  (5) 
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FIGURE  4-9 

OMECH  CALCULATION 
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The  volumetric  displacement  is  DX*PIA 

So  that  average  flow  over  the  time  DT  equals  DX*PIA/DT. 

DX  is  selected  so  that  the  average  flow  just  calculated  occurs 
at  THETA  ■  XANG  so  that  the  peak  value  of  QMECH  is: 

QMMAX  -  DX*PIA/DT  (6) 

Therefore,  for  any  angular  position  of  the  cylinder  block: 

QMECH  =  QMMAX*COS (THETA-XANG)  (7) 

4. 5. 1.2  Output.  Flow  -  Figure  4-10  illustrates  the  parameters  used 
to  calculate  output  flow,  QOUT.  Equations  (8)  and  (9)  define  QOUT. 

QOUT  =  QMECH  -  AQleak  -  AQcomp  (8) 

QOUT  =  CD*VAREA(NDEG) *SQRT ( 2 . *(P1SPR(NDEG) - 
(HPRESS+PPT (NKM) ) /RHO) 

Where:  QMECH  is  the  primary  flow  from  paragraph  4. 5. 1.1 

AQleak  is  the  flow  loss  due  to  leakage 
AQcomp  is  the  flow  loss  due  to  fluid  compression 
CO  is  the  orifice  discharge  coefficient 
VAREA(NDEG)  is  the  valve  area  from  Section  1 
PISPR(NDEG)  is  the  piston  chamber  pressure  at  the  end  of 
incremental  stroke  DX 

HPRESS+PPT (NKM)  is  the  net  outlet  pressure 
RHO  is  the  fluid  density 

Consider  equation  (8).  The  leakage  from  the  cylinder  to  case  is  estimated 
from  the  differential  pressure  at  the  end  of  the  incremental  stroke  DX 
and  the  leakage  factor  LEAK,  so  that: 


327 


FIGURE  4-10 
QOUT  CALCULATION 
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AQleak  -  (PISPR(NDEG)-CPRESS)*LEAK 
The  equivalent  flow  loss  due  to  compressibility  is  derived  from  the 
bulk  modulus  formula! 


AP*Volume 

AVolume 


Rearranging  and  considering  AVolume  over  the  time  increment  AT  yields: 


AVolume 
AQcomp  *  — - - 


AP*Volume 

8*AT 


Since  AP  over  the  incremental  stroke  DX  is  the  difference  between  PISPR(NDEG) 
and  PISPR(NDEG-l) , 


AQcomp  =  (PISPR(NDEG) -PISPR(NDEG-l) )* 


BULKP*DT 


Where  VA  is  the  original  cylinder  volume  at  the  start  of  the  incremental 
stroke  DX.  Substituting  equations  (10)  and  (13)  in  equation  (8)  yields: 


QOUT=QMECH-(PISPR(NDEG) -CPRESS) *LEAK  - 


(PISPR(NDEG)-PISPR(NDEG-l) )*  - 


BULKP*DT 


Now  consider  equation  (9).  Solving  for  PISPR(NDEG)  yields: 


PISPR(NDEG)  -  ^TcS"vSnDEG))..2  +  (HPRESS+PPT(NKM) ) 
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LEAK  +  BUW*W 

VA 

LK2  =  QMECH  +  CPUESS*LEAK+PISPR(NDEG-1 )  * 

BU  IjK.r  ”  D I 

L  _ RJ 10 _ _ 

LK3  =  2*(CD*VARKA(NDEG)‘)**2 


(16) 

(17) 

(18) 


Substituting  equations  (lb)  and  (17)  in  (14)  and  rearranging  yields: 

WT-LK2-  a,, 

Similarly,  substituting  equation  (18)  in  (15)  yields: 

2 

PISPR(NDEG)  =  +  (HPRESS  +  PPT(NiCM))  (20) 

For  each  calculation  step  the  last  calculated  value  of  QOUT  is  used  for  the  initial 
estimate  of  flow,  QEST.  Equation  (20)  is  used  to  compute  an  initial  trial  value 
of  piston  pressure,  PTRIAL(l).  This  value  is  substituted  for  PISPR(NDEG)  in 
equation  (19)  to  produce  QTR1AL,  (1). 

The  QTRIAL(  )  from  equation  (19)  is  compared  to  the  QEST  used  in  equation  (20). 

If  the  difference  is  significant,  QITERR.GE. 0. 5%,  QEST  is  updated  by  averaging 
the  last  and  current  QTRIAL(  )  values.  PTR1AL(  )  and  QTRIAL(  )  values  are  recalculated 
using  the  appropriate  substitutions!  in  equations  (19)  and  (20).  The  iteration  process 
is  repeated  until  flow  balance  between  equations  (19)  and  (20)  is  achieved.  QOUT 
and  PISPR(NDEG)  are  set  equal  to  the  balanced  values  of  QTRIAL(  )  and  PTRIAL(  ),  respect¬ 
ively  . 
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4.5.2  Assumptions 

(a)  Flow  through  the  cylinder/valve  plate  slots  is  described  by 
the  orifice  equation.  The  discharge  coefficient  used  is 
developed  for  a  circular  orifice  with  an  area  equivalent  to 
VAREA(NDEG) . 

(b)  Leakage  is  assumed  to  take  place  at  the  end  of  the  incremental 

) 

stroke,  DX. 

(c)  The  flow  resulting  from  piston  displacement  (QMECH)  is  assumed 
to  lag  piston  position  by  90  degrees,  regardless  of  outlet 
pressure  dynamic  effects. 

(d)  The  flow  contribution  of  all  cylinders  that  are  exposed  to 

the  pressure  slot  may  be  summed  to  produce  total  time  dependent 
output  flow.  It  is  assumed  that  there  is  no  interactive  effect 
between  cylinders. 

4.5.3  Computation  Method  -  Flow  is  calculated  for  one  piston  as  its  cylinder 
traverses  the  valve  plate  pressure  slot  in  1/2  degree  increments  of  cylinder 
block  rotation. 

Figure  4-11  illustrates  the  flow  calculation  procedure.  When  the 
cylinder  slot  of  Piston  1  just  begins  to  open  to  the  valve  plate  pressure 
slot,  it  can  be  seen  that  the  next  piston  (Piston  2)  has  just  passed  the 
fully  open  position.  Piston  3  is  nearing  maximum  stroke  and  Piston  4  is 
starting  to  retract  into  its  cylinder.  For  the  example  shown,  the  next 
cylinder  has  just  closed  to  the  pressure  slot  so  that  it  and  the  remaining 
pistons  have  no  active  bearing  on  the  output  flow  calculation. 
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Time  Dependent  Flow  Calculation 


Outlet  Flow  Calculation 


Piston  Motion 


FIGURE  4-11 
FLOW  CALCULATION 
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The  QMECH  and  QOUT  calculations  described  in  paragraph  A. 5.1 
are  performed  for  Piston  1  starting  with  the  cylinder  centerline  at  the  first 
index  position  after  valve  opening  begins,  NDEG  =  NPRSOP+1 .  The  computation 
proceeds  in  1/2  degree  increments  of  cylinder  block  rotation.  The  calculated 
value  of  QOUT  for  each  index  position  is  stored  in  the  time  dependent  flow 
array,  QQT(NKM) . 

The  time  dependent  counter  NKM  is  reset  after  each  40  degrees  of 
cylinder  block  rotation  (80  index  positions)  so  that  the  array  QQT(NKM)  is 
filled  first  with  the  flow  contribution  of  Piston  1.  The  flow  contribution 
of  Piston  2  is  summed  witn  that  for  Piston  1,  time  step  for  time  step.  That 

total  is  summed  with  the  flow  contributions  of  Pistons  3  and  4  in  the  same 
manner.  The  calculation  proceeds  until  the  index  counter  NDEG  =  NPRCL .  At 
the  completion  of  the  process,  the  flow  contribution  of  all  active  pumping 
pistons  is  accounted  for.  The  final  values  in  the  array  QQT(NKM)  represent 
the  totai  pump  output  flow  waveform  for  one  pumping  cycle. 

4.5.4  Approximations  -  Peak  QMECH  is  approximated  for  the.  time  step  DT 
by  using  the  average  flow  over  the  angular  increment  of  cylinder  block 
rotation,  AINC,  at  the  position  when  the  slope  of  piston  travel  is  maximum. 

The  angular  increment  AINC  is  sufficiently  small  so  that  errors  resulting 
from  this  approximation  are  considered  to  be  negligible. 

4.5.5  l.imi  tatjons  -  None. 

4.5.6  Variable'  Names  -  See  paragraph  4.1.6. 
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4.5.7  Section  4  -  Pump  Output  Flow  Calculation  -  Listing 

C 

C  SliCT ION  4  -  PUMP  OUTPUT  FLOW  CALCULATION 
C 

DX-2  .  *SAr!*S  L  N( AINC/ (,2.  *5  7. 3)) 

0-i.iAX=UX*PIA/L)T 
XaNG=>ATA,\2  (  SA ,  S  SA) 

C  A V  OL- C AVOL  0 
DO  1,10  NK.'i-l  ,81 
QqT(NKH)=0.0 
ISO  CONTINUE 

NUEG-NPRSOP 

TiiLT  A* (  NUEG/2  .  -0 . 5  )  /  5  7 . 3 
XLAST=SSA*SIN(  THETA) -SA*COS( THETA) 

MKM=0 

<>0UT=0.U 

yEST-QOUT 

C  0=0 .65 

N  I1EG-NPRS0P+1 

DO  190  NDEG-NBEG ,  NPRCL 

NK.l-NKM+1 

1F(NKM.EQ.81)NKM»1 

TUETA-(NDEG/2.-0.5)/57.3 

XN  E  W=SSA*SIN(  TH  ETA  )  -SA*COS  (  TilETA  ) 

DX-XNEW-XLAST 
VA-POVOL-XLAST*PIA 
XLAST— X.NEW 

yMKCH»y.lMAX*COb  (  THETA-XANG  ) 

I F ( CAVO  L . GT .  0 . 0  )  GO  TO  187 
BULKP-BULrC+12 .  *(PISPR(NDEG-1  )-PRESS) 

LEAK-SLEaK 

IF(PISPK(NDEG-1).CE.CPRESS)LEAK-PLEAK 
LK.1-1 « /  (  (  VA/ (bULXP*OT  )  )+LEAK) 

LK2-yi>lEClH'VA*PISFR(NDEG-l)/(BULKP*DT)+CPRESS*LEAK 

LK3-2.*(CU*yAREA(NDEG))**2/HHO 

QEQUAT-1. 

ITER-1 

181  CONTINUE 

PTKIAL( ITER)»QEST*ABS(yEST)/LK3+ 

1 ( HP  RES  S+PPT(  NKli  )  ) 

QTKI AL( ITER)-LK2-PTRIAL( ITEK)/LKl 
I F  ( IT  ER .  LE .  2 )GOTO  186 
IF( ITER.GT. 3)G0T0  185 
IF(yTRIAL(ITER) .LE .QTRIAL( ITER-1 ) 

+. AND. QTRIAL( ITER). GE.yTRIAL(lTER-2) 

+  .0R  .QT*<IAL(  ITEK)  .  LE  .QTi<IAL(  ITER-2  ) 

+.AND.QTKIAL(  ITER)  .GE  .()TRIAL(  ITER-l  )  )GOTO  135 
QEyUAT-2. 

ITER-1 

yEST-QOUT 

182  CONTINUE 
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4.5.7  (Continued) 

PTKlAL(  ITER)=*LiCl*  (  LK2-QEST  ) 

QTRIAL(  1TEk)=SQRT(  LK3*AilS(PTRlAI.(  ITER) ~(HPRESS+PPT( NKM)  )  )  ) 

Ir  (  PTRIAL(  ITER)  .  LT .  (HPKESS+PPT( NKM)  ) )gTRIAL(  ITEK)=-QTRlAL(  ITER) 

I F  ( JLT  EK . EQ . 1 )  GOTO  186 

185  CONTINUE 

QITERR=A8S(QT.<IAL(  ITEK)-QTRIAL(  ITER-1 )  ) 

1F(QTRIAL(ITEK-1) .NE.O.O)giTERR=AiiS(QITERR/QTRlAL( ITER-1)) 

I F  ( Q1T  ERR . LT . 0 . 005  )GOTt)  188 

186  CONTINUE 

QE ST=(QTR1AL( ITER)+Q£ST)/2. 

IF ( ITER . LT .  3)gEST=qTRIAL( ITER) 

I F ( I TER . EQ . 1 0 ) GOTO  183 
ITER-ITER+1 

IF  (  QEQ UAT . EQ . 2 .  )  GOTO  182 
GOTO  181 

187  CONTINUE 
L.EAK=SLEAK 

QOUT=- (  CD* VAREA (  NL1EG  )  * 

1 SQRT( 2 . * ( UP RESS+PPT( NKM) ) /RHO ) ) 

PISPR(WDEG)=0.01 

CaVOL=CAVOL-DX*PIA+SLEAK*DT*CPRESS+QOUT*DT 
I F ( GAVOL . LE . 0 . 0 )CAVOL«0 . 0 

188  CONTINUE 
QOUT»QTKIAL(ITEk) 

P13PR(NdEG)=»PTrIAL( I TER) 

Q£ ST -QOUT 

qqt(  NKri)=gouT+qgr(  nk.i) 

IF(lOPT(3).NE.3)GOTO  190 
I F  (  Y . NE . YOPT ( 2 ) ) GOTO  190 
1F(NDEG  .Eg  .i\8EG)  WRI T  E(  o  ,183) 

183  F0KMAT('1',10X ,'****  OUTLET  FLOW  VALUES  ****',//, 

+5X,'KK  NKM  NDEG  TilETA  PISTON'  ,6X  ,  'PISTON'  ,  7X,  'QOUT'  , 

+6X  ,  'QQT(i\KM)'  , 6X , 'CAVOL' , 5X  ,  'PISPR(NDEG) '  ,  /  , 

+26X, 'POSITION' , 6X, 'FLOW' ,/) 

WRI Tt( 6 , 184 )KK  ,NKM ,  NOEG  .THETA* 5 7 . 3  ,XNEW  ,QMECH  ,  QOUT , gQT( NKM)  , 
+CAVOL , PI 3PK ( N DEG ) , P  PT( NKM ) 

184  FOKMAT(  5X,I2,lX,I3,lX,14,2X,F5.1,2X,F10.b,2X,3(F10.4,2X)  ,F10.6,2X, 
+F10 . 4 ,2X ,F10.4 ) 

190  CONTINUE 

ggT( 81 )*QQT( 1 ) 
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4 . 6  SECTION  5  -  FOURIER ANALYSIS  OF  PUMP  OUTLET  FLOW 

Section  5  performs  a  mathematical  harmonic  analysis  of  the  time 
dependent  output  flow  waveform,  QQT(  ),  from  Section  4.  Dynamic  flow  is 
calculated  over  the  pumping  cycle  period  for  each  harmonic,  from  the 
fundamental  through  the  input  data  harmonic  of  interest. 

Section  5  also  contains  the  calculations  for  establishing  the  flow 
constants  and  steady  state  swash  angle  and  output  pressure  balance 
iterations  used  in  Section  2.  The  steady  state  balance  calculations  are 
bvoassed  during  dynamic  balancing  in  Section  6. 

4.6.1  Math  Model  -  The  Fourier  Analysis  calculations  used  in  this  section 
are  from  a  modified  IBM  subroutine  (Reference  2).  COSINE  and  SINE  amplitudes 
from  Fourier  Analysis  are  combined  to  form  complex  dynamic  output  flow,  FQ1 
Dynamic  flow  is  phase  related  to  the  pumping  cycle  established  by  the  time 
dependent  outlet  flow  waveform. 

Figure  4-12 (a)  compares  the  dynamic  output  flow  that  results  from  Courier 
Analysis  to  the  calculated  time  dependent  output  flow  from  Section  4.  Figure  4-12(b) 
compares  the  first  calculation  of  dynamic  flow,  FQ1(1,1),  to  the  last  value, 
FQl(last),  which  results  from  dynamic  pressure-flow  balance  in  Section  6.  The 
dynamic  pressure  that  produces  this  change  in  flow  is  also  shown. 

4.6.2  Assumptions  -  None 

4.6.3  Computation  Method  -  Fourier  Analysis 

4.6.4  Approximations  -  None 

4.6.5  Limitations  -  None 

4.6.6  Variable  Names  -  See  paragraph  4.1.6., 
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FIGURE  4-12 
DYNAMIC  FLOW 


4.6.7  Section  3  -  Four i. er  Analysis  of  Pump  Output  Flow  -  Listing 

C  SECTION  5-  FOURIER  ANALYSIS  OK  PUMP  OUTPUT  FLOW 
C 

201  AN-360. /P1ST.NO 
N-AN+.0001 

COEF-2 .0/(2. 0*AN>1 . 0  ) 

Cl=Pl*COEF 
Si  -SIN(Ci) 

CL  =C0S(C1) 

S  -0.0 
C  =1 .0 
FN'TZ=0QT(  1 ) 

J  =1 

210  U2=0.U 
Ul-0.0 
1=2*N+1 

C  FOR.i  FOURIER  COEFFICIENTS  RECURSIVELY 

220  UU»0QT( I)+2 .0*C*U1-U2 
U2  =  U1 
U1  =UO 
1=1-1 

IF( 1-1 )  230,230.220 
230  00FC(J )»COEF*(FNT2+C*Ul-U2> 

00FS( J)-C0EF*S*U1 
I F( J-NilAiCi-1 )  240.250,230 
2^0  UJ=C1*C-S1*S 
3  =C1*S-1-31*C 
C  =U3 
J  =  J+l 
CO  To  210 

250  00r'C(l  )-QoFC(1  )*0.5 
C 

C  ESTABLISH  OUuEC  ANU  i)NEND 
C 

IF ( KR. NE . 1 )GoT 0  235 

IF  (  i)uT>EG .  NE  .  0 . 0 .  AN  0 .  QWEN  U.NE.O.O.ANL).  QrtA  A  I .  N  E  .  0 . 0  )  GO  TO  2  32 
IF (QWiiEO  .  ME  .0.0)00 TO  251 
()WuEG-QQFC(  1 ) 

IF  (QWliEG.  El).  O.U)0NUEC  =0.0001 
GOTO  142 

251  l F ( l).JFN L) . NL .0.0) GOTO  261 
QW2ND=<)t)FC(  1  ) 

O0 TO  1^4 

261  QdAXl-gt)FC(l) 

GOTO  14c 

252  CONTINUE 

FLE  RR  (  1 FL  )  -  l)i,)FC(  1 )  -( )0  V  B 
A  SUE  RR(  IFL)-ASWASii 
>iP!\EKR(  1FL)=11PKESS 
1F( IOP f(4 ) . NE . 4 )GuTU  249 

if(  ifl  .  E'7 .  i  )’nri  r;;(  o ,  20 1)  y 
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4.6.7  (Continued ) 


26/  F0RMAT('l',90('*'),/,33X,'DATA  FOR'.Fo.O,'  RPM'  ,///, 10X, 

l'***  SWASH  ANGLE-STEADY  STATE  OUTLET  PRESSURE  CALCULATION  ***' , 
2/ /,15X,'1FL',5X, 'SWASH', 6X , 'ST. STATE' , 6X , 'FLOW' ,6X f *  ST. STATE , 
32 JX, 'ANGLE' ,SX , 'FLOW' , 7X, 'ERROR' ,6X, 'PRESSURE' ,//) 

NR  I  IE(  6 , 253)  IFL  , ASWAS it* 5  7 . 3  ,  QQF  C(  1 )  , FLKRR(  I FL)  ,  HPRERR(  IFL) 

23  3  FORiL\T(  15A,I3,2X,4(F10.4f2X)) 

249  t F(AnS( FLERK( IFL) ) . LT.0 .01 )COTO  253 
1 F ( ASWASH . LT . SWASH / 3  7 . 3 ) GOTO  256 
263  FORMAT (/ ,  15X,  “***  CAUTION  ***-FLOW  DEMAND  EXCEEDS  PUMP', 

I'  CAPABILITY  AT  THIS  RPM',/) 

248  CONTINUE 

I F ( I FL . E  0 • 1 . AN  0 . KI NTR  P . LT . 1 ) GO  TO  2  6  6 
IF( FLERR( IFL)/FLERK( IFL- I) .GT . D.O)GOTO  26b 
262  UPRESS*itPREKI((  IFL)-(itPRLRK(  IFL)-11PREKR(  IFL-1)  )* 

I FLLKK( IFL) / <  FLERR( IFL) -FLEKK( I FL-I ) ) 

IF(tlPRLSS.LT.U.0)HPRESS“0.0 
E I  NT KP=  KI  NT  RP+ 1 
GufO  234 

2ob  I F ( i^wFC ( I )  .  LT . QO V 3 ) GO  TO  268 

up;<ess=*pklss 

GO  fU  23^ 

268  ;iP;\EbS*  .  5U*HPRESS 
GOTO  2  0  4 
236  CONTINUE 

1F( KI NTkP-1 ) 239 , 258 ,256 
25 9  1F\ IFL.  Ft). i)GOfO  23/ 

I F  ( F  L  E  R  R  (  I F  L  )  /  F  L  E  R  R  ( I F  l  - 1 )  .  GT .  0 . 0  )  GO  TO  2  5  7 
2  58  ASNASit=ASWERR(  IFL)-(  ASWE'<R(  IFL)-ASWERR(  IFL-1 )  )* 

1  FLERR(  I  FL)/'  (  FLE  RR(  IFL)-FLEKR(  IFL- 1 )  ) 

XINTRP=KiNTRP+] 

GOTO  254 

257  DSWKRR-(SWAS;t-SWASU*(omXY-(()ZERO+AiiS(FLERR(IFL)))) 
i  /  (  Q.  1AXY-QZERO  )  ) / 5  7 . 3 
IF( AHS( DSWERR)*37 . 3 . LT .0 .001 )GOTO  255 
ASWASil=ASWASil-USWERK*FLiiKK(IFL)/ABS(FLEKK(IFL)  ) 

254  1FL*IFL+1 

IF(IFL.GT.iO)  STOP  2002 
IF  ( ASWASit .  GE. SWASH/ 5 7 . 3)GOTO  179 
GOTO  178 
C 

G  COMPUTE  HARMONIC  FLOWS  FROM  FOURIER  ANALYSIS 

c 

233  DO  260  I-l.NHARM 

FOKI.RK)  =*  CitPLX(()OFC(l+l) ,  <)0FS(I+1)) 

200  CONTINUE 
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4 . 7  SECTION  6  -  OUTLET  PRESSURE  -  FLOW  BALANCE  CALCULATION 

Section  6  estimates  pump  internal  impedance  and  the  complex  outlet,  piessure 
based  on  the  system  load  impedance  and  complex  dynamic  pump  flow. 

4.7.1  Math  Model  -  The  pump  is  modeled  as  an  alternating  flow  source  in 
parallel  with  a  shunt  impedance.  The  load  5een  by  the  flow  source  consists 
of  the  system  load  impedance  for  the  harmonic  of  interest,  ZIP(I),  and  its 
own  parallel  shunt  impedance,  ZO. 

The  first  calculation  of  dynamic  flow  assumes  that  dynamic  pressure 
equals  zero.  This  flow  value,  FQ1(I,1),  is  used  with  the  circuit  impedance, 

ZIP(I),  to  produce  a  test  value  for  dynamic  pressure,  PQl(I,l),  as  shown  in 
equation  (1). 

PQ1(I, 1)  -  FQ1 ( I , 1 ) *Z IP( I)  (1) 


Time  dependent  pressure  values  are  calculated  in  Section  7  and  are  then 
used  in  Section  4  to  calculate  time  dependent  flow  for  KK  =  2.  The  value  of 
dynamic  flow  that  results  from  Fourier  Analysis  is  used  to  define  shunt 
impedance  and  flow,  ZO  and  QSHUNT(l),  respectively,  in  accordance  with 
equations  (2)  and  (3). 


pQia>D _ 

FQl (1,2) -FQ1 (1,1) 


(2) 


QSHUNT(l)  = 


(3) 


A  second  test  value  for  dynamic  pressure  equal  to  one-half  PQ1(I,1)  is 
used  to  produce  a  third  dynamic  flow  value,  FQl (I, 3).  Shunt  impedance  and  flow 
values  (RE  and  QSHUNT(2),  respectively)  are  calculated  for  this  set  of  dynamic 
flow  and  pressure  conditions. 
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A  Norton  equivalent  electrical  circuit  analogy  is  used  to  calculate  dynamic 
pressure  for  the  pump/circuit  model.  For  a  given  circuit  consisting  of  a  current 
source  and  impedance,  an  equivalent  circuit  may  be  constructed  such  that  the 
potential,  Ec,  across  the  impedances  may  be  determined  by: 

E0  =  Al  *  R°  *  Re  (*) 

Ry  +  Re 

where  AI  is  the  current  difference 

R0  is  the  impedance  of  the  original  circuit 
Rt,  is  the  impedance  of  the  equivalent  circuit 

Applying  the  analogy  to  the  computed  shunt  impedance  and  flow  values  for 
the  pump  results  in  the  following  definition  of  dynamic  pressure: 

PQ1(1,3)  =  (QSHUNT(l)  +  QSHUNT(2))*  ■  (5) 

The  entire  process  is  repeated  for  each  harmonic  through  the  harmonic 
of  interest. 

4.7.2  Assumptions  -  The  pump  is  assumed  to  behave  as  an  acoustic  flow  source 
with  a  parallel  shunt  impedance. 

4.7.3  Computation  Method  -  Electrical  network  analogy  based  on  a  Norton 
equivalent  circuit  is  used  to  calculate  pump  internal  impedance. 

4.7.4  Approximations  -  None 

4.7.5  L imitat ions  -  None . 

4.7.6  Variable  Names  -  See  paragraph  4.1.6. 
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A.  7.  7 


Section  6  -  Pressure  Flow  Balance  -  Listing 


4 


Slid  ION  6  -  OUTLET  PRESSURE-FLOW  BALANCE  CALCULATION 


270  CONTINUE 
I-K1CN 

IF (KK-2 >280,290, 300 
280  CONTINUE 

PQl(I,l)-Fgi(I,l)*ZIP<I) 

P3-PQI(I,1) 

GOTO  320 
290  CONTINUE 

ZO-PQl ( 1 ,1 ) / ( FQl  ( 1 , 2 ) —  F t J 1 < I ,  I )  ) 

ZE-Z0*Z1P( I)/(Z0+ZIP( I) ) 

QSHUNT<1)»PQ1(I,1)/Z0 

Pgl(l,2)»Pgl(I,l)*0.5 

P3-1»Q1(I,2) 

GOTO  320 
3u0  CONTINUE 
J-KKN 

RE»Pgl(J ,2)/(Fgi(J ,3)-FQl(J ,1)) 

ZZ=R£*Z1P(J)/(RE+Z1P(J>) 

QSHUNT(2)-Pgl(J,2)/RE 

pgl ( J , 3 )-( gsaUNT( 1 )+QSHUNT( 2 ) )*Z0*RE/ ( ZO+RE) 

TF( IOPT(4) .NE.4)G0T0  310 
WRITE(6,322)KK,RE,ZIP(J),ZE 
310  CONTINUE 
KKN-KKN+1 

I F ( KK.N . GT . N  HARM )GOTO  335 
KK-1 

FQl(KKN,l)**FQl(KKN,3) 

GOTO  270 
320  CONTINUE 

IF( I0PT(4> .NE.4)G0T0  325 

1F(RK.EQ. 1)WR1TE( 6, 269 )ASWASH* 57.3, QOVB, PRESS, QMAXY.QMAX1Y 
26'i  FORMAT  (// ,  1  OX,'****  FLOW  CALCULATION  OAT  A  ****',//, 

+10X, 'SWASH  ANGLE' ,5X,'“' ,F10.4,'  DEG',/, 

+1UX, 'FLOW  DEMaND' ,5X, '*' ,F 10 . 4 , '  CIS',/, 

+10X , 'FLOW  CAPABILITY  ',/, 

+1 3X , 'AT' ,F6 .0, '  PSI  *' , F 10 . 4 , '  CIS',/, 

+14X,  'AT  Zc.RO  PSI  *' , F10.4 , '  CIS') 
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4.8  SECTION  7  -  RECONSTRUCT  TIME  DEPENDENT  OUTLET  PRESSURE 


Section  7  computes  the  time  dependent  output  pressure  from  each  estimate 
of  complex  dynamic  output  pressure  (Section  6).  Complex  pump  output  balanced 
flow  and  pressure  are  stored  for  returning  to  the  main  program.  If  inlet 
analysis  is  not  required,  control  is  returned  to  the  main  program. 

4.8.1  Math  Model  -  The  array  PPTt  )  is  used  to  store  80  values  of  time  de¬ 
pendent  pressure  for  the  pump  cycle  period.  The  array  values  are  corrected  with 
each  test  pressure  and  harmonic  so  that  PPT(  )  contains  the  total  of  the  balanced 
pressures  for  each  harmonic  through  the  selected  harmonic. 

Each  PPT{  )  value  consists  of  the  amplitudes  of  the  last  complex  dynamic- 
pressure,  P3,  by  the  relationship: 

PPT (  )  =  REAL(P3)  *  COS (THETA)  + 

(1) 


AIMAG(P3)  *  SIN  (THETA) 


Where  THETA  is  the  time  dependent  cycle  position  for  each  increment  of 
a  2R  cycle  period  in  multiples  of  the  harmonic  number. 

PPT (  )  is  initialized  to  zero  for  each  RPM. 

The  inlet  code  number  NINLT  is  tested  when  dynamic  balancing  is  complete; 
i.e.,  KK  “  3  and  I  =  the  harmonic  number  of  interest.  If  inlet  analysis  is  not 
required  (NINLT.  EQ.  (21),  control  passes  to  the  end  of  Section  13  where  the 
values  of  P(l)  and  t|(l)  are  returned  to  the  main  program.  If  (NINLT.  NE.  121) 
program  execution  continues  with  Section  8. 

Representative  values  of  the  P(l)  and  Q(i)  waveforms  are  shown  in  Figure 


4-13. 

4.8.2  Assumptions  -  Time  dependent  outlet  pressure  may  be  described  as  the 
sum  of  the  COSINE  and  SINE  amplitude  of  complex  dynamic  pressure  determined  in 
Section  6. 


4.8.3  Computation  Method  -  Not  applicable. 
4.0.4  Approximat ions  -  None. 

4.8.5  Limitations  -  None . 

4.8.6  Variable  Names  -  See  paragraph  4.1.6. 
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4.8.7 


Section  7  -  Reconstruct  Time  Dependent  Pressure  -  Listing 


C 

C  SECTION  7  -  RECONSTRUCT  TIME  DEPENDENT  OUTLET  PRESSURE 
C 

3 23  CONTINUE 

rilECON=2.*Pl/80. 

DO  330  Ja 1 , 8 1 
TnETA*(J-l )*I*TMECON 

PPT(  J )-KEAL(  P3)*C0S(  1'flETA )  +AIMaG( P3 ) *S IN( THETA) 

1F(PPT(  J)  .LT.-HPRESS)PPT(J)— ilPRESS 
3'30  CONTINUE 

1F( I0PT(4) . NE.4)C0T0  332 
IF(KK.EQ. l)WRITE(b ,321) 

321  FORMAT(//,10X,'****  OUTLET  IMPEDANCE  VALUES  ****',//, 
+5X,'KK'  ,6X,'REAL  ZO' , 5X , ' IMAG  ZO  REAL  ZIP(l)  1MAC  Z1P(I)', 
+4X,'REAL  ZE',5X,'IMAG  ZE ",/) 

I E( KR.EQ . 1 )GOTO  332 
WRITE  (6 ,322)Kl<>ZO,ZIP(I)  ,ZE 

322  EOKi'IAT( 3X ,  13 , 2X, 6(F10.4 ,2X) ) 

332  CONTINUE 

KK-KK+l 
GOTO  170 
335  CONTINUE 
C  DO  337  N-J.3 

C  WRITE( 6 . 334)N ,FQl (  NHARM,  N)  ,  P(^l  (NHARM  ,N)  ,CAJ1S(  FQ1  (  NHARM, N) )  , 
C  +CArtS( PQl ( NHARM , N) ) 

C  334  FORi'LAT(/  , 5X ,  13 , 6(2X , F10.4 )  ) 

C  337  CONTINUE 

Q(l)-0.0001*(1. ,0.0) 

IE(0OVB. LE . QMAXIY)Q( 1 )“PQ) ( NHARM , 3 )/ZIP(NUARM) 
P(1)«0.0001*(Q.0,1.) 

IF  (  QOViJ .  LE .  yilAXI  K  )  P(  1  )«PQ1  {  NHARM ,  3  ) 

IF(NINLT.EQ.121)GOTO  1900 
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4.9  SECTION  8  -  PISTON  DECOMPRESSION  CALCULATION 


« 


The  calculation  of  piston  pressures  during  decompression  is  identical  to 
the  precompression  calculation  described  in  Section  3.  Valve  area  index  numbers 
for  the  decompression  portion  of  cylinder  block  rotation  are  used  (NDEG  =  NPRCL+1 
TO  NSUSOP) . 

4.9.1  Section  8  -  Piston  Decompression  Calculation  -  Listing 

C 

C  SECTION  8-  PISTON  DECOMPRESSION  CALCULATION 
C 

IF(0OVB . GT.OMAXI f)GOTO  340 
NDEG-NPRCL 

THETA-(NDFU/2 .-G.5)/57 .3 
XLAST-SSA*SI  N( THETA )  -SA*C0 S(  THETA ) 

360  NDEG-NDEG+1 

THETA=( NDEG/ 2 . “0 . 5 ) / 5  7 . 3 
XNEW-S SA*SI N( THETA )-SA*COS( THETA ) 

DVOL*  (XNEN-XLAS'i  )*PIA 

VA=POVOL-XLAST*PlA 

NSTAKT-NDEG-1 

bULKP=iiULK+12  .  *(  PI SPR(NSTAKT) -PRESS) 

PiSPR(NJEU)-PlSPR(NSTART)+bULKP*DVOL/VA 
DLEAK-( PI SPK( NDEG) -CPRESS ) *PLKAK*DT 

IF (PI S PR ( NDEG) . LT .  CPKECS)  DLEAK-St)RT(  CPRESS— PIS  PR(  NDEG) )* 
lSLEAK*D'l 

V ALEAK- POVOL~XNEW*PIA 

SULK P-bULK+12 . *(PISPR( NDEG) “PRESS) 

DPLEAK-il!JLKP*uLEAK/VALKAK 
P I S  PR ( NDEG ) - P I S  PR ( NDEG ) -DPLEAK 
1E( PISPR( NDEG ) . Of .0.01 )GOTO  3o3 
CAVOL-CAVOL— DVOL+DLEAK 
PI  SPR(  NDEG)  =“0.01 
GOTO  920 
363  CAVOL-O.O 
920  XLAST-XNEW 

I F ( I OPT ( 3 ) . NE • 5 )GOTO  930 
IE(Y.NE.Y0PT(3))G0T0  930 
IF( NDEG. Eg. NPRCL+1) WKITE(6, 922) 

922  FOKiiAT( '  1'  , 10X , '*-**  DECOMPRESSION  PRESSURES  ****',//, 

+5X,'NDEG  THETA  PISTON'  ,8X  'BULK'  ,7X  ,  'CAVOL  PISPR(NDEG)' ,/ , 

+19X, 'POSITION  MODULUS',/) 

NRITE( 6 , 924 ) NDEG .THETA* 57 .  3 ,XNEW ,bULKP ,CAVOL, PISPR( NDEG) 

924  P0KMAT(5X , 14 ,2X , F5. I , 2X , F10.6 , 2X.F10.2 ,2X,F10 .6 ,2X,F10.4 ) 

930  IF  (NDEG .  E()  .NSUSOP  )  GOTO  1000 
GOTO  360 

iooo  continue 

CAV OLD- CAVOL 
DO  1050  N-1,81 
PPi(N)-0.0 
1050  CONTINUE 
KKN- 1 
KK-1 

1100  CONTINUE 
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4.10  SECTION  9  -  PUMP  INLET  FLOW  CALCULATION 

Pump  inlet  flow  is  calculated  in  the  same  manner  as  described  in  Section  4 
for  outlet  flow.  Flow  values  for  each  piston  that  is  exposed  to  the  suction  slot 
are  calculated  in  1/2 “increments  of  cylinder  block  rotation.  The  flow  contribution 
of  all  active  pistons  is  summed  to  define  the  time  dependent  inlet  flow  waveform 
QQI(  )  for  the  pump. 

The  inlet  code  number  is  tested  at  the  end  of  Section  9.  If  inlet  analysis 
is  not  required  (NINLT.  NE.  123) ,  control  passes  to  Section  13  where  swashplate 
torques  are  calculated.  If  (NINLT.  EQ.  123)  program  execution  continues  with 
Section  10. 


348 


« 


4.10.1  Section  9  -  Pump  Inlet  Flow  Calculation  -  Listing 
C 

C  SECTION  9-  PUMP  INLET  FLOW  CALCULATION 
C 

CAVOL-CAVOLD 
00  1150  N-1,81 
QQI(N)=»0.0 

1150  CONTINUE 
NUEONSUSOP 

T  HETA“  (  NDEG/  2 .  -0 . 5  )  /  5  7 . 3 
XLAST»3  SA*SI  N  (  TriETA  ) -S A*C0S (  TriETA) 

NKil=0 

QIN-0.0 

QEST-QIN 

CD=0 .65 

NbEG»NSUSOP+l 

DO  1400  NDEG=NbEG , NSUCL 

NKM-NKM+1 

IF(NKM.EQ.81)NKi>i«l 
TriETA»(NDEG/2.-0.5)/57.3 
XNEW-SSA*SIN( TriETA) -SA*C03 ( THETA) 

DX-XNEW-XLAST 

VA=P0V0L-XLAST*PIA 

XLAST-XNEW 

Q.'1ECH-QMHAX*C0S  (  TriETA-  XANG  ) 

IF(CAVOL.GT.O.O)GOTO  1370 
bULKP=“bULK+l  2 .  *(PISPR(NDEG— 1  ) -PRESS) 

LEAK-SLEAK 

IF( P1SPR(NDEG-1 ) .GE.C PRESS )LEAK*PLEAK 
LK 1  - 1 .  /  (  (  V A/  (  bU  LK  P*U T  )  )  -  LK  AX  ) 

LX2*"0iiECri+VA*PiSPK(NDEG“I )  /  (  BULKP*DT)— CPRESS*LEAK 

LK3-2.*((CU*VAREA(NUEG))**2)/RHO 

0Ei)UAT»l . 

ITER-1 

1151  CONTINUE 

PTKlAL(ITER)-()EST*AbS(QE3T)/LK3+ 

1(LPKESS+PPI(NKM) ) 

QTK1AL(1TEK)-LIC2-PTRIAL(1TEK)/LK1 
IF( ITER. LE. 2) GOTO  1152 
IF( ITER.GT .3)G0T0  1153 
IF(QTriIAL(  ITER)  .LE.QTRIAL(  ITF.K-l) 

+.AND . QTRIAL( ITEk) .GE ,QTR1AL( ITEK-2 ) 

-KOK .  QTRlAL(  ITER)  .  LE .  1)TR1AL(  ITER-2  ) 

+.AND. oTrilAL( ITER) .GE.^TK1AL( ITER-1 ) )G0T0  1 153 
QEi)UAT-2. 

I  TER- 1 
QEST-OOUT 
1154  CONTINUE 

PTRl  AL(  ITE»<)"LK1*(LK2-QEST) 

OTKI AL( ITER)-SyKT( LK3*AHS( PTKlAL( I TER)”( LPRESS+PP 1 ( NKM) ) ) ) 

1F(  PTK  IAL(  I  TER  )  .  LT.  (LPRESS+PPI  (  NIC!)  )  )()TK1AL(  ITER)— QT!<IaL(  ITER) 
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4.10.1  (Continued) 


IF( ITER.EQ .  1 ) GOTO  1152 
1 15  J  CONTINUE 

QITERR=»/.US(QTRIAL(  ITER)-QTRIAL(  ITER-1)) 

IF(QTRlAL( ITER-1) .NE.O.O)QlTERK=ABS(QlTEkR/qTRIAL( ITER-1)) 
IF(qiTERR.LT.0.O05)G0TO  1380 
1152  CONTINUE 

QEST«(qTRIAL(lTER)+QEST)/2. 

I F( IT  EK . LT . 3 )QEST=QTKIAL( ITER) 

IF( ITER.EQ. 10)GOTO  1380 
ITER-ITEK+1 

1  F( QEQUAT . E.i) . 2  .  ) GOTO  1154 
GOTO  1151 
1370  CONTINUE 

LEaK=SLEAK 

1)  I  N=-  (  CD*  V  ARE  A(  N  DEG  )  * 

+SqRT(2.*(LPRESS+PPl(NKM))/RHO)) 

PISPR(NDEG)=*0.01 

CaVOL=CAVOL-DX*PIA+SLEAK*UT*CPRESS+QIN*DT 
1 F  (  CAVOL .  LE  .  0 . 0  ) CAVOL-O . 0 
1380  CONTINUE 

QIN=QTRIAL( ITER) 

PI SPR (  N'UEG ) “PTR1AL (  ITER) 

QEST-Q1N 

QQ  I  (  NKM )  »QI  N+QQI(  NKM  ) 

IF( IOPT(b) .NE.6)G0T0  1400 
IF( Y . NE . YOPT( 4 ) )GOTO  1400 
I F ( NUEG .EQ . N8EG) WRITE( 6,1372) 

1372  FORMAT( ' 1 ' , 10X , "****  INLET  FLOW  VALUES  ****',//, 

+5X/KK  NKM  NUEG  THETA  PISTON' ,6X PISTON' ,8X , 'QIN' , 

+6X ,  'qi)I (  NKM )  '  , 6X , ' CAVOL'  ,  5X  ,  ' PISPR(NI)EG )  '  ,  /  , 

+26X, 'POSITION' ,6X, 'FLOW' ,/) 

WRITE( 6 , 1 374 )KK , NKM , NUEG , THETA* 57.3, XNEW ,QMECH , QIN ,qql( NKM) , 

+CAVOL , PISPR( NDEG) 

1374  FORMAT ( 5X ,I2,1X,I3,1X,I4,2X,F5.1,2X,F10.6,2X,3(F10.4,2X),F10.6,2X, 
+F10.4) 

1400  CONTINUE 

QQl(tfl)-QQKl) 

IF(NINLT.Eq.l22)  GO  TO  350 


350 


« 


4 . 1 1  SECTION  10  -  FOURIER  ANALYSIS  OF  PUMP  INLET  FLOW 

The  pump  inlet  flow  is  mathematically  analyzed  as  described  in  Section  5 
(for  outlet  flow),  except  that  steady  state  balancing  is  not  performed. 


4.11.1  Section  10  -  Fourier  Analysis  of  Pump  Inlet  Flow  -  Listing 
C 

C  SECTION  lu-  FOUIUEiI  ANALYSIS  OF  PUMP  INLET  FLOW 

C 

AN=3bO./PISTNO 
N=AN+ .0001 

C0EF=2 .0/(2. 0*AN+I .0) 

C1=PI*C0EF 
Si  =SIN(C1) 

Cl  =COS(Cl) 

S  =0.0 
C  *  i  .  0 
FNTZ-QQI(l) 

J  =1 

1610  U2=U.O 
Ul-0.0 
I=2*N+1 

C  FORM  FOURIER  COEFFICIENTS  RECURSIVELY 

lt>20  U0=Qgi(I)+2.0*C*L'l-U2 
U2=U  l 
U1=U0 
1=1-1 

1F(I-1)  1630, lb30,. 1620 
1630  QIFC(J)=C0EF*(FNT2+C*U1-U2) 

QIFS( J)=COEF*S*Ul 
IF(J-NUAkM-I)  1640,1650,1650 
1640  U3=C1*C-S1*S 
S  =Cl*S+Sl*C 
C  =L'3 
J  =  J+l 
GO  TO  1610 

1650  glFC(l)=0IFC(l)*.5 

1F( 10PT(4) . NE . 4 .OR . KK.NE . 1 )GOTO  1655 
WRITh( 6 , 1652 )QIFC( 1 ) 

1652  F0RMaT(//,10X,'***  STEADY  STATE  JNLET  FLOW-' ,F10.4 , '  CIS  ***',//) 
C 

C  COMPUTE  HARMONIC  FLOWS  FROM  FOURIER  ANALYSIS 

C 

16  35  00  IbbU  l-l,NdAKM 

Fgll(i.KR)-  CMPLX(giFC(i+l),  QIFS ( 1+1 ) ) 

166U  CONTINUE 
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4.12  SECTION  11  -  INLET  PRESSURE-FLOW  BALANCE  CALCULATION 

Pump  inlet  flow  is  dynamically  balanced  in  the  manner  described  in  Section  6. 


4.12.1  Section  11  -  Inlet  Pressure  Flow  Balance  Calculation  -  Listing 


C 

C  SECTION  11-  INLET  PRESSURE-PLOW  BALANCE  CALCULATION 

C 

lt>70  CONTINUE 
I  =  KKN 

IF  (KK  -  2)  1680,1690,1700 
1680  CONTINUE 

PQ1I( 1 , 1  )**FQ1I( I , 1 )*ZAP( I) 

P3«Pgl 1(1,1) 

GO  TO  1720 
1690  CONTINUE 

20  -  PQ11(1 ,1)  /(FQ1I(I,2 )-FQlI( 1 , 1 )  ) 

ZE»Z0*ZAP( I ) / ( Z(HZAP( I ) ) 

QSUUNT(1)-PQ1I(I,1)/Z0 
PQ1 I( I ,2 )=PQ1 I( I , 1 )*0. 5 
P3=PglI(I,2) 

GO  TO  1720 
1700  CONTINUE 
J-KKN 

RE*PQ1 I(J,2)/(FQ1I(J,3)-FQ1I(J,1)) 
ZE»RE*ZAP(J)/(RE+ZAP(J)) 

0SilUNT(2)»PylI(J,2)/RE 

PQlI(J,3)-(QSilUNT(l)+gSllUNT(2))*ZO*RE/(ZO+RE> 
IE(10PT(4).NE.4)GOTO  1710 
WRITE(6,1734)KK,RE,ZAP(J) ,ZE 
1710  CONTINUE 

KKN  -  KKN  +  1 

IF(KKW .GT . NilARM)  GO  TO  340 
KK  -  1 

FQl I (KKN , 1 )  -  FQi i(KKN , 3 ) 

GO  TO  16 7U 
1720  CONTINUE 


r 

* 
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4.13  SECTION  12  -  RECONSTRUCTION  OF  TIME  DEPENDENT  INLET  PRESSURE 

Pump  inlet  time  dependent  pressure  is  reconstructed  as  described  in 
Section  7.  Balanced  inlet  flow  and  pressure  are  stored  for  return  to  tne 
main  program. 


4.13.1  Section  12  -  Reconstruct  Time  Dependent  Inlet  Pressure  -  Listing 

C 

C  SECTION  12-  RECONSTRUCTION  OF  TIME  DEPENDENT  INLET  PRESSURE 
C 

DO  1730  J=i ,81 
THETA-  (J-1)*THEC0N 

PPI(J)  -PPI(J)  +  REAL(P3)*  COS(THETA)  +AIMAG(P3)*  SIN(THETA) 
IF(PPI(J) .LT.-LPRESS)  PPI( J)=- LPRESS 
1730  CONTINUE 

IF(I0PT(4) . NE.4)G0T0  1735 
IF(KK.Eg.l)WRITK(6,1732) 

1732  FORMAT (/ / , 10X, '****  INLET  IMPEDANCE  VALUES  ****',//, 

+5X,'KK'  ,  ,6X,'REAL  ZO' ,  5X  , 'I.1AG  ZQ  REAL  ZAP(I)  IMAG  ZAP(I)', 

+4X ,  'REAL  ZE',5X,'I>1AG  ZV.'J) 

IF(KK.EQ.1)GOTO  1735 

WRIT E ( b , 1734 )KK,Z0 , ZAP( I )  ,ZE 

1 7 34  FORMAT( 5X , 12 , 3X, G(f 10 . 4 , 2X) ) 

1735  KK  =  KK  +  1 
CO  TO  1100 

340  CONTINUE 

0(NiNLT)-0.0001*(l. ,0.U) 

1 F  1 00 V 3 .  Lt; .  OMAX I Y  ) Q(  N 1 NLT  ) - PtJ  1 1  (  N HARM ,  3  ) / ZA P (  N HARM ) 

P(NlnLD-0. 0001* (0.0,1 .  ) 

1 F (  QO VU  .  LE .  Oi UX I Y ) P( NINLT) -P^l I ( N  HARM , 3 ) 

<00  CONTINUE 
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4 . 14  SECTION  13  -  TORQUE  CALCULATION 

This  section  calculates  the  average  torque  acting  on  the  swashplate. 
These  include  torques  due  to  spring  force,  piston  mass  acceleration  forces, 
and  piston  pressure  forces.  Certain  pump  variables  are  pre-defined  for  out¬ 
put  plotting,  if  desired.  These  include  swashangle,  pre-compression  mis¬ 
match,  piston  pressure  at  the  start  of  de-compression,  cavitation  volume, 
de-compression  mismatch,  piston  pressure  at  the  start  of  pre-compression, 
actuator  pressure  due  to  spring  force,  and  total  actuator  pressure. 

4.14.1  Math  Model  -  The  lever  arm  (ACTLEV)  of  the  swashplate  actuator  is 
estimated  based  on  actual  pump  geometry  as  a  linear  function  of  swashangle. 

ACTLEV  =  ACTLEVO  +  ASWASH*1.428  (1) 

The  swashangle  is  inversely  proportion  to  pump  speed  for  constant  flow.  This 
must  be  changed  to  suit  the  particular  pump  being  modeled,  since  it  is  not 
derived  from  input  data. 

The  swashplate  torque  due  to  piston  acceleration  is  the  sum  of  torques 
due  to  inertial  forces  in  the  variable  and  steady  state  motion  planes: 


TORQAC  =  Tv  +  TRQACR  (2) 

where  Tv  =  Fv  *  T0RQ1  (3) 

Tv  =  M  *  a  *  T0RQ1  (4) 

Tv  =  PIMASS  *  a  *  T0RQ1 .  (5) 


The  piston  force  moment  arm  at  each  increment  of  piston  position  (shaft 
rotation  angle)  is 

T0RQ1  -  RBORC*Cos(AT)  +  HOFF  (6) 

For  simple  harmonic  motion,  piston  acceleration  is 

a  -  DY  *  w2  *  Cos (AT) .  (7) 
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I' is  ton  motion  maximum  amplitude  is 


DY  --  ( RBORC  +  KOFF)  (DISAM  -  DISACT) /ACTLEV  (8) 

for  shaft  rotation  angles  from 

[ 3tt/2  -  SIN"1  (HOFF/RBORC))  to  [ tt / 2  +  SIN"1  (HOFF/RBORC)  ] 
and  DY  =  (RBORC  -  HOFF)  (DISAM  -  DISACT) /ACTLEV 
for  shaft  rotation  angles  from 

fs/2  +  E IN  1  (HOFF/RBORC)]  to  [3tt/2  -  SIN_1  (HOFF/RBORC)], 
where  (DISAM  -  DISACT) /ACTLEV  =  TAN(ASWASH). 

The  shaft  rotation  frequency  (W)  as  a  function  of  pumping  frequency  is 
w  =  Ytt/30.  or 

(9) 

w  =  W/PISTNO 

Inertial  piston  torque  due  to  the  steady  state  swashplate  angle  is 

TRQACR  =  PIMASS  *  A£  *  TORQ1 
2 

where  A^  =  w  *  SSA  *  SIN(AT) 

Therefore, 

TRQACR  =  -w2  *  SSA  *  SIN(AT)  *  PIMASS  *  TORQ1 .  (10) 

Substituting  (41)  and  (42)  into  (40),  and  then  into  (38)  gives 
Tv  =  ( (Y *n/30.  )•<*'»* (RBORC  +  HOFF)*(DISAM  -  DISACT) 

*C0S(AT) /ACTLEV) *PIMASS*T0RQ1  ( 

Substituting  (10)  and  (11)  into  (2)  yields  the  total  piston  acceleration 
torque  on  the  swashplate  at  any  piston  position 
SwashpLate  torque  due  to  piston  pressure  is 
TORQI’R  =  PISPR(NKM)  *  F  (A  *  TORQ1 . 

Total  swashplate  torque  due  to  piston  pressure  and  acceleration  is  then 
TORO  =  TORQAC  +  TORQPR 

The  torque  at  each  lnc?«iuent  of  sha^t  angle  is  then  summed .  divided  by 
the  number  of  calculation  points,  and  multiplied  by  the  number  of  pistons 
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to  obtain  total  average  torque  (TORTAV); 

TORQSU  =  TORQSU  +  TORQ 
TORTAV  -  T0RQSU/ND9  *  PISTNO 

4.14.2  Assumptions  -  Swashplate  actuator  lever  arm  is  assumed  to  vary 
linearly  with  swashangle. 

4.14.3  Computation  Method  -  Not  applicable. 

4.14.4  Approximations  -  None. 

4.14.5  Limitations  -  Unknown. 

4.14.6  Variable  Names  -  See  Paragraph  4.1.6. 


(12) 
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4.14.7  Section  13  -  Torque  Calculations  -  Listing 


C 

C  SECTION  13  -  TORQUE  CALCULATION 

C 

AC  TLEV=ACTLEV0+AS'NASH*1 .428 

TRQACS-0.0 

TORQSU-O.O 

T0RQPS=0.0 

TOROAS-U.C 

ATOFF»ASIN(riOFF/RBORC) 

VrPR»0.5*PI+AT0FF 
aTSU=1.5*PI-ATOFF 
U 1SACT=D  ISAil-ACTLEV*TAN  (  A  SWaS  I  i ) 

00  1310  li=  1 ,  NOP  1ST 
00  1820  N«l,80 
NKM=NSUCL+N+(M-1 )*80 
1F(NIC1  .GK .  Nuy+1 )  NKfl-NKO  -NL>9 
AT=(NKil-l)*AlNC/57 .3 
TOKO  1  =R80RC*C0S  (  AT  )  +IIOF  F 
TORO  PR=P  I SPR  (  NKivl)*PIA*TOK0 1 

TRQAGR“~(  (Y*PI/30.  )**2*SSA*SIN(AT)*PlivlASS*T0i<Ql ) 
IF(AT.GE.ATSU.OR.AT.LE.ATPR)  GO  TO  1830 
TORQAC-(  (Y*P1/30.)**2*(KS0RC-HOFF)*(DISac1-01SACT) 
+COS( AT)/ACTLKV  )*PI;TASS*TOR0l+TRQACK 
GO  TO  1860 

1830  TORQAC=(  (W/j>IST.\:O)**2*(R8OKG+UUFF)*(0ISAM-0ISACT) 
+COS(Al  )  /  A  CT  LE  V  )  *  P  I.'iA  S  S  *  TO  RQ  l  +T  :<Q  A  C  K 
I8o0  TO  K  0 = TO  RQ  P  K+TU  KQ AC 
TORi)SU=TOKOSU+TORO 
TORO  PS^TOKQPS+TORQPR 
TO  RQAS “TO  RQA  S+TUKQ AC 
TRQACS-TKOACS+TRQACR 
1820  CONTINUE 
1810  CONTINUE 

T0KTAV“T0KQSU/N1)9*P1STN0 
TORPAV=roR0PS/NOy*PISTNO 
n J  R A A V - TO K  0 AS / N  U  y  *  P i J  T N  0 
TiG\CAV-TK0ACS/NDy*PISTNO 
IF(10PT(4).NE.4)G0TU  187U 

WRITE(t) ,  18 yu )  TUKPrtV ,  TRACAV ,  TORaAV  ,  TOKTAV 
l8yo  FOKOAi(//,10X,'****  TOKOUE  VALUES  ****',//, 

+3X,  'AVERAGE  TOTAL  TORQUE',/, 

+5X,'I>UL  TO  PISTON  PRESSURE  »',F12.2,'  IN-LB',/, 

+  DX  ,'AVEKaGR  TOKOUE  OUE  TO',/, 

F16X, 'CROSS  ANGLE  «',F12.t>,'  IN-LB',/, 

+5X  ,  'AVERAGE  TOTAL  TOKOUE',/, 

+6X , 'OUE  TO  PISTON  INERTIA  -'.F12.2,'  IN-LH' ,/ , 
+3X, 'TOTAL  AVERAGE.  TOKOUE  «',F12.2,'  IN-L8',/) 
1870  CONTINUE 

1880  Q( 37 )»CMPLX( ASWASH*57 .3,0.0/ 

0(  38)“C.'1PLX(  (  PlSPR(NPKSOP)-ilPXESS)  ,0.0) 
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4.14.7  (Conrinued) 


Q( 39 )=Ci-lPLX( P1SPR( NPRCL) ,0.0) 
Q(4U)=CNPLX(CAV0LD*1000.  ,0.0) 

P(  37 )“CMPLX( ( P 1 3P K( NSUSOP )-LPRESS) ,0.0) 
P( 39  )=CiiPLX( PISPR(NEUCL) ,0.0) 

P S PO (  1 50  .  -ASWAS li* 400 .  )  /  ARACT 
P  ACT  U-TORTAV  /  ACT  LEV/ ARACT+PSPG+C  PkE  SS 
P( 3d)=CMPLX(PSPG,0 .0) 

P ( 40) =CMPLX( PACTU ,0.0) 

1900  CONTINUE 
RETURN 
END 
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APPENDIX  B 
OUTPUT  REQUIREMENTS 

HSFR  USER  MANUAL  (AFAPL-TR-76-43  VOL.  Ill) 

2 . 4  Output  Requirement?; 

Input  data  cards  are  required  to  specify  desired  program  output  results, 
which  may  consist  of  written  and  plotted  data  (at  least  one  data  plot  must 
be  specified.) 

Output  write  options  include  listing  the  following  computed  data: 

(1)  pressure  and  suction  slot  valve  areas 

(2)  precompression  pressure  values  at  a  specified  RPM 

(3)  outlet  flow  calculation  values  at  a  specified  RPM 

(4)  flow  capability,  swash  angle/steady  state  outlet  pressure,  outlet/ 
inlet  impedance  and  torque  summary  values 

(5)  decompression  pressure  values  at  a  specified  RPM 

(6)  inlet  flow  calculation  values  at  a  specified  RPM 

(7)  element  dynamic  flow  and  pressure  values. 

Output  plot  options  include: 

(1)  half-amplitude  dynamic  flow  magnitude  vs  RPM  at  specified  elements 

(2)  half-amplitude  dynamic  pressure  magnitude  vs  RPM  at  specified  elements 

(3)  half-amplitude  impedance  magnitude  vs  RPM  at  specified  elements 

(4)  acoustic  energy  density  vs  RPM 

(5)  acoustic  energy  intensity  vs  RPM 

(6)  standing  pressure  half  wave  amplitude  between  specified  elements  of  the 
circuit  for  up  to  ten  RPM's  where  peak  pressure  exceeds  a  specified 
test  pressure 

(7)  standing  pressure  half  wave  amplitude  between  specified  elements  of 
the  circuit  at  specified  RPM's 

One  card  is  required  to  specify  the  required  output  write  options,  and 
at  least  one  card  is  required  for  each  output  plot  option.  Each  location 
(element  number)  in  the  circuit  for  which  a  plot  is  to  be  generated  must  be 
specified.  All  cards  in  the  output  grujp  must  be  in  the  order  specified. 
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One  card  is  required  to  specify  write  options.  The  write  option  data 
card  is  the  first  card  after  the  circuit  element  data.  Write  options  are 
selected  by  specifying  the  integer  corresponding  to  the  required  option  in  the 
appropriate  data  field.  If  options  2,  3,  5  &  6  are  selected,  the  pump  speed 
for  which  data  is  required  must  be  shown  in  the  example  card.  A  blank  card 
(integer  zero  in  the  first  data  field)  must  be  inserted  if  no  write  options 
are  required. 

At  least  one  card  is  required  for  each  output  plot  option  except  for  the 
standing  wave  options,  as  explained  in  paragraph  2.4.2.  The  flow  outpuc  plot 
option  card(s)  is  the  first  card  after  the  write  output  option  card.  The 
first  integer  on  the  flow  output  card  specifies  the  total  number  of  flow  plots 
required.  The  remaining  integers  identify  the  circuit  elements  for  which  the 
plots  are  to  be  produced.  Up  to  fifteen  elements  may  be  listed  on  this  card. 
If  more  than  fifteen  plots  are  required,  the  element  numbers  are  specified  on 
the  next  card,  as  shown  in  the  example. 

Output  plot  options  for  pressure,  impedance,  acoustic  energy  density 
and  acoustic  energy  intensity  are  specified  in  the  same  manner  as  for  flow 
plots.  A  blank  card  (integer  zero  in  the  first  data  field)  must  be  inserted, 
in  order,  if  output  plots  in  a  given  category  are  not  required. 
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WHITE  OPTION  DATA  CART 


CARD  NUMBER 


]  COLUMN 

FORMAT 

DATA  ! 

l-> 

15 

tor  Opt  ion  1* 

6-10 

IS 

J  for  Option  2* 

11-15 

15 

i  for  Opt  ion  3* 

16-20 

IS 

4  for  Option  -i* 

21-25 

15 

5  for  Option  5* 

26-30 

15 

6  for  Option  6* 

31-35 

15 

7  for  Option  7* 

36-45 

Fl  0. 

Speed  for  Option  2** 

46-55 

FJO. 

Speed  for  Option  3** 

mm 

F10. 

Speed  for  Option  5** 

66-75 

FJO. 

Speed  for  Option  6** 

*  Default  value  =  0 
**  Default  value  =  0.0 

NOTE:  At  least  one  graph  must  be  selected  for  plotting. 


EXAMPLE  CARD 


'■'fre. 


4 


400P. 


I 


: 


I  10  ti  if  it  14  IS  >•  I*  >1  mohtlii  (4  It  f*  It  Za  fl  »C  li  if  H  i *  KMirSNW  4>  4/  ♦»  *4  *4  *• 


3>  <1  *>  M  H  -if  SI  M  ij.  M  3.  tt 


•  :  t  *  m  .  i  i  tj 

ii  1 1  Sji » 1 1 1 


3  3  3  JIO  3  3  3  3 

M  4  4  4W  4  4  4  ( 

1  ,  *  i|i  i  t 

S  5  '  5  i;>  1  5  5  5 
S  E  {  M;l  M  i  I 

1  1  !  I  I!!  II  i  I 


>  «0  !l  If  If  >4  >•  i*  <»  It  It  CO  tl  ft 

19(1  M  III! 

12  II  l|  (V Si  I)  II  <1  Mi 


I  I  II  M  II  II 

I 

7  2?  1  ?;2  7  I  7||l  J  2  7  D2  2  2  2  2 


I  1 1  S  «  I  9  ii 

[i»  r  li .*  h|»  nil 
I  I  I  ll'l  I  II  I 


it  r«  ft  m  a  »•  <t  to  »i  ii  »i  it  ti  mi  m  M  to 

I  M  I  ll'l  I  M  l! 

|I  II  H  K  J.  J  If  lt| 

II  I  I  I'll  II  I 


i  f |gt;t a 1 1 1 1 331»;i 1 1 1 1 i||]i;i •  t  m|i)1]i;h  i  ii 


III  II  I)  14  fl|ff  II  H  II 

II  I  I  Ijl  I  II  I 

n  ni'ini  i 


|l'  II  U  M  II, 

I  1 1  1 1 


3  J  3  3  3'3  3  3  3  3||  3  3  3  a  3  3  3  3  3 

4  4  I  4  41  I  I  4  i'i  4  4  4  lit  4  I  4  ! 


7  2  i  l  III  I  ?  I  ;|?  I  ?  7  f;f  :  I  I  7 

3  3  3  3  I;1  3  3  3  3 jl  3  3  3  3T  3  3  3  1 

4  4  4  4  4'4  4  4  4  ||4  4  4  4  4]4  4  4  4  4 

•  ,1  ii  '.J'i  ■■  i  !•  ’  '«  y»  li  !t  ’ij..  »  n  m  ftj*  j’  a  it  :  4  imin  »:|u  41  n  .1  v»j 

ji  i  i  J  S  >  5  ijj  i  S  1 ! .  3  S  5  ij'j  3  3  !  Vi  S  S  S  i  i  i  5  1  ij*  i  j  i  1 

It  1 1 1  ii  c  i '  ils  1 1 1  iii  t  <  s  |!<  i  t  i  1 1  m  i  *  5  k  t|i  1 1 1 «, 

I  7  1  7  !•!  ■  ■  III  I  7  J  fl  7  I  I  HI  II  )  jll  I  M!7  I  I  1  V  3  I  I  I 

■  •  I  '  I 


3  7  7  7  7 


4  4  4  1  1 

111  II  11  *  ll 

lllli; 
o  t  ( t  i 

l  li  i  I 


(  mill  III  III  3  Ml  I  ll|4  I!  Mill  (  I  *3  4  I  ll'l  III  :!ll  I  I  fit  I  I  c'i  4  I  l3l  4  I  I  II  II  ill  II  III  3  I  ill  I  S  I  ! 

■  i  |  •  j  '  ■  j  1  ■  I  ' 

1 1  M  l|l  M  t  l|l  1 1 1  l|l  1 1 1  l|l  1 1 1  lil  1 1 1  l|l  I  •  9  l!i  M  I  III  I  1 1  lit  II  I  l|l  1 1 1  lilM  3  tin  mil  I  I  I  ill  M  I  lil  I  I  I  I 

<  I  I  .  s  i  I  I  I  4  ii  III:  If  |  it  >;  if  tf  *  II  II  H  ,t  It  :i  4  li  If  li  II  II  it  n  4  II  4  :«  4  I  i:  tl  M  If  4  ll  tl  If  II  >I  ll  li  4  11  it  1'  st  if  II  tl  .1  |1  U  tl  Is  f  tl  It  4  II  1  1  II  *1  I.  I*  I  1  II 


4  II  4  »  4] 
1 1 1 1 1 

7  7  7  7  7 


Sim  tiuttc 


l  to  U  tl  t«  Is  ft  11  It  t.  to 


I!  II  fl  ft  U|fl  U  tf  l| 

It  I  I  I'll  U  I 


II  11  11  If  i;;|  II  ft  ft  M 

I I I  nin  i  m 


3  7  7  7  2'2  7  7  7  317  3  7  3  7 '2  7  7  l  7 


J3  J  3l'3  J  3  3  3  3  3  3  3  j'  3  !3  Si3  1  5  l|'J  3  3  3  . 

I  ■  ; 

4  4  4  4  ■)!  4  4  4  4;4  4  4  4  lf|  4  4  4  4  4  4  4  4  I 

ii  i  it  si i,it  t*  -  4  iitit i  tin  mu  ■■  >i  si  ,/t  1  i  'i » 


1111  3- !  1  >11  I'l  1111 


I  i  i  6  i 

inn 


t  16  S if i  i  I  t 

i  n  n'n  i  n 


silii)iliii 

i  H ;  1. 1 1  s  i  t 

II  I  ’  ,'7  1  I  1  I 


361 


« 


2 . 4  Output  R e qu  i. reme nts  -  Con t_[_d 

First  Card 


COLUMNS 

— 

FURMAT 

DATA 

DIMENSIONS 

1  -  ') 

1  3 

Number  of  plots  for  one  category 

- 

ii-  id 

15 

Element  number  for  first  plot 

- 

1  1-i 

..  15 

1 1,-20 

I  5 

J  1-^1 

1  5 

2  6-  iO 

1  5 

il-  15 

IS 

36-40 

IS 

41-45 

1  ? 

4  tj-  ^vj 

13 

31-55 

IS 

56-60 

15 

61-65 

IS 

66-70 

15 

'  "  n  '  - 

71-75 

1  S 

\ 

/ 

76-80 

IS 

Element  number  for  fifteenth  plot 

- 

Pressure  Plots  -  First  Card  (Typical) 


1/ 
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i  ii  1 1 ;  1 1  1 1 


i  )  4  5  6  7  S  9  10  11  li?  li  14 
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Element  number  for  sixteenth  pressure  plot 


Element  number  for  seventeenth  pressure  plot 


Pressure  Plots  -  Second  Card  (Typical) 
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2.4.1  Pre-defined  Output 

Any  of  the  normal  five  plot  categories  may  be  used  to  plot  other  variables 
computed  within  the  program.  This  is  useful  for  studying  the  behavior  of  certain 
variables  as  a  function  of  pump  speed.  Normal  output  titles  are  retained  when 
making  special  plots. 

Eight  variables  associated  with  pump  performance  are  currently  pre-defined 
in  the  pump  subroutine.  Any  or  all  of  these  variables  will  be  plotted  if  they 
are  selected  in  the  normal  manner  as  described  in  2.4  above.  These  variables 
have  been  assigned  in  the  last  four  positions  of  the  flow  (Q)  and  pressure  (P) 
arrays.  The  position  and  description  of  the  pre-defined  variables  are  as 


follows . 

Assigned 

Name  and  Location 

Description 

Units 

Q  (37 ) 

Swash  plate  angle 

DEGREES 

Q(38) 

Pre-compressed  piston  pressure 
minus  steady  3tate  outlet  pressure 
(absolute  value) 

PSI 

Q  (39) 

Piston  Pressure  at  start  of  decom¬ 
pression 

PSI 

Q(40) 

Piston  cavitation  at  end  of  decom¬ 
pression 

IN3*1000 

P<37) 

Decompressed  piston  pressure  minus 
steady  state  inlet  pressure  (absolute 
valve) 

PSI 

P(38) 

Piston  cavitation  at  start  of  pre¬ 
compression 

IN3* 1000 

P(39) 

Piston  pressure  at  start  of  pre¬ 
compression 

PSI 

P(40) 

Swash  plate  torque  due  to  piston 
pressure  and  piston  acceleration  forces 

IN-LBS 

The  above  plot(s). 

if  selected  for  output,  will  plot  regardless  of 

the  number  of 

circuit  elements  in 

the  model . 
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APPENDIX  B 

STANDING  WAVE  PLOT  OPTION 
HSFR  USER  MANUAL  (AFAPL-TR-76-43  VOL  III) 

2.4.2  STANDING  WAVE  PLOT  OUTPUT  REQUIREMENTS 

The  standing  wave  plot  feature  provides  two  options  as  specified  on  card  number 
three  of  the  HSFR  data  deck.  Option  one  plots  standing  waves  at  RPM's  where  the 
peak  pressure  value  exceeds  a  user  specified  maximum  pressure  within  a  bandwidth. 

The  second  option  allows  the  programmer  to  obtain  a  standing  wave  plot  at  a  selected 
RPM. 

The  standing  wave  output  requirement  cards  immediately  follow  the  acoustic 
intensity  plot  card(s) .  One  card  is  required  for  the  first  standing  wave  option. 

The  card  contains  a  series  of  integer  values.  The  first  value  gives  the  total 
number  of  element  pairs  times  two.  The  remaining  integers  are  entered  in  pairs  and 
specify  the  beginning  and  ending  elements  for  the  section  of  the  system  in  which 
the  standing  waves  are  to  be  plotted.  (The  ending  element  need  not  be  a  K3TR 
terminating  element  type). 

When  a  section  of  the  system  contains  branched  lines,  only  the  main  section 
will  be  plotted,  provided  the  system  elements  are  numbered  according  to  the  scheme 
shown  in  Figure  2~1A.  The  user  must  separately  select  each  branch  to  be 
plotted. 

The  HSFR  program  will  print  standing  wave  plots  for  ten  RPM's.  After  ten 
a  message  will  be  printed  indicating  the  unplotted  resonant  RPM's. 

The  second  option,  which  requires  two  data  cards,  allows  the  programmer 
to  select  an  RPM  for  plotting  a  standing  wave.  On  the  first  card  the  user 
chooses  the  sections  by  specifying  the  beginning  and  ending  element  numbers. 

The  second  card  contains  the  RPM(s)  to  be  plotted. 

Each  option  can  be  selected  separately,  but  option  one  must  be  chosen 
before  option  two. 
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The  HSFR  program  will  output  standing  wave  plots  at  RPM’s  where  the  computed 
peak  pressure  exceeds  a  specified  maximum  pressure  (option  one)  and  at  user 
selected  RPM's  (option  two).  The  plots  will  be  in  the  form  of  peak  pressure 
versus  distance. 

In  columns  51-60  of  card  three,  the  user  can  specify  the  maximum  standing 
wave  pressure.  If  this  value  is  not  specified,  the  program  will  not  provide 
standing  wave  plots  at  computed  peak  pressures.  The  bandwidth  for  the  peak 
pressure  is  Input  in  the  next  data  field.  One  hundred  RPM  is  the  default  bandwidth 
value.  The  program  will  plot  at  the  RPM  of  the  maximum  pressure  in  the  bandwidth. 

To  output  a  standing  wave  at  a  selected  RPM,  a  real  number  is  placed 
in  columns  71-80.  The  standing  wave  maximum  pressure  need  not  be  specified  for 
this  option. 

If  any  of  the  other  plotting  options  (flow,  pressure,  impedance,  acoustic 
density,  or  acoustic  intensity)  are  not  selected  by  the  user,  blank  cards  must 
be  inserted  in  the  output  cards  where  they  would  normally  be  specified. 

Section  2. A. 2  contains  further  data  card  requirements  that  must  be  entered 
to  obtain  the  standing  wave  plots. 
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OUTPUT  REQUIREMENTS  -  OPTION  ONE  -  COMPUTER  GENERATED  PLOTS  OVER 
SPECIFIED  MAXIMUM  PRESSURE 


COLUMNS 

FORMAT 

DATA 

DIMENSIONS 

1-5 

15 

Number  of  Element  Pairs  Times  Two 

- 

6-10 

15 

First  Element  Number 

- 

11-15 

15 

Last  Element  Number 

- 

16-20 

X5 

First  Element  Number 

- 

21-25 

,  ,  - 

15 

Last  Element  Number 

- 

26-30 

15 

Repeat  in  pairs  for  up  to  seven  sections 

31-35 

15 

of  the  modeled  system 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

75-80 

15 

OPTION  ONE-STANDING  WAVE  PLOTS  -  (TYPICAL  DATA  CARD) 
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OUTPUT  REQUIREMENTS  -  OPTION  TWO  -  USER  SELECTED  RPM 
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COLUMNS 

FORMAT 

DATA 

DIMENSIONS 

1-5 

15 

Number  of  Element  Pairs  Time  Two 

- 

6-10 

15 

First  Element  Number 

- 

11-15 

15 

Last  Element  Number 

- 

16-20 

15 

Repeat  in  pairs  for  up 

21-25 

15 

to  seven  sections 

26-30 

15 

of  the  modeled  system 

31-35 

15 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 

OPTION  TWO  STANDING  WAVE  PLOTS  -  (TYPICAL  DATA  CARD) 
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OUTPUT  REQUIREMENTS  -  OPTION  TWO  -  USER  SELECTED  RPM 
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2 . 5  Program  Deck  and  Input  Data  Job  Set-Up 

The  program  deck  and  input  data  cards  are  assembled  as  shown  in  Figure  2-6. 
All  input  data  cards  must  be  in  the  order  shown.  Circuit  element  data  cards 
must  be  sequential  starting  with  element  number  1  nd  ending  with  the  last, 
highest  number  terminated  element.  Job  control  card  content  and  arrangement 
varies  depending  on  the  particular  computer  facility  available  to  the  user. 


370 


Required 
Input  Data 


Output  Plot 
Requirement; 


Circuit  Element  Data 


.  1 

1 

“1 

General 
Control  Data 


Delimiter 
Job  Control 
Card 

Standing  Wave  Plots 
Acoustic  Intensity  Plots 
Acoustic  Density  Plots 
Impedance  Plots 
Pressure  Plots 


Flow  Plots 
Write  Options 

Last  Element  in  Circuit  (Termination) 
Element  No.  1 

-Pump  Speed  Range,  Harmonic,  Standing  Wave  Options 
■  Number  of  Elements,  Fluid,  Temperature,  and  Pressure 
-Title 

■  HSFR  Program  Deck 
with  Subroutines  and  Job  Control  Cards 


omuui 


FIGURE  2-6 

HSFR  PROGRAM  DECK  AND  INPUT  DATA  JOB  SETUP 
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3.0  PROGRAM  OUTPUT 


3 . 1  Computer  Output 

Figure  3-1  shows  an  example  of  the  first  information  printed  by  the  program 
for  a  given  short  line  test  circuit. 

A 

The  program  prefaces  the  listing  of  input  data  with  the  program  name,  date 
of  run,  run  title,  pump  speed  range  and  increment,  harmonic,  and  a  list  of  the 
fluid  properties  calculated  by  the  program  for  the  specified  fluid,  temperature  and 
pressure.  A  list  of  the  input  data  for  all  of  the  elements  used  in  the  run  is 
printed  next.  Finally,  the  program  prints  the  total  number  of  flow,  pressure, 
impedance,  acoustic  energy  density,  and  acoustic  energy  intensity  plots  required, 
and,  in  each  case,  the  specified  circuit  element  numbers  for  which  plots  are 
desired. 

Computed  output  data  is  printed  after  the  listing  of  circuit  input  and  plot 
requirement  information  provided  that  any  of  the  seven  output  write  options 
discussed  in  Section  2.4  are  selected.  An  example  of  write  option  4  and  7  output 
is  shown  in  Figure  3-2  for  the  sample  test  circuit  at  1000  RPM.  Extra  WRITE 
statements  may  be  incorporated  so  that  any  parameter  contained  in  the  program 
is  printed.  Extra  WRITE  statements  may  be  useful  to  investigate  the  behavior 
of  variables  of  interest. 

Finally,  the  required  output  plots  are  printed. 

3. 2  Output  Plots 

The  computed  program  output  normally  consists  of  printed  plots  of  flow, 
pressure,  impedance,  and  acoustic  energy  density  and  intensity  versus  pump 
speed  for  selected  junctions  in  the  circuit  being  analyzed.  Additionally,  the 
program  provides  for  printing  plots  of  the  standing  pressure  wave  in  selected 
sections  of  the  circuit.  The  manner  in  which  the  user  specifies  the  required 
plots  is  described  in  Section  2.4.  The  functional  subroutine  GRAPH2,  which  is 
used  to  produce  the  plots,  is  described  in  Volume  IV.  The  restrictions  placed 
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on  GRAPH2  in  the  specified  pump  speeds  are  given  in  Section  2.2. 

3.3  Interpretation  of  Computer  Output  Plots 

A  typical  print-plot  output  of  the  first  harmonic  (fundamental)  frequency 
amplitude  of  the  dynamic  peak  pressure  versus  pump  speed  is  shown  in  Figure  3-3. 

This  is  a  plot  of  pressure  data  computed  for  the  junction  of  element  numbers  10 
and  11  in  the  sample  short  line  test  circuit.  The  computed  points  are  shown 
superimposed  on  actual  test  data  for  that  location  in  Figure  3-4. 

The  predicted  resonant  frequencies  occur  at  about  1300  RPM,  2500-2600  RPM, 
and  3900  RPM.  These  appear  to  correlate  well  with  the  measured  data  except 
for  the  first  peak.  This  discrepancy  is  believed  to  result  from  an  effect  of  pump 
compensator  dynamics  at  low  pump  speed  which  is  not  accounted  for  in  the  program. 

3.3.1  RPM  Bandwidth  Sensitivity  -  Note  that  the  amplitude  of  the  apparent 
predicted  peak  pressure  at  the  major  resonance  (3900  RPM)  for  this  location  is 
significantly  lower  than  the  measured  data.  Consider  that  the  predicted  values 
are  calculated  at  50  RPM  increments  of  pump  speed  and  that  the  bandwidth  of  the 
predicted  peak  is  quite  narrow;  less  than  200  RPM  for  peak  pressures  greater  than 
100  psip. 

Figure  3-5  shows  predicted  data  for  5  RPM  increments  of  pump  speed  for  the 
speed  range  around  the  major  resonant  frequency.  Note  that  the  correlation  with 
test  data  is  better;  improving  from  385  psip  (using  50  RPM  increments)  to  437  psip. 

The  amplitude  correlation  error  is  reduced  from  about  -20%  to  less  than  -10%. 

The  50  RPM  pump  speed  increment  may  be  used  over  a  wide  range  of  pump  speeds 
(1000-5000  RPM)  to  identify  the  major  resonant  frequencies.  However,  it  is  recommended 
that  a  smaller  incremental  speed  (5-10  RPM)  be  used  for  analysis  around  the 
predicted  resonant  frequency  to  assure  that  the  peak  pressure  is  identified.  This 
is  especially  important  when  the  bandwidths  of  the  resonant  peak  is  narrow. 
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The  results  obtained  by  the  foregoing  analaysis  are  considered  adequate  to 
establish  the  pressure  frequency  response  characteristic  of  the  system  being 
evaluated.  Attenuation  techniques  may  be  applied  to  relocate  the  resonant 
frequency  or  reduce  the  amplitude  to  acceptable  levels. 

3.3.2  Temperature-Position  Sensitivity  -  The  input  data  used  to  define  the  system 
includes  specifying  the  fluid  temperature  and  the  locations  within  the  circuit 
for  which  analysis  is  desired.  The  sensitivity  of  the  calculated  results  to 
these  parameters  is  illustrated  in  Figure  3-6. 

Calculated  pressure  frequency  response  data  are  shown  for  three  points  in 
the  example  circuit  with  5  inch  spacing  at  130°F,  135°F,  and  150°F  fluid  temperatures. 
Point  Pll  is  the  location  for  which  test  data  was  recorded.  The  fluid  temperature 
varied  from  127°F  to  135°F  reported  at  the  inlet  to  the  pump. 

Peak  pressure  varies  more  than  300  psi  within  +  5  inches  of  point  Pll.  This 
is  explained  by  the  characteristics  of  the  traveling  and  standing  pressure  waves 
that  exist  in  a  closed  system  at  each  harmonic  frequency.  Appendix  A  of  Volume  IV 
describes  how  these  waves  are  distributed,  and  the  relationship  between  pressure 
and  flow  with  respect  to  distance  along  the  line.  Care  must  be  taken  to  avoid 
drawing  erroneous  conclusions  from  the  results  of  a  single  point  (or  widely  spaced 
points)  pressure  measurement  or  calculation. 

Figure  3-6  also  shows  sensitivity  to  temperature.  Note  that  the  resonant 
frequency  pump  speed  shifts  approximately  -100  RPM  for  a  +20°F  temperature  change 
within  the  range  of  temperatures  being  evaluated.  While  the  downstream  fluid 
temperatures  were  not  recorded  for  the  test  data  shown,  experience  with  the  F-15 
pump  indicates  that  a  10°-15°F  temperature  rise  across  the  pump  may  be  expected. 
Therefore,  the  actual  fluid  temperature  at  which  data  were  recorded  most  likely 
was  in  the  135°-150°F  range. 
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The  peak  pressure  values,  location,  and  temperature  data  from  the  pressure 
frequency  response  plots  were  used  to  construct  the  temperature  -  position 
sensitivity  envelope  shown  in  Figure  3-6.  The  measured  peak  pressure  (from 
test  data)  is  shown,  along  with  the  calculated  peak  pressure  at  the  supposed 
condition  of  135°F  at  location  Pll. 

The  sensitivity  relationship  shown  in  this  envelope  suggests  two  points 
for  consideration:  (a)  a  fluid  temperature  of  138eF  would  provide  more  exact 
resonant  frequency  correlation;  and,  (b)  a  location  approximately  1.5  inches 
farther  downstream  from  Pll  would  correlate  with  the  measured  pressure  amplitude. 

Accordingly,  the  program  was  rerun,  with  these  adjustments  to  the  input 
data.  Speed  increments  of  50  RPM  were  used  for  the  range  of  1000-5000  RPM  and 
5  RPM  increments  were  used  between  3800  and  4000  RPM  to  define  the  resonant 
pressure  peak.  The  results  are  presented  in  Figure  3-7.  Excellent  pressure 
amplitude  correlation  at  the  3900  RPM  resonant  speed  exists.  Note  also  that 
better  amplitude  correlation  results  at  about  2550  RPM,  (using  the  50  RPM  speed 
increment)  compared  to  the  calculated  data  shown  in  Figure  3-4. 

3.3.3  Discussion  of  Sensitivity  Analysis  -  The  adjustments  to  input  data  that 
were  made  to  achieve  correlation  are  considered  well  within  reason  for  this 
analysis.  The  original  data  is  from  F-15  pump  verification  tests  that  were 
conducted  in  1976.  Exact  positional  measurements  are  no  longer  available,  however, 
the  1.5  inch  difference  required  for  exact  correlation  can  be  accounted  for  in 
the  fittings  used  to  couple  the  short  line  test  circuit. 

The  sensitivity  analysis  emphasizes  the  need  for  rigidly  exact  definition 
of  the  circuit  and  precise  temperature  measurement  when  single  point  correlation 
work  is  being  performed.  For  the  purpose  of  system  analsyie,  the  sensitivity  of 
output  data  to  input  parameters  suggests  that  a  number  of  fairly  closely  spaced 
calcuation  points  in  a  well  defined  system  need  to  be  used. 
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Wide  band  (50  RPM)  speed  increments  may  be  used  to  establish  the  approximate 
resonant  frequency  speeds,  but  narrow  band  (5-10  RPM)  speed  increments  are  required 
to  accurately  define  peak  pressure  amplitudes.  Standing  wave  analysis  is 
definitely  recommended,  using  either  the  programmed  print-plot  option  or  by 


manually  plotting  computed  points. 


APPENDIX  B 

STANDING  WAVE  PLOT  OPTION 
HSFR  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL  IV) 

SECTION  7  -  STANDING  WAVE  PLOTS 

The  programmer  selects  the  HSFR  standing  wave  plotting  capability 
as  described  in  the  user  manual.  If  the  maximum  standing  wave  pressure 
(SWPR)  is  greater  than  zero,  the  beginning  and  ending  element  numbers  of 
the  chosen  section  are  read. 

During  program  execution  peak  pressures  for  each  element  are  stored  in 
SWPR(  )  versus  pump  RPM.  If  any  element  pressure  value  exceeds  SWMP  the 
RPM  is  saved  in  SWRPM  (HSWP)  and  the  corresponding  column  number  of  SWPR(  ) 
is  placed  in  ICOL(NSWP).  (NSWP  is  the  counter  for  standing  wave  pressure 
plots.)  The  pressure  is  written  into  SWRPMP  (NSWP)  where  it  is  compared 
to  other  resonant  pressures  in  the  specified  bandwidth.  The  maximum  resonant 
pressure  is  chosen  for  plotting. 

If  the  current  resonant  pressure  is  greater  than  the  previous  resonant 
pressure  in  the  selected  bandwidth,  the  program  will  assign  the  current 
pressure  as  the  main  resonance  RPM.  When  the  pressure  fails  by  more  than  10 
PS I  from  the  previous  value,  a  new  resonant  RPM  is  not  assigned. 

Should  there  be  no  pressure  above  'the  maximum  standing  wave  pressure 
no  standing  wave  will  be  plotted  and  a  message  will  be  printed.  If  the  number 
of  standing  wave  plots  exceeds  ten,  they  will  not  be  plotted,  but  the  RPM 
at  which  a  resonance  occurs  will  be  printed. 

Once  the  column  numbers  and  hence  the  RPM's  of  the  SWPR(  )  array  that 
contain  resonant  pressures  are  known,  the  length  of  each  plotted  section 
is  computed  and  stored  In  0MEGA(  ).  A  call  to  GRAPH2  plots  the  peak  pressure 
versus  distance. 
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If  PRPM  and  SWMP  are  both  greater  than  zero,  the  user  has  specified 
an  RPM  to  plot  the  standing  wave.  The  beginning  and  ending  element  numbers 
and  the  RPM's  are  read.  The  program  locates  the  proper  columns  in  the  SWPR(  ) 
array.  The  pressures  in  these  columns  are  plotted  versus  distance  with  the 
same  call  to  GRAPH2.  Write  statements  provide  the  resonant  RPM,  and  the 
beginning  and  ending  element  numbers  of  the  selected  branch  to  be  plotted. 


VARIABLE  LISTING  FOR  STANDING  WAVE 
SECTION  IN  HSFR 


NAME 

DESCRIPTION 

DIMENSION 

BWRPM 

Resonant  Bandwidth 

RPM 

IELM(  ) 

Element  Numbers  in  the  Standing  Wave  Section 

— 

ISWEL(  ) 

Array  Containing  Beginning  and  Ending  Element 

Numbers  for  the  Standing  Wave  Section 

— 

ICOL 

Column  Locations  of  Resonant  RPM's  in  SWPR(  )  Array 

— 

IXAX 

Number  of  Elements  in  Standing  Wave  Section 

— 

NSWP 

Number  of  Standing  Wave  Plots 

— 

NELS 

Start  Element  Number  for  Standing  Wave  Plot 

— 

NELE 

End  Element  Number  for  Standing  Wave  Plot 

— 

SWMP 

Standing  Wave  Maximum  Pressure 

PSIP 

PRPM 

Indicator  for  Plotting  Standing  Wave  at  User 

Selected  RPM 

— 

SWPR(  ) 

Component  Peak  Preaaure  Array  Stored  Versus  RPM 

PSIP 

SWRPM(  ) 

Array  of  Standing  Wave  RPM's 

RPM 

SWRPMP(  ) 

Array  of  Standing  Wave  RPM  Pressures 

PSIP 

ALEN 

Length  of  Standing  Wave  Section 

IN 
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•SECTION  2-  COMPUTE  TRANSFER  MATRIX  FOR  EACH  CIRCUIT  ELEMENT* 

I F  ( N HA  RM  .  EQ .  0  )  NHARM®1 
110  CONTINUE 
KHARM=0 

IF ( KTYPE ( 1 ) . EQ . 21 )NINLT«121 
IF(KTYPE{1).EQ.22)  NINLT=122 
120  CONTINUE 
QOVB=0.0 
FLOW=0 . 0 
KHARM*KHARM+1 
A=W*  PISTNO*PI*KHARM/30. 

DO  250  IEL=1,NEL 
ITYPE=NT YPE ( I  EL ) 

GO  TO  (130, 140, 150*160, 170#180, 175, 190, 200,250,1 30, 140, 150/160, 
+170, 180, 175,190) ,ITYPE 
130  CALL  LINE 
GO  TO  250 
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*SECTION  7-  STANDING  WAVE  PLOTTING 

IF ( SWMP. LE . 0 . 0 )G0  TO  1150 

IWFr=IWPT-l 

DO  900  1=1, NEL 

WRITE ( 6,9011) (5WPR(I,J),J=1 ,IWPT) 

900  CONTINUE 

9011  FORMAT ( // , 1 0 { 5X , 10E12. 5,/) ) 

1140  CONTINUE 

NBRAN=NBRAN/2 
DO  2000  M=1 , NBRAN 
NELS=ISWEL( 2*M-1 ) 

NELE=ISWEL( 2*M ) 

IF(PRPM.GT.  0.0.  AND.  SWMP.  LF,.0.0)GO  TO  1100 

NSWP=0 

W=WSTART 

DO  1010  I  =  1,IWPT 

DO  1015  I 1=NELS , NELE 

I F ( 3 W PR  ( 1 1 , I ) .GE.SWMP)GO  TO  1016 

1015  CONTINUE 
GO  TO  1050 

1016  NSWP=NSWP+1 

IF ( NSWP. GT. 1 0 )GO  TO  1030 
SW  R  PM  P ( NSW  P )  =  S W  PR ( 1 1 , I ) 

SW  P  PM  ( N  SW  P )  =W 
ICOL(NSWP)  =  I 
IF(NSWP.EO. 1 )GO  TO  1050 
TEST  IF  IN  SPECIFIED  BANDWIDTH 
IF ( ( SWRPM ( NSW  P-1  )  +  BWRPM  )  . GT. W )GO  TO  1020 
GO  TO  1050 
1020  CONTINUE 

IF ( SW  PR  ( 1 1 , I ) . GT. SWRPMP( NSW  P-1  ) )GO  TO  1040 
NSWP*NSWP-1 
GO  TO  1050 
1030  WRITE ( 6 , 9000 )W 

9000  FORMAT ( // ,10X,45H*****  THERE  IS  AN  UNPLOTTED  STANDING  WAVE  AT  , 
+  1F12.4,7H  R.P.M.) 

GO  TO  1050 
1040  SWRPM ( NSWP-1 )*W 
ICOL (NSW  P-1 )»I 
SWRPMP(NSWP-1  )«SWRPMP(NSWP) 

NSWP-NSWP-1 
CALCULATE  RPM 
1050  W-W+WINC 
1010  CONTINUE 

WRITE (6, 9020 )NEL, IWPT , NSWP, NELS , NELE 
9020  FORMAT(/,2QX, '***  INTEGER  INFO  ',6110) 

IF ( NSWP, EO»  0 )GO  TO  100 
WRITE(6,9011)(SWRPM(I ),I*1 ,NSW  P ) 

WRITE ( 6, 9021 ) ( ICOL( I ) , !■! ,NSWP) 

WRITE (6, 9011)( SWRPM P(I ),I«1, NSWP) 

GO  TO  1120 
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1100  DO  1110  1  =  1 , NSWP 
1110  1COL ( I )= ( SWRFM ( I }-WSTART)/WINC+l 
1120  CONTINUE 
IXAX=1 
ALEN=0 . 0 
OMEGA (  1  )  =  0. 0 
I=NELS-1 
1200  CONTINUE 
1  =  1  +  1 

IF ( I . GT. NELE )GO  TO  1300 
IF  (NTYPL(  I  )  .  EQ.  1  )GO  TO  1210 
IF(NTYPE( I ) .EQ. 6. AND. I.NE.NELSJGO  TO  1240 
IF  ( NT  YPE  (I  ) . EO. 2  .,AND.  KT  YPE  ( I  ) .  EQ .  3  2  )GO  TO  1250 
IF (NTYPE( I )-10 >1260,1200, 1220 
1250  KK=PARM(8,I) 

ALEN=ALEN  +  PA  RM ( 1,KK) 

GO  TO  1230 
1220  IELM( IXAX  )“I 
GO  TO  1200 
1210  I  ELM ( IXAX  )  =  I 

ALEN=ALEN+PA RM ( 1 , I ) 

1230  I X AX=IXAX+1 

OMEGA  (IXAX  )=ALEN 
GO  TO  1200 

C  SKIPS  BRANCH  CIRCUIT  ELEMENTS 

1  240  I  =  KT YPE ( I )  +  I 
GO  TO  1200 

1260  IF( I. EO.NELE  )GO  TO  1220 
GO  TO  1200 
1300  CONTINUE 

WRITE (6, 90 20 ) I XAX, NEL , NSWP, NELS , NELE , NB RAN 
WRITE(6,9011)( SWRPM ( I ) ,1=1, NSWP) 

WRITE (6,9021 ) (NTYPE ( I ) , I-NELS , NELE ) 

WRITE ( 6,9021 ) (IELM(I) ,1-1, IXAX) 

WRITE ( 6,9021 ) (ICOL(I ) ,1=1, NSWP) 

9021  FORMAT (//,10(10X,10I10,/)  ) 

C  WRITE ( 6,9011) (OMEGA (I ) ,1*1, IXAX) 

CHAR(  1  )  =  PC 
DO  1400  1=1, NSWP 
DO  1600  Jl *1 , IXAX 

1600  YPLT ( Jl )«SW  PR ( I  ELM ( Jl),ICOL(I ) ) 

CALL  GRAPH 2 (OMEGA, YPLT, IXAX, CHAR) 

WRITE (6, 9010  JfJHARM  •  SWRPM ( I  ) 

9010  FORMAT { /, 34X , 4 OH PEAK  PRESSURE  (LB/IN**2)  VERSUS  DISTANCE, 

+  26H  (IN)  FOR  HARMONIC  NUMBER  ,I3,2X,4H  AT  ,F10.2,7H  R.P.f4.) 
WRITE ( 6 , 901 2 )NELR , NELE 

9012  FORMAT { /, 4 OX , 4 1HTHE  STANDING  WAVE  IS  PLOTTED  FROM  ELEMENT, 

+  I5.14H  TO  ELEMENT  ,15) 

WRITE (6, 600 ) (TITLE ( II ) ,11-1,10) 

1400  CONTINUE 
2000  CONTINUE 
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IF{PRPM.GT. 0.0. AND. SWMP.GT. 0.0)00  TO  1130 
GO  TO  100 

1150  IF ( PRPM. LE. 0. 0 )GO  TO  100 

1130  READ( 5, 560  )NBRAN ,  (  ISWEL(I  )  ,1=1  ,NEJRAN  ) 

READ(5, 485 )NSWP, ( SKRPM( I ) ,  1  =  1 ,NSWP) 

485  FORMAT (I5,7F10.0) 

SWMP=0. 0 
GO  TO  1140 
450  STOP  1001 
460  FORMAT ( 10A8  ) 

470  FORMAT (2I5,2F10.0) 

480  FORMAT  (8F10.0) 

490  FORMAT (2I5,7F10.0) 

495  FORMAT ( 8F 1 0 . 0  ) 

496  FORMAT (1  OX, 7 OH  INPUT  DATA  EXCEEDS  ARRAY  DIMENSIONS  -  PROGRAM  TERMI 

1NATED  ). 

500  FORMAT  (1H1,44X,4 3H HYDRAULIC  SYSTEM  FREQUENCY  RESPONSE  PROGRAM, 

+  / / , 3  OX , 1 0A8 ) 
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APPENDIX  C 

TYPE  57  EMPIRICAL  PUMP  MODEL 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43,  VOL.  I) 

6.57  TYPE  #57  -  EMPIRICAL  PUMP  MODEL 

The  Type  #57  pump  model  will  simulate  pump  outlet  pressure  and  flow  of  a 
variable  displacement  pressure  compensated  pump.  The  user  can  select  either  a 
first  order  or  second  order  computer  model.  The  steady  state  operating 
characteristics  are  required  input  data.  Empirically  derived  data  provide  the 
other  input  parameters . 

For  the  first  order  model  a  time  constant  dependent  on  the  natural 
frequency  of  the  torque  response  is  input.  Another  time  constant  can  be 
added  to  smooth  the  pressure  response. 

The  second  order  model  requires  a  natural  frequency ,  damping  factor,  the 
final  steady  state  flow,  an  approximate  pump  outlet  volume  (pumping  chamber 
cavity)  and  a  flow  response  delay.  The  input  parameters  can  be  measured  or 
estimated  from  test  data  as  discussed  in  AFWAL-TR-80-2039  ,  (Note:  The  damping 
factor  must  be  less  than  one.)  The  user  can  select  a  first  or  second  order 
model  by  typing  a  zero  or  one  in  column  25  of  card  number  1  and  entering  the 
appropriate  real  data  cards.  If  a  second  order  model  is  chosen,  a  zero  or 
one  is  placed  in  column  30  to  denote  either  a  turn-off  or  turn-on  transient. 
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CARD  NUMBER  1 


COLUMN 

FORMAT 

1-5 

15 

6-10 

15 

11-15 

15 

16-20 

15 

21-25 

15 

26-30 

15 

31-35 

15 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 

Component  Number  _ 


Type  Number  =  57 


Number  of  Real  Data  Cards  ■»  1  or  2 


Line  Number  (with  sign)  attached  to  Connection  1 


0  *  First  Order  Model  1  ■  Second  Order  Model 


0  ■  Turn-off  transient  1  *  Turn-on  Transient 


Teroperature/Pressure  Code  (See  Page  4.0-2) 


EXAMPLE  CARD 


I  2  3  4  ft  6  r  •  *  10  II  12  IS  14  10  iT  il  19  r 


•  2*  2f,  tr  79  V  5 i  M  :'j  ‘ 


’  53  }  41  42  41  44  4S  40  -\T  4|  49  SO  fti  52  5J  54  M  »•  IT  53  53  03  O  6?C)  6* 


•  t  S  4  5  «  T  a  *  10  II  If  13  m  15  16  If  is  i«»  20  il  72  24  *4  26  ?B  .9  *0  V  U  3  3  34  35  !C  *7  )|  JO  40  41  4?  4J  44  45  45  4*  48  40  50  »l  5*  C3  54  55  56  57  5«  5*  40 


V  U  U  U  UIU  UUUUUUUU  U'U  UUUU'JUVU  U  U  U  t  U  U  U  l  V  U  U|U  UUOUUUUU  U'U  U  L  U  L  I  u  U  U  U  t|U  U  U  I1  U  II  U  IMI  UjU  UUUUUUUU  U|U  IIVIMI 

1  7  3  4  5|f  )  |  t  10  111*  13  M  ljt|  1?  II  *>;]  JO  31  O  J4  Jf.|ic  !■  )»  ?M»:  3-  «:  II  <4  • :  Jap  t',  «•>  »s(y  il  5?  51  Vn-J  5J  .1  ?i#0  V  t?  «  H  «MtS  f  1  '.9  Cl  TP  Ft  ??  J)  H  7v  I  ->  71  ?5  »0 

1 1 1 1  |<i  n  1 1 1 1 1  n!i  1 1 1|  n  1 1  s!i  1 1 1 1  m  i  i'i  ii  i  m  1 1  iMi  i  n  m  n  pii  i  n  n  n  i!i  1 1 1  n  i  ii  hi  1 1  n 

■  i  ■  •  1  1 

2  2  2  2  2'7  2  2  2  2  2  2  2  2  1,2  2  2  2  7  2  2  2  2  2i2  2  2  2  2  2  2  2  2  2|2  2  2  2  2  2  2  2  2  ?'?  7  2  2  2  2  2  2  2  ?|2  2  2  2  2  7  2  2  2  2,2  2  2  2  2  2  2  2  2  2'2  2  2  2  2 

'  1  1  1  !  •  1  ! 

3  3  3  3  3[3  33333333  3<3  33333233  3>.1  33333333  3,3  33333333  3'0  03333333  33333333  3J3  33333333  3,3  3  3  3  3 


4  4  4  4  4(4  4  <  «  4  1  4  4  4  4'4  4  4  4  »  1 1  4  -M'4  «  4  -1  *  4  4  4  <‘4  <  4  i  4,1  •'  4  4  V  <  4  4  4  4  4  4  4  4'4  4  4  4  4  4  4  4  4  4)4  4  4  4  4  4  4  4  4  *4  4  4  4  4 

t  !  )  «  s  |S  )  •  5  it  'I  ii  i)  m  iJn  r.  i*  r  .’ji  ?•  .  w.r  :)  •  I  i1  '  L  J  ,r  ■  i  ,  '  i  (1;  u  .j  «h|,i  s:s,  I  >i  u  :,w  n  hum  isjr  «i  es**  ly:  n  n  i»  nl’!  it  n  i»  H 

5  5  5  5  S1'-  5  5|5  5  5  5  5  5*5  0  5  5  5  .  j  5  5  5  5  5  515  5  5  5  5^  5  5  5  5  5  5  5  5  5,5  5  5  5  5;>j  5  5  5  S  5  5  5  5  5  5  5  5  5  StS  5  5  5  5  5  5  5  5  S.'S  5  5  5  5 

!  t  i  1  '  *  '  1 

6  6  0  f  e  b  6  6  5  6  6  C  6  6  6,6  C  6  0  t  '  f  C  C  (■  5  6  6  8  6  5  (-  6  6  $'6  5  6  5  6  6  6  6  £  C.6  6  6  5  b  S  G  6  6  616  5  fi  6  6  6  S  £  C  6'G  6  S  C  6  6  6  S  6  E'b  6  6  S  S 

1  1  i  i  ,  i  i 

m  n',i  i  i  i§n  n  i[i  1 1 1  n  n  i  i[n  n  1 1 1  m\i  i  i  i  i  1 1 1  i  in  i  i  n  1 1 1 1  in  1 1  m  i  1 1  i\i  n 1 1 1 1 1 1  i\i i  n i 

i  M  «  r,4  s  1 1  j  m  1 1  i|m  i  i :  1 1 1  tjs  h  t  s  t »  s « :  6,’s  1 1  u  i  i  e  t  i|e  i  :  s  t » 1 5  6  cjs  t  it  s  1 1 6  c  jJj  c  s  s  e  1 1 1  m  j  1 1  c 

1  i  1  I  1  i  1  1  I 

3  5 1  *  3'9  u  9  J  5  J  J  5  9  i,3  ?  S  "  "  '  1  3  3  5-I.  3  9  3  9M  ?  I  9  f  3  9  9  5  S  5  S  ?  5  5,!  J  9  9  5  9  J  9  9  5'5  J  5  *  0  '!  3  3  S  fiH  S  9  5  J  S  J  9  Si9  9  S  9  5 

i  .<  ,  *•  i  j  i  •  i;  »  ii  n»:  **  u -1  Jcjii  ?»..  i  :■  i  j  .  /  /  ,  ,  i;.ii  4;  4  m  4i,3', « u  a*  *.  ij,.  V'  1  4"  k?  '  ’ r'*.  j  • 

iv  i  i’M*  ual  ic.'jy,  (.t r v'  rs  tc2  r:\ 
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FIRST  ORDER  PUMP  MODEL 
CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Pump  Speed 

RPM 

11-20 

E10.0 

Pump  Rated  Speed 

RPM 

21-30 

E10.0 

Pump  Flow  @  Rated  Speed 

CIS 

31-40 

E10.0 

Pressure  @  Zero  Flow 

PSIA 

41-50 

E10.0 

Pressure  @  Full  Flow 

PSIA 

51-60 

E10.0 

First  Order  Time  Constant 

SEC 

61-70 

E10.0 

Case  Drain  Flow  @  Rated  Flow  and 

Pressure 

CIS 

71-80 

E10.0 

Pressure  Time  Constant 

SEC 

EXAMPLE  CARD 

19S0.  46CC.  ££5.  3165.  3100.  .030  8.3  .0001 

1  z  3  4  s  «  r|«  •  io  n  ir  is  14  to  |  na!t»o»»?4|rtirtin»!iU  i^4  hkitiiow.  4,4!  44  as  «c  *7  ills  so  si  si  ssss  ss  sssr  so§»to  *t  ciss  n| 


I  i  9  4  9  •  r  ■  •  10  II  I*  l»  K  15  l«  \r  19  (•  to  21  12  a  Z4  29  ?6  zr  fs  25  90  9I  S2  >9  94  J9  56  V  !l  96  «0  41  42  49  44  49  46  4?  46  4*  50  91  92  0  54  55  56  5 T  56  59  60 
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SECOND  ORDER  PUMP  MODEL 
CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Pump  Speed 

RPM 

11-20 

E10.0 

Pump  Rated  Speed 

RPM 

21-30 

E10.0 

Pump  Flow  @  Rated  Speed 

CIS 

31-40 

E10.0 

Pressure  ?  Zero  Flow 

PSIA 

41-50 

E10.0 

Pressure  @  Full  Flow 

PSIA 

51-60 

E10.0 

Natural  Frequency 

RAD/SEC 

61-70 

E10.0 

Case  Drain  Flow  @  Rated  Flow  and 

Pressure 

CIS 

71-80 

E10.0 

Damping  Factor 

- 
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SECOND  ORDER  PUMP  MODEL 
CARD  NUMBER  3 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Final  Steady  State  Flow 

CIS 

11-20 

E10.0 

Flow  Rasponse  Delay 

SEC 

21-30 

E10.G 

Pump  Outlet  Volume 

IN3 

31-40 

E10.0 

41-50 

£10.0 

51-60 

E10.0 

61-70 

E10.0 

71-80 

E.10.0 
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APPENDIX  C  (CONT) 

SUBROUTINE  PUMP57 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL.  II) 

6.57  SUBROUTINE  PUMP57 

Subroutine  PUMP57  models  a  variable  displacement  pressure  compensated 
pump  using  empirically  derived  input  data.  The  model  is  Intended  for  use 
when  detailed  pump  parameters  for  the  more  complex  pump  models  are  not  known. 

The  model  will  compute  pump  outlet  pressure  and  flow  and  a  torque  valur*  which 
reflects  100%  pumping  efficiency. 

The  PUMP57  subroutine  contains  both  a  first  and  second  order  pump 
model.  Each  model  is  selectable  and  requires  the  user  to  input  the 
pump  steady  state  operating  characteristics.  A  time  constant  measured  from 
test  data  is  input  for  the  first  order  model.  The  second  order  model  requires 
an  undamped  natural  frequency  and  damping  factor,  the  steady  state  pump  outlet 
flow  after  the  transient,  an  approximate  pump  outlet  volume,  ,nd  a  flew  response 
delay. 

The  HYTRAN  empirical  pump  model  input  parameter  can  be  varied  to  achieve  any 
degree  of  accuracy  dependent  upon  the  particular  user  application.  However,  when 
extrapolating  the  measured  input  data  to  other  systems,  caution  should  be  exercised 
because  of  the  sensitivity  and  interrelationship  of  the  parameters.  Actual 
data  should  be  used  whenever  possible  to  verify  the  computed  results.  Knowing 
the  closing  or  opening  time  of  the  transient  control  valve  is  also  critical  to  the  accuracy 
of  the  pump/system  simulation. 

5.57.1  MATH  MODEL 

In  deriving  the  simplified  models  inherent  physical  properties  of  the  pump 
are  ignored.  Non-linearities  and  distributed  parameter  which  are  present  in  an 
actual  pump  are  estimated  by  linear  lumped  parameter  models  which  result  in  ordinary 
differential  equations  with  constant  coefficients. 
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FIRST  ORDER  MODEL 

A  first  order  differential  equation  (1)  can  be  written  to  define  pump/system 
performance  from  the  equivalent  electrical  schematic  in  Figure  6.57-1.  The  pump 
flow  is  represented  by  an  ideal  current  source.  The  pump/system  impedance 
is  represented  by  a  resistance  and  capacitance  term. 


where 


Rp+  RL 

pump  internal  Impedance 


load  impedance 


(PSI) 

(CIS) 


pump/ system  capacitance 


(IN2  *  IN) 
(  PSI  ) 


POUl  *  pump  outlet  pressure  (PSI) 

Qv  »  pump  outlet  flow  (CIS) 

IN 

Taking  the  Laplace  transform  of  equation  (1)  and  assuming  zero  initial 
conditions,  the  pump/system  transfer  function  becomes 


POUT  (3) 


Jr _ 

&J.CB  +  1 


FIGURE  6.57*1  FIRST  OROER  PUMP/SYSTEM  MODEL  EQUIVALENT  SCHEMATIC 


•PTMM1-Z 


FIGURE  6.57-2  FIRST  ORDER  FUMP  MODEL  BLOCK  DIAGRAM 
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System  line  pressure  is  used  to  determine  pump  outlet  flow  from  the 
steady  state  pressure  flow  characteristics.  When  the  pressure  is  less  than 
full  flow  pressure,  the  pump  outlet  flow  is 

DT(16)  -  (DT(QT) -DT(RRQ) )*(DT (POUT)-D(PFF) )/ (-D(PPF) )4-DT(RRQ)  (5) 

For  system  pressure  greater  than  or  equal  to  full  flow  pressure,  the 
outlet  flow  is 

DT(16)  -  DT(RRQ)* (DT(POUT)-D(POF) )/ (D(PFF)-D(POF) )  (6) 

The  flow  (DT(16))  then  passes  through  the  first  order  lag  network. 

DT(18)  -  DYNAM(DT(15) ,DT(17) ,DT(5))  (7) 

The  resulting  pump  flow  (DT(18))  is  combined  with  the  line  dynamics 
to  compute  a  pump  outlet  pressure. 

DT(20)  -  C (LI)  +  DT(18)  *  Z(Ll)  (8) 

The  pressure  is  passed  through  a  first  order  lag  circuit  usually  with 
a  small  time  constant  to  eliminate  any  high  frequency  pressure  spikes. 

DT(22)  -  DYNAM(DT(19) ,  DT(21) ,  DT(12))  (9) 

The  pump  operating  RPM  is  combined  with  the  outlet  pressure  and  flow  to 
obtain  a  torque. 

DT(ATORQ)  -  DT (POUT)  *  DT(QOUT)  *D(RPM)  (10) 

SECOND  ORDER  MODEL 

The  second  order  model  more  closely  emulates  the  mechanical  action 
of  the  pump.  Variable  displacement  pumps  usually  incorporate  a  control  valve 
which  strokes  a  piston  that  moves  the  pump  hanger  changing  the  output  flow 
rate.  All  these  functions  including  the  feedback  pressure  can  be  broken 
down  into  Individual  functions,  then  pieced  together  to  form  a  model. 
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The  pump  compensator  valve  will  initially  sense  a  change  in  system 
pressure.  A  definite  lag  time  is  involved  until  the  compensator  starts  to 
move  and  ports  fluid  to  or  from  the  hanger  actuator.  The  response  of  the 
control  spool  is  important  for  it  controls  the  rate  at  which  the  hanger  will 
respond  and  eventually  dampen  to  a  final  flow  value.  The  delay  time  can  be 
easily  measured  as  the  time  the  output  pressure  changes  to  the  time  that  the 
torque  changes. 

The  control  spool  position  and  the  hanger  actuator  position  can  be  related 
through  a  second  order  response.  The  actuator  position  i3  integrated  to  obtain 
a  velocity  which  moves  the  hanger  to  a  pump  flow.  The  flow  reacts  with  the 
system  pressure  providing  a  feedback  through  the  compensator  network. 

In  the  pump  model  the  second  order  response  was  used  to  simulate  the 
control  spool  and  hanger  dynamics.  The  transfer  function  output  was  multiplied 
by  a  proportional  controller  to  obtain  the  outlet  flow.  Feedback  to  the 
second  order  transfer  function  was  provided  by  outlet  pleasure  referenced  to 
the  final  steady  state  pressure  value. 

Damping  and  frequency  values  for  the  second  order  transfer  function  can  be  obtained 

from  the  transient  torque  characteristics.  Steady  state  pump  pressure/flow  characteristics 
are  used  to  determine  the  pump  model  final  steady  state  values. 

A  schematic  diagram  of  the  pump  model  is  found  in  Figure  6.57-3.  The 
model  has  no  pressure  feedback  loop  to  the  control  valve.  Once  the  transient 
is  started  the  second  order  function  will  automatically  propagate  at  the  selected 
natural  frequency  and  damping  rate. 

DT(RESPON)  “  SEC0RD(1 ,XSIG,D (OMEGA) ,D(ZETA) ,DELT ,DT(ARR) )  (11) 
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A  pressure  reference  i  provided  by  the  coopressibility  flow  (Qco— p) •  The 
flow  is  combined  with  :he  pump  outlet  flow  «s  •  correction  factor. 

DT(QCUT)  -  (DT(FI  OW)+DT (NEWP) *DT (BCLKO) -C (Ll ) *DT (KON) ) / (1 .+Z (LI) "DT (KON) )  (12) 

The  resultant  flow  is  then  solved  with  the  line  boundary  equation  to  obtain  a 


pump  outlet  pressure. 

DT(POUT)  -  C(L1>  +  DT(QOUT)  *  Z(L1) 


(13) 


4 


6.57.2  ASSUMPTIONS 

In  the  derivation  of  the  second  order  response  it  is  assumed  that  the 
transient,  control  valve  operation  can  be  approximated  by  a  step  input,  and  the 
valve  completely  closes  off  the  line.  This  is  usually  not  the  case  in  practical 
hydraulic  design.  Oil  leaks  past  the  valve  and  energy  dissipation  rises.  The 
net  result  are  changes  in  the  effective  natural  frequency  and  damping  of  the 
system.  The  effect  on  frequency  is  considerable  but  that  on  damping  can  be  by  a 
factor  of  ten.  Calculations  of  system  performance  for  one  operating  condition  in 
a  system  may  be  in  error  for  other  and  not  very  different  conditions.  This  is  due 
mainly  to  the  non-linearity  of  fluid  power  systems  and  thr  care  in  selecting  system 
variables  cannot  be  overemphasized. 

6.57.3  COMPUTATIONS 

The  pump  subroutines  is  set  up  using  the  HYTRAN  program  commons  plus 
the  D,  DT,  DD  and  L  arrays. 

1000  SECTION 

In  the  1000  section  the  rated  flow  at  the  operating  RPM  and  the  total 
pump  flow  are  computed.  The  first  or  second  order  functions  are  initialized 
depending  on  which  model  the  user  selected. 

1500  SECTION 

\  In  this  section  the  pump  outlet  pressure  is  calculated  for  the  steady 

S 

state  portion  of  the  HYTRAN  program.  The  outlet  pressure  is  computed  using  the 
^  input  steady  state  pump  characteristics  and  the  current  flow  guess. 

2000  SECTION 

With  the  completion  of  the  steady  state  calculations,  all  the  variables 
for  use  in  the  transient  portion  of  the  program  are  initialized. 
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3000  SECTION 

In  the  3000  section  the  transient  response  of  the  pump  is  computed. 

A  check  is  made  to  determine  whether  a  first  or  second  order  model  was 
selected.  For  the  first  order  model  the  pump  outlet  flow  is  computed  and  passed 
through  a  first  order  lag  with  a  call  to  the  function  DYNAM.  The  subsequent 
flow  is  then  used  to  calculate  the  pump  outlet  pressure  and  pump  torque. 

When  the  second  order  model  is  selected, the  response  function  SECORD,  is 
not  called  until  the  rise  or  fall  in  system  pressure  exceeds  a  deadband  value. 

I F ( ABS ( DT ( DELTAP ) ) . LT . DT (OEADBD) ) GO  TO  3200  (14) 

The  deadband  pressure  is  the  difference  between  the  pumps  zero  flow  and 
full  flow  pressures. 

Once  the  transient  begins,  a  counter  (L(4))  is  set,  and  the  delay  time 
(D (DELAY))  is  added  to  the  current  HYTRAN  program  time.  After  the  delay  times 
out,  the  transient  response  begins.  The  total  pump  outlet  flow  is  based  on  the 
response  function  SECORD. 

Since  the  forcing  function  is  a  unit  step,  the  output  of  SECORD  will 
start  at  zero  and  end  at  one,  with  excursion  above  one  dependent  on  the 
damping  factor  and  natural  frequency  selected  by  the  user.  The  outlet 
flow  Is  a  percentage  of  a  value  between  the  user  input  maximum  and 
minimum  flow  values  or 

DT(FLOW)  -  (DT(QMAX) -DT(QMIN) ) *(DT(RESPON) )+DT (QMIN)  (15) 

For  a  turn-off  transient  the  response  is 

DT(RESPON)  -  1.  -  DT(RESPON)  (l6) 

and  for  a  turn-on  transient  the  response  is  the  functional  value. 

The  pump  outlet  flow  and  pressure  are  computed  as  described  in  the 
math  model  section  (Section  6.57.1). 
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6.51.4  APPROXIMATION 

Both  the  first  and  second  order  models  are  attempts  to  describe  a  complex 
undamped  servo  system.  In  the  simplified  models  effects  were  included  which  would 
yield  reasonable  results  when  compared  to  experimental  data.  At  best  they  are 
approximations  to  the  actual  pump  operation  and  in  many  respects  do  not  resemble  the 
internal  workings  of  the  pump  at  all. 

6.51.5  LIMITATIONS 

The  models  were  derived  to  provide  quick, ballpark  answers  without  the  benefit 
of  detailed  design  data.  The  models  should  not  be  used  when  detailed  pump/system 
performance  prediction  is  critical . 

The  first  order  model  is  inadequate  in  small  volume  systems  with  a  fast  closing 
valve  (turn-off  transient).  A  large  time  constant  for  the  pressure  filter  is 
required  to  dampen  the  resultant  pump  pressure  output.  A  second  order  model  will  provide 
a  more  stable  response. 

The  computer  program  input  data  is  dependent  on  measured  test  data. 

However,  once  the  input  parameters  have  been  established,  they  can  be 
applied  to  other  system  simulations. 

Both  empirical  models  simulate  outlet  pressure  and  flow  response 
to  turn-on  and  turn-off  transients. 

6.57.6  VARIABLE  NAMES 


NAME 

DESCRIPTION 

DIMENSION 

DT(ARR) 

Duny  Variable 

- 

DT(ATORQ) 

Pump  Torque 

IN-LB 

OT(BEGPR) 

Pump  Steady  State  Outlet  Pressure 

PSI 

DT(BULKO) 

Compressibility  Constant 

CIS/PSI 

DT(DEAOBD) 

Zero  Flow  Outlet  Pressure  Minus  Full  Flow 
Outlet  Pressure 

PSI 

D (DELAY) 

Second  Order  Time  Delay 

SEC 

DT(DELTAP) 

Outlet  Pressure  Difference  from 

Steady  State  Value 

PSI 
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NAME 

DESCRIPTION 

DIMENSION 

DT (FLOW) 

Total  Pump  Outlet  Flow 

CIS 

DT(KON) 

Dummy  Variable 

- 

DT(LEAK) 

Dummy  Variable 

- 

DT(NEWP) 

Dummy  Variable 

- 

D (OMEGA) 

Natural  Frequency 

RAD/SEC 

D(POF) 

Outlet  Pressure  at  Zero  Flow 

PS  I 

DT(POUT) 

Outlet  Pressure 

PS  I 

DT(PPOUT) 

Previous  Outlet  Pressure 

PS  I 

DT (PRESS) 

Final  Steady  State  Pump  Outlet  Pressure 

PSI 

D(PVOL) 

Pump  Outlet  Volume 

IN3 

QA 

Steady  State  Outlet  Flow 

CIS 

D(QFINAL) 

Final  Steady  State  Flow 

CIS 

D(QLK) 

Case  Drain  Flow 

CIS 

DT(QMAX) 

Maximum  Pump  Flow 

CIS 

DT(QMIN) 

Minimum  Pump  Flow 

CIS 

DT(QOUT) 

Pump  Outlet  Flow 

CIS 

QS 

Flow  Sign 

- 

DT(QT) 

Total  Pump  Flow 

CIS 

DT(RESPON) 

Second  Order  Response 

- 

D(RPM) 

Pump  Operating  Speed 

RPM 

D(RQ) 

Rated  Flow 

CIS 

D(RRPM) 

Rated  Operating  Speed 

RPM 

DT(RRQ) 

Rated  Flow  at  the  Operating  Speed 

CIS 

D(TAU) 

First  Order  Flow  Time  Constant 

SEC 

D(TAU1) 

First  Order  Pressure  Time  Constant 

SBC 

OT(TIND) 

Dummy  Variable 

- 

D(ZKTA) 

Damping  Factor 

- 
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6.57.7  SUBROUTINE  LISTING 


SUBROUTINE  PUMP57  (D  DT ,DD,L) 

C  *****  REVISED  OCTOBER  1979  ***** 

C  HYTRAN  EMPIRICAL  PUMP  MODEL  -  PUMP 5 7 

C  FIRST  AND  SECOND  ORDER  RESPONSE 

C 

COMMO  N  NT  EL  PL , NTO  LPL , I PT , I PO I NT , N  PT  S , I N  EL , KN  EL , NTOPL , NLPLT ( 6 1 , 3 ) , 
]  PQLEG(90, 12),LCS(90, 10) , ILEG( 1400) , PN(90) , QN(90) , PEX(90) 
COMMON/SUB/PARM(150,9) ,PM( 1500), QM( 1500), P( 300), Q( 300), C( 300) 

1 , Z( 300) ,RH0( 20) , S20RH0( 20) , VISC( 20) .BULK (20) , TEMP ( 20) ,PVAP(20) 

2, ATPRES,T,DELT,TFINAL, PLTDEL, PI .TITLE (20) ,LEGN, ICON 

3, KTEMP(99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC(99) , INX,INZ 

4 , INV , ISTEP , NLINE , NEL , IND , I ENTR , MNLINE , MNEL , MNLEG ,MNN0DE , MNPLOT 
5.MNLPTS ,MDS, YSCAL(61 ,2) 

DIMENSION  D( 20) ,DT(30) ,DD(1),L(5) 

INTEGER  RPM.RRPM , RQ , POF , PFF , QMAX , POUT , QMIN , TIMD , QOUT , TAU , TAU 1 
+  , OMEGA , RRQ , QLK , QT , ZETA , ATORQ , DELTAP , DEADBD , PRES  S , P VOL 
+  , QFINAL, DEI  AY , RESPON , PPOUT , FLOW , BULKO , ARR , NEWP , BEGPR 
C  D(  )  ARRAY  ***** 

DATA  RPM/ l/,RRPM/2/,RQ/3/,POF/4/,PFF/5/, OMEGA/6/, QLK/ 7/ , ZETA/ 8/ 

+  , QFINAL/ 9/ .DELAY/ 10/ , PVOL/ 11/ ,TAU/6/ ,TAUl/8/ 

C  DT (  )  ARRAY  ***** 

DATA  POUT / 1 / , QOUT / 2 / , DELTAP/ 3/ , ATORQ /4/.RESPON/5/.TIMD/6/, 

+  DEADBD/ 7/ , QMIN/8/ , QMAX/9/ , RRQ/ 1 0/ , QT/ 1 1/ , PPOUT/ 1 2/ 

+  , LEAK/ 1 3/ , FLOW/ 14/ , BULKO/ 1 5/ ,KON/ 16/ .PRESS/ 1 7/ 

+  .NEWP/ 18/ , BEGPR/ 1 9/ , ARR/ 20/ 

C 

C  L(2)-0  FIRST  ORDER  MODEL  :  L(2)-l  SECOND  ORDER  MODEL 

C 

C  L(3)-0  TURN-OFF  TRANSIENT 

C  L(3)-l  TURN-CN  TRANSIENT 

C 

IF(IENTR)  1000,2000,3000 
C  ***  1000  SECTION 
1U00  CONTINUE 

IF(INEL.NE.0)GO  TO  1500 
DO  1001  1-1,30 
1001  DT(I)-0.Q 
L(4)-0 

DT (RRQ ) -D (RQ ) *D (RPM ) /D (RRPM ) 

DT(QT)-D(QLK)+DT(RRQ) 

IF(L(2).EQ.O)CO  TO  1010 

DT(RESP0N)-SEC0RD(0. 0. ,D (OMEGA) ,D(ZETA) , DELT.DT(ARR) ) 

RETURN 

1010  CALL  TUSTIN(2,D(TAU),DT(5) ,DELT) 

CALL  TUSTIN(2,D(TAU1 ) ,DT( 12) , DELT ) 

RETURN 

STEADY  STATE  CALCULATION  SECTION 
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6.57.7  (Continued) 


1500  CONTINUE 

QA-PQLEG(INEL, 1) 

QS«PQLEG( INEL, 2) 

IF(QA*QS.LT.0.0)QA«0.0 
IF ( QA . GT . DT (QT ) ) QA-DT ( QT ) 

C  IF(QA.GT.DT(RRQ))GO  TO  1600 

DT(POUT)-D(POF)-( (D(POF)-D(PFF) )*QA/DT(RRQ) ) 

GO  TO  1700 

1600  DT ( POUT) -D ( PFF) - (D ( PFF) * (QA-DT (RRQ) ) / (DT(QT)-DT (RRQ) ) ) 
1700  CONTINUE 

N-LCS(INEL,2) 

QN ( N ) -DT ( POUT ) * 1 000 . -QA*  QS 
PEX(N)-1000. 

LCS(INEL,7)-5 

RETURN 

C  ***  2000  SECTION 
2000  CONTINUE 

D(RPM)-30./(D(RPM)*PI) 

IF(L(2).EQ.O)GO  TO  2200 
DT ( BEGPR ) -DT ( POUT ) 

DT(NEWP)-DT(POUT) 

DT ( PPOUT ) -DT ( POUT ) 

DT(QOUT)— Q(L(1) ) 

DT(FLOW)-DT(QOUT) 

DT(BULKO)-D(PVOL)/(BULK(KTEMP(IND))*DELT) 

DT ( KON ) -DT ( BULKO ) 

DT(ATORQ)-DT(POUT)*DT(QOUT)*D(RPM) 

DT ( DEADBD ) -D ( POF ) -D ( PFF ) 

DT(QMIN)-D(QFINAL) 

DT(QHAX)-DT(QOUT) 

IF(L(3) .EQ.0)G0  TO  2100 
DT(QMIN)-DT(QOUT) 

DT(QMAX)-D(QFINAL) 

2100  CONTINUE 

DT(PRESS)-D(POF)-( (D(POF)-D(PFF) )*D(QFINAL)/DT(RRQ) ) 
IF(DT(PRESS) .GT.D(POF) )DT(PRESS)-D(PQF) 

GO  TO  2300 
2200  CONTINUE 

DO  2210  1-15,18 
BT(D— Q(L(l)> 

2210  D? ( 1+4 )-DT( POUT) 

DT(ATORQ)«DT(POUT) *DT{ 15)*D(RPM) 

2300  CONTINUE 

C  WRITE(6,900)(DT(I), 1-1,30) 

900  F0RHAT(1X, IOE12.5) 

RETURN 
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6.57.7  (Continued) 


3000  CONTINUE 
Ll-L(I) 

IF(L(2).EQ.O)GO  TO  3400 
DT(P0UT)-C(L1)-Q(L1)*Z(L1) 

IF(L(4) . EQ. 1)  GO  TO  3100 
DT(DKLTAP)-DT(POUT)-DT(BEGPR) 

IF(ABS(DT(DELTAP) ) .LT.DT(DEADBD) >GO  TO  3200 
L(4)-l 

DT (TIMD )-T+D  (DELAY ) 

3100  CONTINUE 
C  TURN-ON  TRANSIENT 

XSIG-1. 

IF(T.LE.DT(TIMD))GO  To  3300 

DT(RESPON)-SECORD( l,XSIG,D(OMEGA) ,D(ZETA) ,DELT,DT(ARR) ) 

C  TURN-OFF  TRANSIENT 

IF(L(3).EQ.O)DT(RESPON)«1.-*DT(RE5PON) 
DT(FLOW)»(DT(QKAX)-DT(QMIN) )* (DT(RESPON) )+DT(QMIN) 

3200  CONTINUE 

DT(NEWP)-DT(BEGPR) 

IF (L(4) .EQ. 1)DT (NEWP)—DT( PRESS) 
i3UU  CONTINUE 

DT ( QOUT ) -DT ( FLOW) +DT (NEWP )*DT(B ULKO )-C(Ll )*DT(KON) 

DT  (  QOUT  ) -DT  (  QOUT  )  /  ( 1 . +Z  (  L 1 )  *DT  (  RON  )  ) 
DT(POUT)-C(L1)+DT(QOUT)*Z<L1) 

DT ( P POUT )-DT( POUT) 

GO  TO  3500 
3400  CONTINUE 

IF(DT(PQUT) .LT.D(PFF) )GO  TO  3420 

DT ( 16)-DT(RRQ)*(DT( POUT) -D( POP) )/(D(PFF)-D(POF)) 

GO  TO  3440 
3420  CONTINUE 

DT(16)»(DT(QT)-DT(RRQ) )*(DT(POUT)-D(PFF))/(-D(PFF) )+DT(RRQ) 
3440  CONTINUE 

DT(18)-DYNAM(DT(15) ,DT(17) ,DT(5) ) 

DT(20)-C(Ll)+DT(18)*Z(Li) 

DT(22)-DYNAM(DT(19),DT(21),DT(12)) 

DT(19)-DT(20) 

DT(2J)-DT(22) 

DT(17)-DT<18) 

DT(15)-DT(16) 

DT(FOUT)-DT(22) 

DT(QOUT)-DT( 18) 

3500  CONTINUE 

P(L1 )-DT(POUT) 

Q(L1)—  DT(QOUT) 

DT  ( ATORQ) -DT ( POUT ) *DT (QOUT ) *D (RPH) 

RETURN 

END 
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APPENDIX  D 
TYPE  *53  F-15  PUMP 

HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 
6.51  TYFE  #53  -  F-15  PUMP 


Pump  Outlet 


O  O  o  "***2 


O  O  O 


Compensator  Valve 


Stroking 

Piston 


Hanger 

QF7«0771  IJ 


FIGURE  6.53-1 

TYPE  NO. 53  PRESSURE  REGULATED  VARIABLE 
DISPLACEMENT  PUMP 


The  Type  53  model  which  simulates  an  Abex  F-15  hydraulic  pump  is  a  complicated 
subroutine.  The  F-15  pump  dynamic  characteristics  are  sufficiently  complex 
to  warrant  the  special  treatment. 

The  PUMP53  model  can  be  used  to  model  other  pressure  compensated  variable 
displacement  pumps.  When  modifying  the  pump  variables,  the  user  should  be 
careful.  A  pump  is  essentially  a  complex  underdamped  servo  system  which  is 
prone  to  instability,  and  it  is  easy  to  make  it  worse. 
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The  ABEX  F-15  pump  has  a  fast  response  going  from  10%  to  90%  stroke  in 
approximately  15  milliseconds,  so  the  user  should  take  care  in  designing  the 
system,  to  avoid  cavitation  problems,  caused  by  rapidly  changing  flow  demands 
in  the  suction  lines. 

The  F--L5  pump  input  data  is  specific  to  that  pump  and  cannot  be  used 
for  other  pumps. 
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Line  Number  (with  sign)  attached  to  Connection  1  (Inlet) 


Line  Number  (with  sign)  attached  to  Connection  2  (Outlet) 


Line  Number  (with  sign)  attached  to  Connection  3  (Case  Drain) 


Number  of  Pistons 


Temperature/Pressure  Code  (See  Page  4.0-2) 
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CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Pressure  at  which  valve  begins  to  open 
from  actuator  to  case 

PS  I A 

11-20 

E10.0 

Valve  spring  rate 

LBS/IN 

21-30 

E10.0 

Compensator  Valve  Area 

IN**2 

31-40 

E10.0 

Slot  width 

IN 

41-50 

£10.0 

Blank 

- 

51-60 

E10.0 

Valve  overlap 

IN 

61-70 

E10.0 

Piston  Area 

IN**2 

71-80 

i  . .  ■ 

E10.0 

Pagggr  ^tuator  ^ever  Arm  from  Hanger  Pivot  at 

IN 
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CARD  NUMBER  3 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Actuator  Area 

IN**2 

11-20 

E10.0 

Actuator  Pressure  Due  to  Spring  Force  at  Zero 
Pump  Displacement 

PS  I 

21-30 

E10.0 

Actuator  Pressure  due  to  Spring  Force  at  Maxi¬ 
mum  Pump  Displacement 

PS  I 

31-40 

E10.0 

Actuator  Pressure  Due  to  Piston  Acceleration 
@  3600  RPM 

IN**2 /SEC 

41-50 

E10.0 

Actuator  Pressure  Inputed  at  3600  RPM  and 

Zero  Pump  Displacement  + 

PS  I 

51-60 

£10. 0 

..1.1 1.  ,  — 

Actuator  Pressure  at  36C0  RPM  and  Maximum 

Pump  Displacement  + 

PS  I 

61-70 

E10.0 

Slope  of  Pressure  vs  RPM  Curve  + 

PS I /RPM 

71-80 

E10.0 

Hanger  Damping* 

PSI /IN/SEC 

*  -  Referenced  to  Actuator  Pressure 

+  >  Excluding  pressure  due  to  the  spring  and  pumping  piston 
accelerat ion. 
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CARD  NUMBER  4 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Theoretical  Maximum  Pump  Displacement 

IN**3/REV 

11-20 

E10.0 

Maximum  Actuator  Displacement  @  Maximum  Flow 

IN 

21-30 

E10.0 

Minimum  Actuator  Displacement  @  Minimum  Pump 
Flow  (  -ve) 

IN 

31-40 

E10.0 

Flat  Depth 

IN 

41-50 

E10.0 

Minimum  Actuator  Engagement 

IN 

51-60 

E10.0 

Coefficient  of  Pump  Leakage 

CIS/PSI 

61-70 

E10.0 

_  - 

Coefficient  of  Leakage  from  Case  to  Inlet 

CIS/PSI 

71-30 

E10.0 

Case  Volume 

IN**3 
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CARD  NUMBER  5 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Minimum  Inlet  Pressure 

PSI 

11-20 

E10.0 

Pump  Operating  Speed 

RPM 

21-30 

E10.0 

Hanger  Offaet 

IN 

31-40 

E10.0 

Maximum  Compensator  Valve  Displacement 

IN 

41-50 

E10.0 

Case  Drain  Port  Area 

IN*  *2 

51-60 

E10.0 

Rotating  Group  Mass 

LBS-SEC**?/IN 

61-70 

E10.0 

Actuator  Volume 

IN**3 

j  71-80 

E10.0 

_ 

Outlet  Volume 

IN**3 

EXAMPLE  CARD 


'|n  ■>  rj  ii  i.’  u  4  ii  8 


I  IV  • '/  ?. 0 


f  .  i-'44^:  .cii'd  i  r. 

»  44  ill  X.  *r  8  3.40  «  ./.»  ««  49  4.  J||»  49  '«  9l  9?  'll  94  ■'  91  7  (3  ‘  41  C 


o  o  o  o  c!o  o  i)  o  o  c  o  o  o  C'u|||  conoco 

i  7  »  4  9  |4  l  I  3  i  J'l  i*  iji;  .7  n  19  ,o .  .1,.. 

1  II  I  10  1  I  I  III  I  I  I  t’l  1  I  I  I  I  !  I  M 

1  I  1 

2  2222<7  2  2  2  2.7  2  2  2  2\l  2  2  7  2  2  2  2  7  2 

1  1 

3  3  3  3  3  3  3  3  3|,3  3  3  1  3'3  1 3  3J  3  3  3 

j  I  1  | 

4  4  4  4  4|4  4  4  4<1  4  4  4  1  4|  4  4  *  ";l  I  4  »  < 

t  ? '  4  4 ,1 1 1 1  .jii ,  r,  *i  (,n  I,-  4 11  '1  i, 

5  5  5  5  5  3  5  5|  V'l  5  5  5  ;'5  5  5  5  3  5  5: 

'|ii 

£  G  G  C  6,5  6  3  E  C>S  6  6  6  6,6  6  5  1  [.  $  6  3  6  L 

1  n :  ;'i  1 1  n\n  1 1  i'.i  m  n  n  1 1 


*  fir  .1  z*  ?»  .«  ?*  0  ft  :•»  ■  1  *1  v  •:  :«  u  w  ao  41  aj  4144  4'  4;  at  as  43  w  M  i*  mm  j,*  03  00 

0 o of  o|o 0  9  0  o|o  0  o|rj':.  c 0  n ijlo 00 0 0 o c c  f'ololob n  1?  n  olo 0  o  1  cj'  no n ojo 0  0  n 0 

. . .  •:  ••  •  n  ji  i.im'J.si;  ji  5?  >.<■.«  s;r-s  s:  J*. .  ■.:■!>•  *?i  UiWi'uc,.!  *  '  .  .  ?y4  n  ?i  9  to 

11  I  1  !|1  1  I  1  Ij!  1  I  1  1  1  H  I  lit  I  1  1  11  11  1  !JI  1 1 1  1  I  I  11  Iff  ill  1  1  M  Mil  11  11 

2  2  2  7  2i2  2  2  7  212  2  2  2  ?  2  2  2  2  2‘2  2  2  1  2  2  2  2  2  2\2  2  2  2  2  2  2  2  2  2I2  2  2  2  2  2  2  2  2  2<2  2  2  2  2 

I  1  1  1  1 

3  3|  3  3  3  3  3  3  3|3  38  3  3  3  3  3  3  |.l  3  3  3  3  3  3  3  1  3|  J  3  3  3  3  3  3  3  3'3  3  3  3  1  3  3  3  3  3  3  3  3  3  | 

4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  >.  4,3 114  <4  4  4  ♦  <'4  4  4  4  9  4  4  4  4  4,1  4  !  4  4  4  4  4  4  Ml  4  1  4 

3 i  -j  !■.  J-  31  )M  4i  «:  «*©  r-*ij  .  i  Hi  5)  mo-  »r  »l»  **  i-  i<  i*  ■  >  >iht9 

5  5  5  :■  3  r-  5  »  bii  b  b  5  Lb  5  J  j  G.b  b  b||jb  5  b  b  bib  b  b  b  b  b  b  5  b  5.3  3  u  ;  5|'  3  .,.'5  5  5  5 


J3  3  3  3  1  3 
ii  4  !  4  4  4 


3  III  C"j  c  5  C|  I  8  I  8  8,3  3  i  8|  4  3  8  8  l|l  l|  £  i  4  8  8  8|4  3i|  C|j<  8  8  S  I' 

'  i  1  1  1  i 

5  3  9  9  G  1  9  9  I  9,1  9  3  9  3  3  1  9  9  9  9  9  3  9  9  9  9  c.  '  1  '  3  5,5  5  9  9  "  9  9  “  9 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  1  4,4||  4  4  4  4  4  4  4'4  4  4  4  |4  4  4  4  4jl  4  !  4  4  4  4  4  4  ' 

j.  ji  |«i  if  <:  m '*ij  .  s  SMI o-fr  u  *;  fjiu.j 

5  5  5  6  5 r'  5  5  5j5  5  5  5  3.5  5  5  5  3,5  5  5|1 5  5  5  5  5[5  5  5  5  b  5  5  5  5  5,5  5  a  :  5 '  G  J  . 

i  i  |  i  ,  * 

5  3  „|,j  6  C  4  6'6  6  6  G  i j.  6  E  3  C5  6  0  5  E  S  i,  E  6  t.G  6  £  G  Gl.i  b  6  S  6'6  6  ‘3  G  3  6  r>  „ 

I  1  '  ! 

i ;  1 1  i:i  1 1 1  r,i  i  mil  1 1  n  i  n  '  1 1  ?i  i  vi  1 1 1 1 !  n  i  ri  i  ii  i  ri ,  >  i 

I  '  1  •  j  ; 

l|  £  i  4  5  8  8  f|i  3i|  (|ge  8  8  5  fc';  I  t  Z  f .8  8  3  3  l|l  I  £  S  !  3  1  M  i  1  S  |,  5  8  8  G1 


,M414 

■  .  iil'lM 

'  5  5  0  5 

i 

•£  .  w  C  r> 

■  . 

'  9  *  ’  •  I 


9  9  9  5  >  “i  ‘  3  5ib  b  9  J  9  1  «  «  9  1.  I  J  J  S  «J  »  M  1«  J  $  M|5  1  3  Mii  •  »  9  •  I  •>  '4 

i  9  '  3'4.t  #.  •  81V,.  4  •  4  9  •  v|si  V  *1  s«  V  lV.  V  U  •.<  V  r  «-N>»  »  *'  oj  It 

MAC  507SN  wrv  .'G  f;  I  PCI 


APPENDIX  D  (CONT.) 

SUBROUTINE  PUMP  53 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL.  II) 

6.53  SUBROUTINE  PUMP53 

Subroutine  PUMP53  was  set  up  to  model  an  F15  pump,  which  Is  basically 
a  simple  in  line  piston  pump,  though  it  incorporates  many  mechanical 
refinements  and  sophisticated  design  features.  The  model  is  intended  for  use 
by  system  designers  and  is  primarily  aimed  at  the  study  of  pump  system 
stability  under  dynamic  loading  conditions. 

The  model  incorporates  the  effects  of  case  drain  dynamics,  since  the 
F15  pump  output  pressure  is  referenced  to  case  and  the  actuator  discharges  to 
the  case,  and  displaces  case  volume  when  it  is  moving.  The  treatment  of 
leakage  and  damping  characteristics  are  rudimentary. 

The  dynamics  of  the  hanger  are  complex.  For  the  model  the  effects  of  the 
dynamic  forces  on  the  actuator  are  included.  These  forces  push  the  pump  to 
maximum  flow,  the  hanger  spring  provides  this  force  on  start-up. 

In  addition  the  hanger  offset  creates  a  negative  flow  at  the  pump  inlet 
and  outlet  when  the  hanger  is  moving  toward  maximum  flow,  and  this  has  a 
destabilizing  effect,  when  the  hanger  response  is  very  fast. 

Some  of  the  hanger  forces  are  oscillatory  but  no  attempt  has  been  made 
to  describe  this  effect,  except  that  the  magnitude  ia  sufficient  to  keep  the 
hanger  in  motion,  so  the  effects  of  static  friction  lo  ignored.  This  is  an 
assumption  that  helps  the  simulation  by  keeping  the  integration  of  the  hanger 
velocity  a  continuous  function,  between  its  mechanical  stops. 

The  compensator  valve  dynamics  are  a  significant  part  of  the  su>del. 

The  forces  on  the  velve  ere  a  combination  of  the  outlet  pressure  force  pushing 
against  the  case  pressure  and  spring  forces,  with  deeping  and  flow  forces 
acting  in  either  direction.  • 

The  damping  and  flow  forces  are  setimates  using  classical  formulae. 
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Under  certain  conditions,  the  pump  compensator  valve  responds  to  the 
oscillatory  pressures  caused  by  the  pump  pulsations.  While  no  attempt  has 
been  made  to  describe  how  these  are  generated,  provisions  have  been  added  so 
their  effect  on  the  compensator  can  be  determined. 

The  compensator  valve  on  the  F15  io  overlapped,  but  under  certain 
conditions  the  pulsations  can  cause  the  valve  to  dither,  reducing  the  effect 
of  the  overlap  and  changing  the  response  characteristics  of  the  pump. 

The  damping  and  flow  forces  are  included  because  of  the  fast  response 
of  the  compensator  valve. 

6.53-1  Math  Model 

A  simplified  diagram  of  the  pressure  regulated  variable  displacement 
pump  is  shown  in  Figure  6.53-1. 

An  equivalent  circuit  schematic  diagram  for  the  pump  model  is  shown  in 
Figure  6.53-2. 

Pump  Displacement  Flow 

For  the  pump  inlet  the  displacement  flow  is  computed  as  fellows: 

QPUMP  -  D(D1SP)*DT(PRPM)*(DISACT) 

if  D(DISAMI)<DT(DISACT)<D(DISAM)WHERE  D(DISP)  “  D(DISP)/60./D(DISAM) 
or  QPUMP  *  QINLET  +  QCASIN 
if  PINLET<PINMIN 
Actuator  Pressure 

The  actuator  pressure  is  based  on  the  contributions  of  the  spring  force, 
case  pressure,  outlet  pressure  and  pump  rpm,  plus  the  reaction  force  due  to 
velocity  damping  which  is  generated  when  the  hanger  ia  moving.  The  input 
data  establishing  actuator  pressure  for  pwp  operating  conditions  is  modified 
to  give  a  simpler  algorithm  for  the  transient  calculations. 
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Figure  6.53-2 

SCHEMATIC  DIAGRAM  FOR  F-15  PUMP  MODEL 
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The  input  data  gives  the  actuator  pressure  due  to  the  spring  force  at 
maximum  flow,  D(PSPRIM)  and  at  zero  flow,  (D(PSPRIZ).  P(PZRPM)  is  input  as 
the  pressure  at  zero  actuator  displacement  and  3600  rpm.  It  is  then  modified 
to  give  the  pressure  at  zero  rpm  by  subtracting  from  it  the  slope  of  the 
pressure  versus  rpm  curve,  which  is  input  as  D(PSLRPM). 

Using  the  F-15  pump  experimental  data  and  the  actuator  pressure  predic¬ 
tions  generated  by  the  HSFR  program,  a  formula  was  derived  which  related 
actuator  pressure  to  the  output  pressure/bulk  modulus  ratio. 

The  test  data  collected  at  different  fluid  temperatures  showed  a  need 
for  temperature  correction  which  was  obtained  via  the  bulk  modulus.  A 
correction  factor  DT(BULKO)/DT(POUTLT)  is  used  where 
DT(BULKO)  -  BULK(KTEMP(IND) )  *DT(DPVOA)/223000. 

DT(DPVOA)  is  the  reference  pressure  and  223000  is  the  reference  bulk 
modulus  of  MIL-H-5606B  at  3000  psi  and  130°F. 

The  reference  actuator  pressure  for  this  time  step  is  then  computed  as 
PACTUR  -  D(PSPRIZ)+PDISA*D(PSRIM)  -  V0LD*D( INERT) 

+  PDISA*(D(PACCP) *DT(PRPM)**2  +  D(PDISAC)) 

+  DT(PCASE)  +  (D(PZRPM)  +  D(PSLRPM)*DT(PRPM) ) 

*DT (BULKO) /DT (P0UTLT) 

where 

PDISA  -  PREDICTED  ACTUATOR  POSITION  BASED  ON  THE  PREVIOUS  POSITION  AND 
VELOCITY 

(-DT (DISACT) +DT ( VELACT) *DELT) 

VOLD  -  ACTUATOR  VELOCITY  (IN/ SEC) 

D(PACCP)  -  D(PACCP)/(D(DISAM) *3600**2) 

D(PACCP)  IS  INPUT  AS  THE  PRESSURE  DUE  TO  PISTON  ACCELERATION 
AT  3600  RPM  AND  MAXIMUM  STROKE 
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D(PSPRIM)  =  (D(PSPRIM)-D(PSPRIZ) ) /D(DISAM) 

D(PSPRIM)  IS  INPUT  AS  ACTUATOR  PRESSURE  DUE  TO  SPRING  FORCE 
AT  MAXIMUM  PUMP  DISPLACEMENT 

D(PDISAC)  =  (D(PDISAC)-D(PZRPM) ) /D(DISAM) 

D(PDISAC)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
MAXIMUM  PUMP  DISPLACEMENT 

D(PZRPM)  *  D(PSRPM)-D(PSLRPM)*3600 

D(PZRPM)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
ZERO  PUMP  DISPLACEMENT 

The  actuator  pressure  and  damping  characteristics  are  important  variables 
since  they  govern  how  fast  the  pump  goes  from  zero  to  full  flow.  No  easy 
way  exists  to  obtain  these  values  accurately  from  purely  dimensional  data. 

The  HSFR  program  is  able  to  get  within  30%  of  the  measured  actuator  pressure 
and  gives  reasonable  predictions  of  the  variations  with  temperature  and  rpm. 
Measurements  of  actuator  pressure  and  damping  characteristics  require  a 
complex  set  of  instrumentation  and  analysis  of  the  data,  to  extract  the  variables 
would  require  inspired  judgement.  Therefore  a  reasonable  initial  actuator 
pressure  D(PZRPM)  which  includes  estimated  values  for  the  contributions  of 
the  spring  is  800  psl.  Other  contributions  to  actuator  pressure  are  input  as 
zero. 

Compensator  Valve 

The  compensator  valve  position  la  assumed  to  be  directly  proportional 
to  the  differential  pressure  between  outlet  and  case.  The  lag,  due  to  the 
valve  damping  and  hanger  inertia  is  included  in  the  computation  of  the 
actuator  pressure  as  shown  in  the  INERT  and  DAMP  terms  of  Figure  6.51-2. 

The  valve  spring  rate  D(INPPSI)  Is  input  in  lbs/in  and  converted  to 
ln/psi. 
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D(INPPSI)  =  D(ARCOM) /D (INPPSI) 

The  differential  pressure  at  which  the  valve  opens  from  actuator  to  case 
D(DPVAC)  is  used  to  determine  the  valve  position.  Two  pressures  POUTMX  and 
POUTMI  are  derived,  POUTMX  is  the  maximum  outlet  pressure  that  can  be  obtained 
assuming  zero  flow  from  the  outlet  to  the  actuator. 

POUTMX  =  (C2/Z(L2)  +  QPUMP  +  DT(PCASE)*D(COEPLK)  +  D(VOLOUT)*  OPOUT)*ZOUT 

where 

ZOUT  =  Z(L2)/ (1.0  +  Z(L2)*D(COEPLK)  +  Z (L2) *D(VOLOUT) ) 

QPUMP  =  DT(QINLET)  +  QCASIN  +  QOSIN 
The  ZOUT  term  includes  the  impedance  of  the  outlet  volume  (D(VOLOUT)). 

The  minimum  pressure,  POUTMI,  which  is  the  outlet  pressure  when  the  valve 
is  just  about  to  open  to  case  is  D(DPVAC) . 

The  actual  outlet  pressure  lies  between  these  limits  and  is  obtained  by 
iteration.  The  valve  orifice  area  is  calculated  for  any  position  of  the 
valve  and  the  inlet  port  and  is  directly  proportional  to  outlet  pressure. 

The  valve  displacement  is 

DISOC  -  -  D ( INPPSI ) *DT (POUTLT) +DT ( COMVAL) 
where  DT( COMVAL)  =  D(VOVLP)  +  D(INPPSI)*D(DPVAC) 

Flow  From  Outlet  to  Actuator 

When  DISOC  is  less  than  -D(VOVLP)  the  valve  is  open  from  the  outlet  to 
the  actuator.  A  flow  force  displacement  acts  to  close  the  valve  and  Is  computed 

aS  DT(PSIF)  «D (FLOFRC) *DT (DIS ) * (DT ( POUTLT) -PACTU0) 

Where  DT(DIS)  is  the  actual  valve  opening  L  »  ABS (DISOC) -D (VOL VP)) 

The  open  slot  width  is 

DT(DIS)  -  DT (DIS) -DT (PSIF) 

The  orifice  areas  is  easily  computed  since  the  F-15  pump  has  square 
metering  ports. 
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An  orifice  discharge  coefficient  is  computed  based  on  the  diameter  ratio 
between  the  equivalent  diameter  of  the  flow  area  to  the  slot  width  equivalent 
diameter  and  the  Reynolds  number  of  the  previous  actuator  flow. 

The  computed  actuator  pressure  and  flow  is  based  on  outlet  pressure, 
actuator  leakage,  damping  inertia  and  actuator  fluid  compressibility  as  shown 
in  Figure  6.53-2.  When  the  actuator  is  bottomed  the  damping  and  inertia 
terms  are  ignored. 

An  iterative  procedure  is  needed  to  compute  the  actuator  pressure  and 
flow.  Since  the  F-15  pump  is  essentially  a  closed  loop  servo,  a  gain  term  was 
calculated  as: 

GAIN  -  0.7/(1.+20.*S20RHO(N)*D(INPPSI)*Z(L(@))*.65*  D (WIDTH)) 

For  the  initial  guess  of  outlet  presure  DT(POUTLT)  is  computed  at 
DT  ( I  TUP )  *POUTMX  +  DT(MITUP)  *POUTMI .  (DT(ITUP)-fGAIN,  DT(11ITUP)+1 . -GAIN) 

This  pressure  is  used  to  compute  the  valve  position,  area,  and  flow,  DT(QACTU) , 
into  the  actuator.  The  actuator  flow  is  then  used  to  recompute  the  pressure 

TPOUT  =  PUTMX  -  DT (QACTU) *ZOUT 

A  check  is  made  to  see  if  the  recomputed  flow  is  within  .05  psi  of  the  pressure 
valve  and  if  it  is  not,  the  outlet  pressure  is  updated  by 

DT(POUTLT)  -  DT ( POUTLT ) *DT (MITUP )  +  TP0UT*DT(ITUP) 

The  choice  of  the  DT (MITUP) /DT(ITUP)  ratio  and  the  initial  guess  ratio 
of  DT ( ITUP )/ DT (MITUP )  was  made  using  an  actual  closed  loop  gain  for  the  F-15 
pump.  For  other  pumps,  adjustments  of  these  ratios  could  reduce  the  number 
Closed  Valve 

When  the  valve  is  within  the  overlap  region,  the  valve  flow  and  pressure 
are  computed  based  on  leakage  due  to  diametrical  clearance  and  overlap  of 
the  compensator  valve. 
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Derivation  of  Equations  for  a  Closed  Valve 

A  schematic  diagram  o£  the  leakage  paths  for  a  closed  valve  is  shown 

in  Figure  6.53-2.  The  actuator  net  flow  is  zero.  The  actuator  pressure  is 
determined  from  the  diametral  leakages  past  the  valve,  the  actuator 
leakage, and  a  compressibility  flow.  A  flow  balance  equation  for  the 
actuator  pressure  can  be  written  as 

DT(QACTU)  -  QCOMP  +  QLEAK  +  QCASE  (1) 

where 

DT(QACTU)  "  flow  from  outlet  to  actuator  (CIS) 

QCOMP  *  compressibility  flow  (CIS) 

QLEAK  actuator  leakage  flow  (CIS) 

QCASE  *  flow  from  actuator  to  case  (CIS) 

Each  flow  can  be  defined  as: 

3 

DT(QACTU)  =  pvl 3~ 8  2~  <DT (pouTLT>  “  DT(PACTU)) 


where  D  » 
b  - 

p\>  » 


A* (DT (POUTLT) -DT (PACTU) ) 

compensator  radial  distance  (IN) 

radial  clearance  (IN) 

absolute  viscosity  (lb-sec) 

in^ 


L  -  lap  distance  (IN) 

QCASE  -  Db3  (DT (PACTU ) -DT (PPCASE) ) 

pvL (D (VOVLP) -L) 3 . 82 

-  B*  (DT (PACTU)  -  DT (PPCASE)) 


where 

D (VOVLP)  -  valve  overlap  (IN) 
QLEAK  -  COELKA* (DT (PACTU )  -  DT (PPCASE)) 


(2) 


(3) 
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QCOMP  -  DT ( BULKA) * (DT ( PACTU ) -PACTUO ) 

Substituting  equations  (2),  (3)  aud  (4)  into  equation  (1)  after 
eliminating  DT (PACTU)  and  grouping  terms  one  can  write: 

DT (QACTU)«*DT (POUTLT)* (DT ( BULKA) +COELKA+B)  -  PACTUO*DT( BULKA) 

-  DT (PPCASE) * (COELKA  +  B)-DT ((JACTU) (DT (BULKA)+COELKA-f-B) 

A 

Let  CC  *  DT  (BULKA)  +  C0ELKA4-B 
Solving  for  DT(QACTU) 

DT(QACTU)  -  DT  (POUTLT)  *CC*  -  PACTUO*DT (BULKA) -DT(P?CASE)*(COELKA+B) 


The  actuator  pressure  can  be  written 
DT  (PACTU)  -  DT  (POUTLT)  - 

A 

Similarity  the  other  flows  can  now  be  solved. 


(4) 
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Flow  From  Actuator  Piston  to  Case 

When  DISOC  is  greater  than  D(VOVLP)  the  valve  opening  is  computed  as 
DT(DIS) “  DISOC  -  D(VOVLP) 

The  opening  is  modified  by  the  flow  force  and  a  discharge  coefficient  is 
computed.  The  valve  is  open  allowing  flow  out  of  the  actuator  so  that  the 
pump  flow,  QPUMP  increases.  The  valve  displacement  area  and  flow  (DT(QACTC)) 
are  calculated.  Since  the  flow  does  not  affect  outlet  pressure,  no  iteration 
is  necessary. 

The  actuator  leakage  to  case  is  assumed  to  be  laminar  since  the  passage 
is  small  around  the  actuator  barrel.  The  actuator  leakage  is  computed  as 
QACTLK  *  COELKA* (DT(PACTU)  -  DT(PPCASE)) 
with  all  the  actuator  flows  known,  the  actuator  velocity  is  calculated 
DT(VELACT)  *  -FLOW/D (APACT) 

where  flow  has  been  determined  from  the  valve  positon  and  subsequent  flow 

pressure  balance.  The  new  actuator  position  is  then 

DT(DISACT)  -  DT(DISACT)  +  (VOLD+DT ( VELACT) ) *BELT/ 2 . 

A  check  is  made  to  determine  if  the  actuator  is  at  the  stroke  limits. 

If  it  is  the  actuator  flow  must  be  recalculated.  If  the  actuator  is  at 
maximum  stroke  (fully  retracted  with  the  pump  at  full  stroke)  then  the 
actuator  pressure  drops  to  case  pressure  and  DT(QACTC)  is  set  to  zero. 

If  the  actuator  is  at  minimum  stroke  (with  the  pump  outlet  flow  negative) , 
then  DT(QACTU)  and  DT(PACTU)  have  to  be  recalculated  so  that  the  actuator 
leakage  flow  can  be  determined. 

Pump  Outlet  Pressure  and  Flow 

After  the  actuator  pressure  flows  and  valve  outlet  pressure  DT(POUTLT) 
are  computed,  pump  outlet  flow  is  calculated  as: 

Q(L2)  -  - (QPUMP-QPLEAK-DT(QACTU)- (DT (POUTLT)-OPOUT) *D(VOLOUT) ) 


Actual  pump  output  pressure  la  then 
P(L2)  -  C(L2)-Q(L2)*Z(L2) 
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Punp  Case  Outlet  Pressure  and  Flow 


The  case  outlet  flow  Is  determined  using  the  schematic  of  Figure  6.51-2 
to  write  a  second  degree  equation  for  case  drain  flow: 

DT (COECAS) *Q (L3) **2+ (Z (L3)+DT(BULKC) ) *Q(L3) 

-  (DT  (PCASF,)+QCASDR*DT  (BULKC)  -C  (L3)  )  -0 
where  DT(PCASE)  Is  the  previous  time  step  value  of  case  pressure. 

The  above  equation  Is  solved  for  Q(L3)  and  the  case  pressure  Is 
computed  as 

DT(PCAS£)-DT (PCASE)+(QCASDR+Q(L3) ) *DT (BULKC) 

The  outlet  case  pressure  is  then 
P(L3)  -  C(L3)-Q(L3)*Z(L3) 
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6. 53. 2  Assi»ptlons 

The  assumptions  in  a  model  of  this  nature  are  almost  too  many  to 
enumerate.  By  its  very  nature  the  pump  is  a  complex  piece  of  equipment  with 
multiple  leak  paths  across  the  port  plate,  down  the  side  of  the  piston  and 
out  of  the  shoes.  The  whole  set  of  leak  paths  have  been  linearized  and 
assumed  to  be  constant  for  a  constant  output  pressure,  which  is  no  doubt 
rather  hard  to  accept.  The  alternative  would  be  go  into  very  detailed 
calculations  with  the  leakage  dependent  on  the  piston  load,  hanger  angle,  RPM 
and  anything  else  one  could  add.  Unfortunately  this  too  would  probably  be 
inaccurate  so  instead  of  an  inaccurate  complex  leakage  model  we  choose  a 
simple  leakage  model,  which  could  be  improved  when  more  data  is  available 
from  the  verification  tests. 

The  forces  on  the  hanger  are  not  taken  into  account  as  it  rotates 
only  the  hanger  inertia  and  piston  acceleration.  Flow  and  leakage  are  all 
treated  as  though  the  pump  had  a  continuous  output  rather  than  the 
individual  pumping  pistons. 

In  all  the  calculations  the  bulk  modulus  is  treated  as  a  constant  for 
the  high  pressure  (output)  side  and  as  a  different  constant  for  the  low 
pressure  (inlet)  side,  the  elastic  expansion  of  the  volume  cavities  is 
included. 

Friction  effects  have  not  been  included  primarily  because  of  the  cost 
of  putting  them  in,  but  in  actual  fact  the  forces  on  the  hanger  have  an 
oscillatory  content  which  tend  to  keep  it  in  motion.  The  pulsations  of  the 
outlet  also  tend  to  keep  the  valve  in  motion  so  that  friction  effects  would 
not  normally  be  significant. 
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6.51-3  Computation 

The  pump  subroutine  is  set  up  using  the  HYTRAN  program  commons,  plus 
the  D,  DT,  DD,  and  L  arrays. 

1000  SECTION 

In  the  1000  section  the  constants  are  initialized  where  desirable  for 
more  efficient  computation. 

The  remaining  part  of  Section  1000  deals  with  the  calculations  of  the 
steady  state  pump  characteristics. 

In  order  to  balance  the  pump  at  some  steady  state  condition,  it  is  first 
necessary  to  establish  what  the  pump  characteristics  are,  over  the  maximum 
range  of  pump  flow. 

It  was  assumed  that  these  characteristics  could  be 
approximated  by  a  straight  line  interpolation  between  the  pump  conditions 
at  maximum  and  minimum  flows  which  correspond  to  zero  and  maximum  actuator 
displacement  respectively. 

A  chain  of  interdependent  calculations  are  needed  to  derive  the 

and  minimum  conditions  for: 

DT(PACTU)  “  Actuator  pressure 

DT(QACTC)  ■  Flow  from  actuator  to  case 

DT(QACTU)  *  Flow  from  outlet  to  actuator  through  the  valve 

QACTLK  «*  Actuator  Leakage  flow 

DT(DISVLV)  *  Valve  displacement 

DT(POUTLT)  -  Valve  chamber  pressure  which  is  the  same  as  outlet  pressure 
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The  initial  flows  (QACTU  and  QACTC)  are  computed  at  the  appropriate 
valve  positions  and  this  information  is  used  in  the  steady  state  portion  of 
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the  program. 
1500  SECTION 


Steady  State  Calculations 

The  pump  which  has  three  connections,  has  a  node  located  at  the  inlet. 
The  leg  which  has  the  inlet  connection  receives  the  pump  inlet  pressure 
from  the  steady  state  routine. 

For  the  leg  which  has  the  outlet  connection  as  its  first  element,  a 
value  of  the  output  flow  ratio  is  computed  as 


DT(DISVLV) 


QGUESS-DT (QOUTLT) 

DT (QINLET) -DT (QOUTLT) 


The  ratio  is  calculated  to  determine  the  percentage  of  actuator  flow 
that  is  actual  leakage  flow  (QACTLK)  into  the  pump  case. 


The  output  pressure  rise  is  determine  by  the  computed  maximum  outlet 
pressure  at  maximum  valve  displacement  DT(POUTM)  minus  the  pressure  drop  from 

case  to  inlet,  DT(DELP13). 


The  outlet  pressure  rise  is  added  to  PQLEG(INEL,  5)  and  the  output  lmtedance 
(.00001)  is  added  to  PQLPG ( INEL ,  6). 

DT (POUTLT)  is  initialized  to  DT(POUTM)  -  DT(DELP13) 

And  the  outlet  pressure  PQLEG  (INEL,  11)  is  also  increased  by 
DT(POUTM)  -DT(DELP13). 

LCS (INCL ,  7)  is  set  to  5  which  means  that  the  LEG  formulae  must  be 
recalculated  for  every  Iteration  because  of  the  variation  in  inlet  pressure. 

The  call  for  CON  #3,  the  case  drain,  first  gets  the  value  of  the  flow 
guess  for  the  case  drain  flow  and  then  calculates  the  actuator  leakage  based 
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on  the  outlet  How  ratio. 
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QACTLK  «*  DT (DI SVLV)  *  (DT  (QACTC)  -DT  (QACTU)  )4-DT  (QACTU) 

The  pressure  rise  from  Inlet  to  case,  DT(DELP13)  is  then  calculated  using  the 
sum  of  the  leakage  flows  divided  by  the  coefficient  of  case  to  inlet  leakage, 
D(COECIN).  Since  DT(DELP13)  is  based  on  a  case  drain  flow,  QCASDR/D(COECIN) 
is  added  along  with  DT(DELP13)  to  PQLEG  (INEL,  3)  for  the  constant  pressure 
rise  temperature. 

1/D(C0ECIN),  the  case  drain  impedance  is  added  to  PQLEG(INEL,  6)  and  LCS 
(rNF.I,,  7)  is  set  to  5  so  that  the  leg  must  be  recalled  each  iteration  since 


PQLEG  (INEL,  11)  is  increased  by  DT(DELP13)  and  DT(PCASE)  is  initialized 
to  PQLEG  (INEL,  11). 

A  test  at  the  start  of  both  the  case  drain  and  outlet  calculations  checks 
to  see  if  INX  =  1  which  can  only  be  true  if  CON  2  and  3  are  the  first  or  only 
elements  in  this  leg. 

The  calculation  method  uses  two  interdependent  pressure  rises  in  two 
separate  legs. 

2000  SECTION 

With  the  completion  of  the  steady  state  calculations,  where  DT(PCASE), 
DT(POUTLT)  and  DT(PINLET)  are  initialized  and  a  value  for  DT(DISVLV)  is 

calculated,  the  pump  variables  can  be  initialized  for  the  transient 
simulation. 

The  ratio  DT(DISVLV)  is  used  to  initialize  DT(DISACT)  and  DT (QACTU) . 
Actuator  velocity,  DT(VELACT),  valve  displacement,  DT(DISVLV),  and  DT(QACTC) 
are  set  to  zero. 
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3000  SECTION 
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The  3000  section  starts  with  a  computation  predicting  the  actuator 
displacement  lor  the  current  time  step.  This  value  Is  used  In  the  computation 
of  the  actuator  pressure. 

The  pump  Inlet  pressure  Is  determined  from  the  Input  Impedance,  Zll.l), 
a  pump  inlet  to  case  coefficient  and  pnmp  flow  as  shown  In  the  equivalent 
schematic  diagram  of  the  pump  Inlet  model,  Figure  6. ‘>3-2. 

The  next  step  Is  to  determine  the  minimum  (I’OUTMI)  and  maximum 
(POUTMX)  pump  output  pressure  range.  The  compensator  valve  displacement  Is 
then  computed  using  an  iterative  technique  as  explained  In  the  math  model 
section.  Once  the  valve  position  Is  known  the  actuator  pressure  and  flow 
Is  computed  along  with  the  pump  outlet  pressure  and  flow. 

The  position  ol  the  valve,  determines  whether  the  actuator  flow  Is  going 
from  the  outlet  to  the  actuator  or  from  the  actuator  to  case.  The  two 
equivalent  circuit  schematics  used  in  the  solution  process  are  shown  In 
Figure  6.53-2. 

Figure  6.53-2  also  shows  the  schematic  Tor  computing  the  case  druln 
output  pressure  and  flow.  QCASDR  is  the  sum  of  all  flows  into  and  out  of 
the  case: 

QCASDR  -  QPLEAK  +  QACTLK  +  DT(QACTC)  -  D(ARACT)*DT(VELACT) 

-  QCASIN  -  Q0SIN*2. 

DT(BULKC)  is  the  impedance  of  the  case.  it  is  computed  ns  the  fluid  bulk 
modulus  tiroes  DELT  divided  by  the  cuse  volume. 

The  final  values  of  outlet  and  case  drain  pressures  and  flows  are 
passed  to  the  appropriate  P  and  Q  arrays.  The  pump  output  horsepower  is 
computed  as: 
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POWER  =  -Q(L2)*(P(L1)) /6600.0 

A  case  pressure  is  computed  using  a  simple  integration. 

DT (PPCASE) =2*DT (PCASE) -DT(PPCASE) 

where 

DT (PCASE) -LATEST  CASE  PRESSURE 
DT (PPCASE) -PREDICTED  CASE  PRESSURE 

If  the  pump  inlet  pressure  is  less  than  theraLnimum  pump  inlet  pressure, 
a  message  is  printed  that  gives  the  time  at  which  pump  cavitation  occurs. 

The  inlet  flow  is  calculated  using  the  minimum  inlet  pressure,  D(PINMIN), 
instead  of  the  inlet  pressure,  P(L1) .  The  net  flow  is  calculated  and  sub¬ 
tracted  from  the  old  cavity  flow. 

DT(QCAV)  =  DT(QCAV)  -  DT(QCNLET)-QCASIN 

The  value  of  DT(QCAV)  is  stored  for  the  next  time  step  and  the  cavitation 
model  will  control  the  inlet  pressure  until  the  pressure  rises  again  and  the 
flow  refills  the  cavity. 


6.53.4  Approximations 
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The  approximation  used  in  the  program  is  the  rather  gross  linearization 
between  maximum  and  minimum  flows  used  in  the  steady  state  calculations. 

The  remaining  calculations  follow  the  math  model  which  is  itself  a  large 
approximation. 

6.53.5  Limitations 

The  current  pump  subroutine  does  not  attempt  to  describe  the  true 
cavitation  effects  that  can  be  caused  by  improper  filling  of  the  pistons. 

The  effect  on  hanger  angle  and  RPM  vary  greatly  from  pump  to  pump. 

However,  it  is  also  a  condition  which  the  designer  should  avoid,  by 
improving  the  pump  inlet  supply  system,  to  prevent  the  inlet  pressure  dropping 
to  the  point  where  cavitation  effects  are  a  concern. 

Another  limitation,  is  the  correct  steady  state  prediction  of  pump 
outlet  pressure,  when  the  system  flow  exceeds  the  pump  capacity.  The  transient 
section  will  limit  the  flows,  but  flow  limitatijn  is  not  included  in  the 
steady  state  section. 
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6.53.6  Variable  Names 


Name 

Description 

Dimension 

A 

Leakage  coefficient  from  actuator  to  case 

PSI/CIS**2 

ACTRAD 

Actuator  Radious 

IN 

AEE 

Computation  Constant 

- 

APIS 

Piston  Area 

IN**2 

ALPHA 

Computation  constant 

- 

D(ARACT) 

Actuator  area 

IN**2 

D(ARCOM) 

Compensator  valve  area 

IN**2 

AREA 

Compensator  valve  flow  area 

IN**2 

AREF.ASEC, 

ATHE.AL, 

B, BETA, BEE 

Computation  constants 

— 

DT(BULKA) 

Impedance  of  actuator  volume 

PSI/CIS 

DT(BULKC) 

Impedance  of  case  volume 

PSI/CIS 

DT(BULKO) 

Oil  bulk  modulus 

PSI 

C.CKI.CC 

Computation  constants 

- 

D(COEALK) 

Actuator  flat  depth 

IN 

D(COEALM) 

Minimum  actuator  engagement 

IN 

DT(COEALS) 

Dummy  variable 

- 

DT(COEALZ) 

Dummy  variable 

- 

D(COECAS) 

Constant  term  use  to  determine  case  outlet 
pressure  drop 

PSI/CIS**2 

D(COECIN) 

Coefficient  of  flow  from  case  to  inlet 

CIS/PSI 

COELKA 

Dummy  varicble 

- 

D(COEOSO) 

Coefficient  of  outlet  flow  due  to  actuator 
motion 

CIS/ (IN/SEC) 

D(COEPLK) 

Coefficient  of  pump  leakage  (outlet  to  case) 

CIS/PSI 

DT(COMVAL) 

Computation  constant 

- 
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Name 


Dimension 


CON A, CON B 

Cl 

C2 

C3 

DT(COMl), 

DEE 

DT(DELP13) 

DT(DELP23) 

DT(DIS) 

DT(DISACT) 

D(DISAM) 

D(DISAMI) 

D(DISP) 

DT(DISVLV) 

D(DISVM) 

DPDAMP, 

DT(DOPEN) 

D(PPVAC) 

DT(DPVOA) 

DPI ,DP2 , 

DRATIO, 

DT(REF) 

FACTC 

FACTU 

D(FLOFRC) 

FLOW 


Description 

Dummy  variables 
Inlet  characteristic  pressure 
Outlet  characteristic  pressure 
Case  drain  characteristic  pressure 
Computation  variable 

Pressure  drop  from  case  to  inlet 
Pressure  drop  from  outlet  to  case 
Valve  opening 
Actuator  displacement 

Actuator  position  at  maximum  pump  displacement 

Actuator  position  at  minimum  pump  displacement 

Theoretical  maximum  pump  displacement  changed 
to  IN**3/IN/RPM 

Valve  displacement 

Maximum  valve  displacement 

Dummy  variable 

Pressure  at  which  valve  is  open  from  outlet 
to  actuator 

Pressure  at  which  valve  starts  to  open  from 
outlet  to  actuator 

Dummy  variable 

Previous  flow  from  actuator  to  case 
Pro.viou3  flow  from  outlet  to  actuator 
Flow  force  on  valve  spool  constant 
Net  actuator  flow 


PSI 

PSI 

PSI 


PSI 

PSI 

IN 

IN 

IN 

IN 

IN**3/REV 

IN 

IN 


PSI 

PSI 


CIS 

CIS 

CIS 
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Name 

Description 

Dimension 

GAIN 

Closed  loop  pump  gain 

- 

D( INERT) 

Hanger  mass 

- 

D(INPPSI) 

Spring  rate  of  spool  changed  to  IN/PSI 

LB/ IN 

DT(ITUP) , 
DT(MITUP) 

Iteration  constants 

- 

D(LEVACT) 

Actuator  lever  arm  at  midstroks 

IN 

OPOUT 

Previous  value  of  outlet  pressure 

PSI 

DT(ORF) 

Valve  discharge  coefficient 

- 

D(PACCP) 

Actuator  pressure  due  to  piston  acceleration 
at  3600  rpm  &  maximum  pump  displacement 

PSI 

DT(PACTU) 

Actuator  pressure 

PSI 

PACTUO 

Previous  value  of  actuator  pressure 

PSI 

DT(PACTUR) 

Reference  actuator  pressure 

PSI 

DT(PCASE) 

Case  pressure 

PSI 

D(PDAMP) 

Hanger  damping 

PSI/IN/SEC 

PD  ISA 

Predicted  actuator  displacement 

IN 

D(PDISAC) 

Pressure  at  3600  RPM  and  maximum  pump 
displacement:  changed  to  rate  of  change 
of  pressure  with  actuator  position 

PSI 

DT(PINLET) 

Inlet  pressure 

PSI 

D(PINMIM) 

Outlet  pressure 

PSI 

POUTM, POUTMI 
POUTMX, 

DT (POUTM) 

Dummy  variables 

' 

POWER 

Pump  output  horsepower 

HP 

DT(PPCASE) 

Predicted  case  pressure 

PSI 

DT(PPOWER) 

Output  horsepower 

HP 

DT(PRPM) 

Pump  operating  speed 

RPM 

DT(PSIF) 

Valve  displacement  due  to  flow  force 

IN 
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Name 

Description 

Dimension 

D(PSLRPM) 

Slope  of  pressure  vs  RPM  curve 

PSI/RPM 

D(PSPEED) 

Pump  operating  speed 

RPM 

D(PSPRIM) 

Actuator  pressure  due  to  spring  force  maximum 
pump  displacement  adjusted  to  slope  PSI/IN 

PSI 

D(SPRIZ) 

Actuator  pressure  due  to  spring  force  at  zero 
pump  displacement 

PSI 

D(PZRPM) 

Actuator  pressure  inputted  at  3600  RPM  and 
zero  pump  displacement;  adjusted  to  zero  RPM 

PSI 

dt(qa:tc) 

Actuator  flow  with  valve  is  open  from 
actuator  to  case 

CIS 

qactl* 

Leakage  flow  from  actuator  to  case 

CIS 

DT(QACTU) 

Actuator  flow  when  valve  is  open  from  outlet 
to  actuator 

CIS 

QCASDR 

Sum  .  i.11  flows  into  and  out  of  the  case 

CIS 

QCASIN 

flow  from  case  to  inlet 

CIS 

DT(QCAV) 

Temporary  variable 

CIS 

DT(Q INLET) 

Inlet  flow 

CIS 

QOSIN 

Outlet  flow  due  to  actuator  motion 

CIS 

DT(QOUTLT) 

Outlet  flow 

CIS 

QPLEAK 

Pump  leakage  flow 

CIS 

QPUMP 

Pump  flow 

CIS 

REN 

Reynolds  number 

- 

TPOUT 

Dummy  variable 

- 

DT(VELACT) 

Actuator  velocity 

IN/ SEC 

D(VLVOL) 

Valve  overlap 

IN 

D(VOLACT) 

Actuator  volume 

IN**3 

D(VOLCAS) 

Case  volume 

IN**3 

VOLD 

Previous  actuator  velocity 

IN/ SEC 
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Name 


Description 


Dimension 


D(VOLOUT) 

D(VOVLP) 

D (WIDTH) 


Outlet  volume 

IN**3 

Valve  overlap 

IN 

Slot  width 

IN 

ZOUT 


Outlet  impedance 


PSI/CIS 


n  n  o 
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6.53.7  Subroutine  Listing 


SUBROUTINE  PUMP5  3  (D,DT, DD,L) 

****  REVISED  OCTOBER  1979  **** 

PUMPS  1  WITH  REWORKED  INPUT  DATA  REQUIREMENTS 
CDC  FILE  NAME  :  RPUMP5  3 

COMMON  NT ELPL , NTOLPL , I PT , I PO T NT , NPT S , I NEI. , KNEL , NTOPL ,NLPLT(61,3), 
1  PQLEG(90, 17.) ,  LCS( 90, 10) ,  ILEG(I400)  , PN(90) ,QN(90) 
COMMON/SUB/PARM(150,9) ,PM( 1500), QM( 1500), P(300),Q( 300), C( 300) 

1,  Z(300) ,RH0(20) , S20RH0( 20) , VISC( 20) ,BULK(20) ,T3MP(20) , PVAP(20) 

2 ,  ATPRES , T , DELT , TF INAL , PLTDEL , PI , TITLE (20), LEGN , ICON 

3, KTKMP(99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC(99) »INX, INZ 
A ,  INV ,  I  STEP ,  NLINE ,  NEL ,  IND ,  IENTR ,  MNLINJi, ,  MNEL ,  MNLEG ,  MNNODE ,  MNPLOT 
5.MNI.PTS.MDS 

DIMENSION  D(37),DT(43),DD(1),L(10) 

INTEGER  ARCOM, WIDTH, FLOFRC, APIS, LEVACT,ARACT,PSPRIZ,PSPRIM, 

1  PACCP , PZRPM , PSLRPM , PDIS AC , PDAMP , DI SP , DPVOA , DP VAC , ORF , 

2  DISAM ,DISAMI ,COEALK,COEALM ,COEPLK,COECIN, VOLCAS , PINMIN, 

3  PS PE ED , PR PM , P POWER, QACTU, QACTC , PACTU , POUTLT, D IS , PS IF , 

A  PCASE, PINLET,DREF,DOPEN,BULKC , VELACT,DISACT,DISVLV,AREF, 

5  COEALZ .COMVAL , DELP 1 3, DELP23 , COECAS . POUTM .BULKO , COEOSO 

6  , QINLET , QOUTLT , D IS VM , VOVLP , VOLACT , BULKA , VOLOUT , PPCASE 

7  , DCOM  1 , PACTUR, QCAV 

C  D (  )  ARRAY  ***** 

DATA  DPVAC/1/, INPPSl/2/ .ARCOM/ 3/, WIDTH/ A/ , FLOFRC/ 5/ , VOVLP/6/ , 

1  APIS/7/ ,LEVACT/8/,ARACT/9/ .PSPRIZ/10/ .PSPRIK/l 1/ , 

2  PACCP/ 1 2/ , PZRPM/ 1 3/ , PDISAC/ 1 A/ , PSLRPM/ 1 5/ , PDAMP/ 16/, 

3  DTSP/1 7/ ,DISAM/ 18/ .DISAMI/ 19/ ,COEALK/20/,COEALM/21/ , 

A  COEPLK/22/.COECIN/23/ .VOLCAS/ 24/, PINMIN/ 2 5/ .PSPEED/26/, 

5  COEOSO/2 7 /,DISVM/28/,COECAS/ 29/, INERT/30/, VOLACT/ 31/ .VOLOUT/ 32/ 

C  DT(  )  ARRAY  ***** 

DATA  PRPM/ 1 / , P POWER/ 2 / , ITEM/ 3/ , QACTU/ A / , QACTC/ 5/ , 

1  PACTU/  7/ ,  POUTLT/ 8/ ,  PCASE/  9/ ,  PINLET/ 10/ ,  DREF/ 11/,  DOPEN./ 1 2/ , 

2  BULKC/13/,VELACT/14/,DISACT/15/,DISVLV/16/,PSIF/17/,C0EALZ/18/, 

3  COMVAL/ 19/, DPVOA/ 20/ , POUTM/ 21/, DELP 13/22/, DELP 2 3/23/ , BULKO/ 24/ 

A  , QINLET/ 25/ .QOUTLT / 26/, ITUP/ 27/, MITUP/ 28 /.BULKA/ 29/, PPCASE/ 30/ 

5  .ORF/31/ .AREF/32/ ,DIS/33/ ,PACTUR/3A/ , DCOM 1/35/ ,QCAV/ 36/ 

C 

IF(IENTR)  1000,2000,3000 
C  ***  1000  SECTION 

1000  CONTINUE 

IF  (INEL.NE.O)  GO  TO  1500 
DO  1001  1-1,43 

1001  DT(I)-0.0 
N-KTHMP(IND) 

IF(N. LT.il)  N-N+10 

DT ( BULKC ) - ( BULK (N ) *DELT ) /D ( VO  LC AS ) 

DT (BULKA) -D( VOLACT) / (BULK(N ) *DELT ) 

D ( VOLOUT ) -D (VO LOUT )/( BULK (N ) *DELT ) 

D(COEOSO)-D(COEOSO)*D (APIS ) *L ( A) * . 5/D(LEVACT) 

DT(ARKF)-D(WIDTH)*D (WIDTH) 

DT (DREF ) -SQRT ( DT ( AREF ) * A . / P I ) 

DT ( DREF ) -DT ( DREF ) /DT ( AREF ) 
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6.53.7  (Continued) 


3217  TPOUT-POUTMX-DT (QACTU ) *ZOUT 

IF(ABS (TPOUT-DT(POUTLT) ) .LT. 0.05)  GO  TO  3230 
DT ( POUTLT ) -DT ( POUTLT) *DT(MITUP)+TPOUT*DT( ITUP) 

ICOUNT- ICOUNT+1 

IF< ICOUNT. EQ. 25)WRITE( 6, 999) ICOUNT 

IF ( ICO UNT . EQ . 2 5 ) WRIT E ( 6 , 9 9 8 ) DT ( POUTLT ) , TPOUT , POUTMX , POUTMI 

998  FORMAT( 10X, 4F20. 5) 

IF ( ICOUNT. EQ. 25 )GO  TO  3230 

999  FORMAT ( 10X, 13HEXCEEDED  ITER, I 10) 

GO  TO  3210 

FLOW  FROM  ACTUATOR  PISTON  TO  CASE 
3220  CONTINUE 

DT(PSIF)-D(FLOFRC)*DT(DIS)*(PACTUO-DT(PPCASE)) 

DT(DIS )-DISOC-D( VOVLP) 

DT(DIS)-DT(DIS)-DT(PSIF) 

IF(DT(DIS).LE.O.O)GO  TO  3222 
IF(DT(DIS) .GT.D(DISVM) )DT(DIS)-D(DISVM) 

COMPUTE  FLOW  AREA 

AREA-(DT(DIS) )*D (WIDTH) 

DT(DOPEN) -SQRT ( AREA*  4 . /PI ) 

DRATIO-DT(DOPEN)/DT(DREF) 

REN«*FACTC*DT(DREF)  /VISC(N) 

CALL  ORCOEFF(REN,DRATIO,DT(ORF) ) 

A-AREA*DT(0RF)*S20RH0(N) 

DT(QACTC)— B*A**2/2.+A/2.*SQRT((A*B)**2+4*ABS(DP2)) 

FLOW— DT(QACTC) 

DT(PACTU)-DT(PPCASE)+(DT(QACTC)/A)**2 
1230  IF(POWER.NE.O.O)  GO  TO  3250 

TEST  ACTUATOR  DISPLACEMENT  AGAINST  MAXIMUM  STROKE 

QACTLK- (DT ( PACTU ) -DT ( PPCA3E ) ) *COELKA 
FLOW  +  OUTLET  TO  ACT, ACT  TO  MIN  STROKE 
FLOW  -  ACT  TO  CASE, ACT  TO  MAX  STROKE 
DT(VELACT)— FLOW/D(ARACT) 

DT ( D IS ACT ) -DT ( DI S  ACT ) + ( VOLD+DT ( VELACT ) ) / 2 . *DELT 
CALL  XLLV.IT(DT(DISACT)  ,DT(  VELACT) ,  POWER, D(DISAMI )  ,D(DISAM)  ) 
C 

C  POWER  -  DESCRIPTION 

C  +1  ACTUATOR  AT  MAX  STROKE (PUMP  FULL  FLOW) 

C  0  ACTUATOR  WITHIN  TRAVEL  LIMITS 

C  -1  ACTUATOR  AT  MIN  STROKE (ZERO  PUMP  FLOW) 

C 
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6.53.7  (Continued) 


D(C0ECAS)-RH0(N)*1 . 3888888/ (D(COECAS)*D(COECAS) ) 

DT (DCOM 1 ) -SQRT (D (ARCOM) *4/PI ) 

DT(DCOMl)-DT(DCOMl)*l.E-12/(RHO(N)*VISC(N)*3.82) 
ACTRAD-SQRT ( D ( ARACT ) *4 . /PI) /2 . 

DEE-ACTRAD-D (COEALK) 

OPOUT-2.*SQRT(ACTRAD**2-DEE**2) 

ATRI-.5*DEE*OPOUT 

ASE-DEE/ACTRAD 

ATHE-ACTRAD  *ACTRAD*ACO S(AEE) 

ASEOATHE-ATRI 

BEE-ASEC/OPOUT 

DT(COEALZ)-(OPOUT*(BEE**3))/(6.*VISC(N)*RHO(N)) 

D ( INERT) -D (INERT) / (DELT*D (ARACT ) ) 

D(FLOFRC)-.  43*D (WIDTH) /D (INPPSI) 

D ( INPPS I) -D (ARCOM) /D (INPPS I ) 

DT ( COM VAL ) -D ( VO VLP ) +D ( I NP PS I ) *D ( DP VAC ) 

D( VOVLP) -D (VOVLP) /2 . 

D(DISP)-D(DISP)/60./D(DISAM) 
D(PSPRIM)-(D(PSPRIM)-D(PSPRIZ)  )  /D(DISAM) 
D(PACCP)-D(PACCP)/(D(DISAM)*3600.**2) 
D(PDISAC)*(D(PDISAC)-D (PZRPM) )/D(DISAM) 

D ( PZRPM) -D( PZRPM) -D( PS LRPM) *3600- 
DT ( PRPM ) -D ( PS  PE  ED ) 

DT(DPVOA)-(D(VOVLP)+DT(COMVAL))/D(INPPSI) 

DT (BULKO) -BULK (N ) *DT(DPVOA) / 2 23000. 
DT(DISACT)-D(DISAM)*.5 

C***  THIS  SECTION  CALCULATES  THE  STEADY  STATE  CHARCTERISTICS 
C  OF  THE  PUMP  OUTPUT  PRESSURE  VERSUS  FLOW. 

COELKA-DT(COEALZ) /D(COEALM) 
DT(POUTLT)-D(DPVAC)+(DT(DPVOA)-D(DPVAC))*.5 
1260  DT ( QACTC ) -DT ( QACTU ) 

1270  DT ( P ACTU ) »D ( PS  PR IZ ) +DT ( D I S  ACT ) *D ( PS  PR IM ) +0 • 0 

1  +DT  (DISAC.T)  *(D(PACCP)  *DT(PRFM)  **2+D(PDISAC)  ) 

2  +(D  ( PZRPM) +D ( PSLRPM) *DT ( PRPM) ) *DT ( BULK)  )/DT( POUTLT) 

IF ( IENTR . EQ . 0 ) RETURN 

DT ( QACTU ) -COELKA*DT ( PACTU ) 

DT(DISACT)-D(DISAM) 

IF(DT(QACTC).EQ.0.)G0  TO  1260 
DT ( POUTM) -DT ( POUTLT) 

DT (QINLET ) -D (DISP) *DT( PRPM) *D(D ISAM) -DT(POUTM)*D(COEPLK) 

1  -DT( QACTU) 

DT (QOUTLT) — (D (COEPLK) ) *DT( POUTLT ) -DT ( QACTC ) 
DT(DELP23)--DT(QOUTLT)/(DT(QINLET)-DT(QOUTLT) ) 
DT(DISVLV)-. 5 
DT(DELP13)-10. 

GAIN". 7/(1 .+20.*S2ORHO(N)*D(INPPSI) *Z (L(2) )*.65*D(WIDTH) ) 

DT(ITUP)-GAIN 

DT(MITUP)-1.-CAIN 

DT ( PACT UR) -DT ( PACTU ) 

RETURN 
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6.53.7 


(Continued) 


C 

C  STEADY  STATE  CALCULATION  SECTION 

C  IND-COMPONENT  #, KNEL-CONNECTION  #, INEL-LEG  # 

C  CON  #l-INLET,CON  12-OUTLET, CON  13-CASE  DRAIN 
C  THE  INLET  IS  A  NODAL  POINT  IN  THE  SYSTEM 
C 

1500  IF(KNEL-2)1510, 1530,1520 
1510  DT(PINLET) -PQLEG (INEL, 11) 

60  TO  1600 

1520  IF(INX.NE.l)  GO  TO  1700 

QCASDR-PQLEG ( INEL , 1 ) *PQLEG ( INEL , 2 ) 

DT ( 6 ) -QCASDR 

QACTLK-DT ( DISVLV) * (DT ( QACTC ) -DT ( QACTU ) )+DT (QACTU ) 

DT(DELP1 3)- (DT ( POUTM) *D ( CO EPLK ) +QACTLK-QC  ASDR ) /D (COECIN) 
PQLEG(INEL, 5)-PQLEG(INEL, 5)+DT(DELPl 3)+QCASDR/D (COECIN) 
PQLEG(INEL,  6)-PQLEG(INEL,  6)+  1 . 0/D(COECIN) 

LCS(INEL,7)-5 

PQLEG(INEL, 1 1)-PQLEG(INEL, U)+DT(DELP13) 
DT(PCASE)-PQLEG(INEL, 11) 
PQLEG(INEL,8)«PQLEG(INEL,8)+D(COECAS) 

PQLEG ( INEL , 1 1 ) -PQLEG ( INEL , 1 1 ) -D (COECAS ) * ( QCASDR*  *2 ) 

GO  TO  1600 

1530  IF(INX.NE.l)  GO  TO  1700 

DT (DISVLV)-PQLEG ( INEL , 1 ) *PQLEG ( INEL , 2)-DT ( QOUTLT ) 

DT (DISVLV)-DT (DISVLV) / (DT(QINLET)-DT(QOUTLT) ) 

IF (DT (DISVLV) .LT.O. 0)  DT(DISVLV)-0.0 
IF(DT(DISVLV) .GT. 1.0)  DT(DISVLV)-1 .0 
PQLEG ( I NEL , 5 ) -PQLEG ( INEL , 5 ) +DT ( POUTM) -DT (DELP 1 3 ) 

PQLEG (INEL, 6) -PQLEG (INEL, 6)+0. 00001 

PQLEG (INEL, 11 J-PQLEG (INEL, 1 l)+DT(POUTM) -DT(DELP1 3) 

DT(POUTLT)«PQLEG(INEL, 11) 

LCS(INEL,7)-5 
1600  RETURN 

1700  WRITE(6, 1800)  IND, KNEL , INEL 

1800  FORMAT ( 5X , 4 6H  CALL  SEQUENCE  ERROR  DETECTED  IN  COMPONENT  NO 
1  I5.14H  CONNECTION  NO  ,I5,7H  LEG  NO  ,15) 

WRITE(6,943) 

943  FORMAT ( 1  OX , 3 3HPR0GRAM  STOP  IN  SUBROUTINE  PUMP51 ) 

STOP  6054 

C  ***  2000  SECTION 
2000  CONTINUE 

DT(DISACT)-DT(DISVLV)*D(DISAM) 

DT ( QACTU ) -DT (D IS  VL V ) * (DT ( QACTC ) -DT (QACTU) )+DT ( QACTU ) 

DT( QACTC) -0.0 
DT (DISVLV)-O. 0 
DT(PPCASE)-DT(PCASE) 

C  WRITE (6, 2010)(DT (I), I»1,4Q) 

2010  FOPMATdX,  10E12.5) 

GO  TO  1270 
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6.53.7  (Continued) 


***  3000  SECTION 
3000  CONTINUE 

N-KTEMP(IND) 

ICOUNT-O 

CALCULATE  TRANSIENT  RESPONSE  OF  PUMP 

POWER-0. 0 
Ll-L(I) 

L2-L(2) 

L3-L(3) 

Cl-C(Ll) 

C2«C(L2) 

C3-C(L3) 

VOLD-DT ( VELACT ) 

DPDAUP-D(PDAMP) 

FACTU-ABS (DT(QACTU) ) 

FACTC-ABS ( DT ( QACTC ) ) 

DPDAMP-D (ARACT) / (DPDAMP+D( INERT) ) 

DT(QACTU)-0.0 
DT( QACTC) -0.0 
PACTUO-DT(PACTU) 

PD IS A-DT ( D I S ACT )+DT ( VELACT ) *DELT 
COMPUTE  REFERENCE  ACTUATOR  PRESSURE 

DT ( PACTUR ) -D ( PS  PR IZ ) +PD I S A*D ( PS  PR IM ) +VOLD*D (INERT) 

1  +PDISA* (D ( PACCP ) *DT ( PRPM) **2+D( PDISAC) )+0.0 

2  +(D(PZRPM)+D(PSLRPM)*DT(PRPM))*DT(BULXO)/DT(POUTLT) 

QOS  I N— VO  LD*D  (  COEOSO ) 

QPUMP-PDISA*D(DISP)*DT(PRPM)+QOSIN 
DT(PINLET)-(C1/Z(L1 )+DT(PPCASE) *D(COECIN)-QPUMP) 

I  /(1.0/Z(L1)+D(C0ECIN)) 

IF(DT(PINLET) .LT.D(PINMIN) .OR.DT(QCAV) .GT.O.O)GO  TO  3100 
DT(QINLET)- (C 1-DT(P INLET) ) /Z(Ll ) 

QCASIN»(DT(PPCASE)-DT(P INLET) )*D(COECIN) 

GO  TO  3110 

3100  DT(PINLET)«D(PINMIN) 

DT (QINLET)-(C 1-DT(P INLET) )/Z(Ll ) 
QCASIN*(DT(PPCASE)-DT(PINLET) )*D(COECIN) 

DT (QCAV)-DT(QCAV)-DT(QINLET)-QCASIN 
IF (DT(QCAV) - LT- 0- 0)DT(QCAV)-0 . 0 
3110  QPUMP-DT(QINLET)+QCASIN+QOSIN 

COELKA-DT (COEALZ ) / (D (COEALM) +0 .0) 

ZOUT-Z (L  2 ) / ( 1 . 0+Z ( L2 ) *D (COEPLK )+Z (L  2 ) *D ( VO LOUT ) ) 
CPOUT-DT(POUTLT) 

B - 1 . / ( DPDAMP+DT ( BU LKA ) +COELKA ) 

DP 1-(DT(PPCASE) *COELKA+PACTUO*DT (BULKA)+DT( PACTUR) *DPDAMP) *B 
DP2-B*  (DT  ( PACTUR) *DPDAMP+PACTUO*DT(BULKA)+DT(PPCASE) *(C0ELKA 
+  -l./B)) 
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6.53.7  (Continued) 


DETERMINE  COMPENSATOR  POSITION 
C 

3200  POUTMX-(C2/Z(L2)+QPUMP+DT(PPCASE)*D(COEPLK)+D(VOLOUT)*OPOUT)*ZOUT 
POUTMI-D(DPVAC) 

DT ( POUTLT ) -POUTMX 
3210  CONTINUE 

C  DISOC— 7. 86357E-5*DT(P0UTLT)+.  229569 

DISOC--D ( INPPS I ) *DT ( POUTLT )+DT (COM VAL) 

IF(DISOC .GE.-D(VOVLP) )G0  TO  3221 
C  VALVE  OPEN  OUTLET  TO  ACTUATOR 

DT ( PS I F ) -D ( FL  OFR  C ) *DT ( D IS ) * (DT ( PO  UTLT ) -PACTUO ) 

DT (DIS) -ABS (DISOC) -D(VOVLP) 

DT(DIS)«DT(DIS)-DT(PSIF) 

IF (DT(D IS ) • LE . 0 - 0)GO  TO  3222 
IF (DT(DIS) .GT.D(DISVM) )DT(DIS)»D(DISVM) 

C  COMPUTE  FLOW  AREA 

AREA-(DT(DIS) )*D (WIDTH) 

DT ( DOPEN ) -SQRT (AREA*  4. /PI) 

DRAT I O-DT ( OOPEN ) /DT ( DR  EF ) 

REN-FACTU*DT(DREF)/VISC(N) 

CALL  ORCO EFF(RF.N ,  DRAT  10 .  DT  (ORF )  ) 

IF(POWER.EQ-0-0)GO  TO  3216 
C  VALVE  OPENED  TO  PRESSURE  -  ACT  BOTTOMED 

CONA“(AREA*DT(ORF)*S?.OftllO(N))**2/(2.*COELKA) 
C0NB=2-*A3S(DT(P0UTLT)-DT(PPCASE))*C0ELKA/C0NA 
DT ( QACTU ) -CONA* ( SQRT ( 1 . +CONB )  - 1 .  ) 

FLOW«DT( QACTU) 

DT  (  PACT  U )  -DT  ( P  PC  AS  E  ) +DT  ( QA  CTU )  /  CO  EL  KA 
GO  TO  3217 

3221  IF (DISOC -GT . D( VOVLP) )GO  TO  3220 
C  VALVE  IN  LAPPED  REGION 

3222  DT(DIS)-0.0 

POVLP-ABS(DISOC+D( VOVLP) >+.00001 
POVLC«ABS (DISOC-D(VOVLP) )+. 00001 
A1*DT (DCOM  1 ) /PO VLP 
Bl-DT(DCOMl)/POVLC 
CC-DT(BULKA)+C0ELKA+B1+DPDAMP 

DT ( QACTU )«DT(PO UTLT ) *CC-PACTUO"PT(BULKA)-DT(PPCASE)*(COELKA+B 1 ) 

DT ( QACTU ) -DT ( QACTU ) -DT ( PACTUR ) *DPDAMP 
DT (QACTU)-DT(QACTU) / ( 1 .+CC/A1 ) 

DT ( PACTU ) -DT ( POUTLT ) -DT ( QACTU) /A  1 
DT ( QACTC ) -B 1 * (DT ( PACTU ) -DT ( P  PC AS  E ) ) 

FLOW-O.O 
GO  TO  3217 
3216  CONTINUE 

C  VALVE  OPENED  TO  PRESSURE  -  ACT  NOT  BOTTOMED 
A-AREA*DT (ORF ) *S  20RH0 (N ) 

DT(QACTU)— B*A**2/2.+A/2.*SQRT( (A*B)**2+4*ABS(DT( POUTLT) -DPI)) 

DT ( PACTU )-DT( POUTLT )-(DT( QACTU) /A) **2 
FLOW-DT( QACTU) 
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IF(POWER.EQ.O.O)  GO  TO  3300 
IF(DT(PINLET) .LE.D(PINMIN) )  GO  TO  3240 
QPUMP-D (DISP ) *DT ( PRPM) *DT(DISACT) 

QOSIN-O.O 

ICOUNT-1 

3240  IF ( POWER. EQ.-l .0)  GO  TO  3200 
DT(QACTC)-0.0 
DT ( PACTU) -DT ( PPCASE) 

QACTLK-0.0 
GO  TO  3300 
3250  CONTINUE 

QACTLK-DT(QACTU) 

3300  P ( L I ) -DT ( PINLET ) 

Q(L1)-DT(QINLET) 

QPLEAK- (DT ( POUTLT ) -DT ( PPCAS  E) ) *D ( COEPLK) 

Q ( L2 ) — ( QPUMP-QPLEAK-DT ( QACTU ) - (DT ( POUTLT ) -OPOUT ) *D ( VOLOUT ) ) 
DT(QOUTLT)—Q(L2) 

DT (DISVLV)-(DT( POUTLT )-DT( PPCASE) -D(DPVAC) )*D(INPPSI) 
DT(POUTLT)-C(L2)-Q(L2)*Z(L2) 

P ( L2 ) “DT ( POUTLT ) 

QCASDR-QPL  EAK+QACTLK+DT ( QACTC ) -D ( ARACT ) *DT ( VELACT ) -QC AS I N-QO  S IN*  2 . 

DT ( 6 ) -QCASDR 

ALPHA-D(COECAS) 

BETA-Z(L3)+DT(BULKC) 

CHI-DT(PCASE)+QCASDR*DT(BULKC)-C(L3) 

Q ( L  3 ) - ( -BETA+SQRT (BETA**2+4.*ALPHA*ABS(CHI) ))/(2. * ALPHA ) 
Q(L3)-SIGN(Q(L3),-CHI) 

DT ( P  PC ASE ) -DT ( PC AS  E ) 

DT(PCASE)-DT(PCASE)+(QCASDR+Q(L3) )*DT(BULKC) 
P(L3)-C(L3)-Q(L3)*Z(L3) 

DT (PPCASE) -2. *DT(PCASE)-DT( PPCASE) 

POWER— Q(L2)*(P(L2)-P(L1))/6600.0 

DT ( P POWER) -POWER 

IF (DT( PINLET) .LE.D(PINMIN) )  WRITE( 6, 3310)T, IND 
RETURN  ’ 

3310  FORMAT(2X,36H********  PUMP  CAVITATION  ONSET  AT  T«  ,E12.5 
+10X, 8HCOMP  NO., 15)  ’  ’ 

END 
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APPENDIX  E 
TYPE  21  VALVE 

HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 
6.21  TYPE  //21  TWO  WAY  CONTROL  VALVE 


GP75  0099  19 

FIGURE  6.21-1 

TYPE  NO.  21  TWO-WAY  VALVE 

The  type  C/21  valve  uses  an  externally  controlled  time  history  input. 

The  valve  opening  versus  time  is  derived  from  the  input  data  tabulated  on 
the  third  and  fourth  data  cards. 

Valve  sizing  can  be  input  either  as  rated  flow  and  pressure  drop  or  as 
physical  dimensions  (slot  width  and  discharge  coefficient). 

The  total  number  of  values  in  the  time/position  table  must  be  equal 
to  the  number  input  in  column  70  of  the  first  card. 
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CARD  NUMBER  1 


COLUMN  FORMAT 


36-40 


41-45 


46-50 


51-55 


56-60 


61-65 


66-70 


71-75 


76-80 


Component  Number 


Type  Number  =  21 


Number  cf  Real  Data  Cards  ■  3  or  more 


Line  Number  (with  sign)  attached  to  Connection  1 


Line  Number  (with  sign)  attached  to  Connection  2 


Type  of  data  input  (l"rated  flow,  0  or  defaclt^valve  slot) 


Rating  fluid  (l-MIL-H-5606,  2=*MIL-H-83282 ,  3“Skydrol  500) 


Number  of  data  points  in  table 


Temperature/Pressure  Code  (See  Page  4.0-2) 


EXAMPLE  CARD 


♦1C  -11 


'?  U  *6  •'  •  19  ?r  , 


.  »  74  ?t  :r  .3  ro  JO  »  U  '9  54  56  it  V  J*  56  40  4t  4?  45  44  45  4C  40  49  60  U  52  51  *,4  55  (.6  5T  5C  59  61  6'  #.?  C5  64 


14  15  •  .1)  •  7  ■  .  1  ?/  .  i  1*4  T5  ; 


'  74  'I  50  ii  15  *4  -5  M  V  54  »  4J  4l  4?  4  5  44  4t>  46  47  4.1  4'J 


t  »  54  65  6b  57  66  ?*j  «0 


0  0  0  0  OlO  n  0  0  0  0  0  0  0  O'C  0  9  0  1'O  C  0  0  c 

i  J  4  j\b  '  I  •  10  11  >7  *1  1*  1'Jlfr  W  '6  •  1  /•;  74 

1 1  1 1  i  1 1  n  1 1 1 1 1 1 1 '  i  1 1 1 1  h  1 1 1 1 

1  i  , 

2  7  7  2  7'7  7  ?|  2  2  7  7  7  2|7  2  2  2  2,2  7  7  2  ?i 

'  i  i 

3  7  3  3  C|3  3  3  3  3,3  3  3  3  I'3  3  3  3  3  i  ?  3  3  : 


3  0  0  0  C  9  0  0  0  o;o  0  0  0  0|0  0  0  0  mo  0  0  0  0  0  3  0  0.0  0  0  0  r  3  0  0  0  0,0  0  D  D  0  0  0  0  0  (I'O  0  0  0  0 


?  35  4  jll'  4*41  Ji  «;  4t4j 


'.3  U  I.IjC  53  53  S'  C  f‘lc  I  C?ii  (4  SL'iS  11  C  :<1  ,*P  31  ?J  7]  34  1  S’*  II  it  7S  C3 


1  1  1  I  |  I  I  I  i  I1!  I  I  I  1  1  1  I  !  M  I  I  1  1  1  I  I  I  l'l  II  I  I  1  I  I  I  1|l  I  1  I  I  I  1  1  I  111  1  I  1  1 

'  '  l  1 

2  2  2  .  2  7  7  7  ?||?  7  7  7  7  7  7  2  7  2|2  2  2  7  7  7  2  7  2  2|2  2  2  2  7  2  2  2  2  2,2  2  2  7  2  2  2  2  2  2J2  2  2  2  2 
33313  3333  3(3  3333  3333  3|3  33333333  3i3  33333333  3J3  333  3  3333  j]3  3  3  3  3 


4  4  4  4  <|4  4  4  4  4  4  4  4  4  4'4  4  4  t  14  I  4  •  ft  4  4  4  4;i  4  4  4  4|4  4  4  4  4  4  4  4  4  4,4  4  4  4  4  4  4  4  4  4'4  4  4  4  4  4  4  4  4  4,4  4  4  4  4  4  4  4  4  4<4  4  4  4  4 

1  1  •  >  **  9  i4i  ii  i  u  II  r-U  1/  li  ■*.  J*.  :-.4  1  i\  I  i.‘  4»34:  r  IM414  j«*.  I- 4.4’iO  >i  1JS«M^j|S?«|HKII»?UMtjj  n  'Jli  jflll 'J  1*  13 :  J 

5  b  b  -  rJ  G  G  5  3  5  i  i  G|9  5  b  ,  i  J  5  ‘j  e  :  /  *.  j  t>  Sli  5  5  5  sis  5  5  S  5  5  5  5  5  !i(i  5  *  S  5  5  i  S  i  sji  S  5  b  S  5  5  S  5  5i5  5  5  5  S  5  5  5  5  5^5  5  5  5  5 

_!  i  _  i  i  I  1  1  i  1  1 

t  t  D|  0  C  t  r.'G  f.  •:  ■  ■  ;  b|  0  r;i  i  G  6  I,-  Git:  i  G  G  G  GCi  G  G  G  GIG  C  G  G  G  G  G  G  G  G  l  G  S  6  C|G  G  S  t  6  G  G  G  6  E'5  6  G  G  t  5  6  9  £  G'6  S  e  G  5 

;  !  ,  ,  '  ' 

j  1 1  i .  i :  n  in  n  1 1 1 1  ri  >  n  1 1',!  n  nln  n  rn  1 1 1  n  1 1 1 1 1 1  n  n  nvi  n  1 1  n  in'ii  i  n  m  n\n  1 1 1 

!  j:  ;  '  1 

« r  >  u  1 1 1.*  c|si:*  t  r  »n ts  c'm  it.iim  ii  i  iim  m<!t  m|s  *  run: 


5  e  1  <•  'I  i  *l|9  »  9  5  -I  ,?.*--«*• 


I  '■ "S  9'"  9  99  9|9  9  ?  9  5,9  9  9  9  5  9  9  9  0  M  9  9  9  9  9  9  5  9  9i9  9  9  1  9  9  9  9  4  4,9  4  9  9  » 

•  !  -It  <  40i 4  «  4  44  45t«i  4  1144  .  {•  ‘.4  65,'  9  ‘  54  55  bA|*l  I?  t  ’  ‘  4  *S|4»  S  '  U  H  ’  }  i  .  ’)  -4  VCj  “  'I  *'J 
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APPENDIX  E ( CONT . ) 

SUBROUTINE  VALV21 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL  II) 

6.21  SUBROUTINE  VALV21 

VALV21  simulates  a  simple  two  way  valve  with  a  valve  opening/ time 
history  input.  It  can  be  used  to  simulate  directly  operated  solenoid  valves 
or  balanced  poppet  valves,  but  not  valves  which  have  displacement  characteristics 
such  as  two  stage  or  unbalanced  poppet  valves. 

Input  data  can  be  in  the  form  of  slot  width,  coefficient  of  discharge 
and  slot  opening,  or  rated  flow,  rated  pressure  drop  and  fraction  of  rated 
flow, 

A  typical  valve  which  can  be  modeled  by  VALV21  is  shown  in  Figure  6.21-1. 


FIGURE  6.21-1 

TYPE  NO.  21  TWO-WAY  VALVE 


448 


6.21.1  MATH  MODEL 


VALV21  is  modeled  as  an  orifice  of  variable  area.  As  such,  it  follows 
the  basic  equation  for  flow  through  an  orifice. 


Q  =  AFEA*CD  *  (2*(P1-P2)/RH0) 


1/2 


where 


AREA  =  area  of  the  valve  orifice  (in  ) 

CD  =  discharge  coefficient  of  the  valve 
PI  =  inlet  pressure  PSI 
P2  =  outlet  pressure  PSI 
RHO  *  fluid  density  (lb*sec2/inZ|) 

Using  a  positive  flow  convention  from  PI  to  P2,  the  line  equations  for 
the  component  are: 


where 


(1) 


PI  =  Cl 

- 

Z1  *  Qi 

(2) 

P2  =  C2 

+ 

Z2*Q2 

(3) 

Cl 

= 

connection 

//I 

line 

characteristic 

(PSI> 

C2 

a: 

connection 

n 

line 

characteristic 

(PSI) 

Z1 

= 

connection 

in 

line 

impedance 

(PSI/CIS) 

Z2 

33 

connection 

in 

line 

impedance 

(PSI/CIS) 

Q  “  Q1  -  Q2 
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When  assuming  no  flow  loss: 


(4) 


« 


Substitution  of  equations  (2)  and  (3)  into  equation  (1)  gives 

Q  =  AREA*CD*(2*C1-Z1*Q-C2-Z2*Q)/RH0)1/2  (5) 

Then  squaring  both  sides  of  equation  (5)  gives 

Q2  =  AREA2*CD2*2/RH0*[(C1-C2)-Q(Z1+Z2)]  (6) 

By  defining  VFAC  =  AREA2*CD2*2/RHO 

CDIFF  =  C1-C2 
ZTOT  =  Z1+Z2 

Equation  (6)  will  reduce  to: 

Q2+VFAC*ZTOT*Q  -  VFAC*CD1FF  =  0  (7) 

When  simplified  by  the  definition  of: 

VB  =  VFAC*ZTOT 
VC  =  CDIFF*VFAC 
Equation  (7)  becomes 
Q2+VB*Q-VC  =  0 

which  is  a  quadratic  equation  with  the  solution 
Q  =  (-VB  +  (VB  +4VC)  '  )/2 

6.21.2  CAVITATION  MODEL 

The  cavitation  model  of  VALV21  is  the  same  as  that  described  in 
subroutine  REST41  (Section  6.41.2). 

6.21.3  ASSUMPTIONS 

The  math  model  assumes  a  square  law  characteristic  and  a  constant 
discharge  coefficient  for  the  entire  flow  range.  In  practice,  neither  of  these 
assumptions  is  correct.  Most  valves  have  inlet  and  outlet  passages  which  cause 
the  flow  characteristics  to  vary  from  the  square  law  relationship.  The  discharge 
coefficients  can  vary  with  area  change  and  flow  rate.  A  subroutine  that  included 
these  considerations  would  be  very  complex  and  involve  input  data  not  readily 
available  to  the  average  user. 
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In  view  of  this,  the  model  provided  by  VALV21  should  be  adequate  for 
most  simulations. 

6.21.4  COMPUTATION  METHOD 

1000  SECTION 

A  check  is  made  on  which  type  of  data  is  being  used.  If  the  rated 
flow/pressure  drop  data  is  used,  a  density  correction  is  made  between 
the  simulation  fluid  and  valve  rated  fluid:  A  valve  characteristic  is 

computed  along  with  the  steady  state  calculation  constants. 

If  the  valve  slot  dimension  input  is  used,  the  valve  characteristic 
and  steady  state  constants  are  calculated  directly  from  the  fluid  density 
and  valve  area  at  time  T  =  0. 

1500  SECTION 

2 

The  steady  state  constants  from  the  previous  section  are  used  in  the  Q 
leg  calculations,  and  the  pressure  at  the  outlet  connection  is  calculated  and 
scored . 

2000  SECTION 

The  DT  variables,  which  will  be  used  to  track  the  cavitation  bubbles,  are 
zeroed  and  control  is  returned  to  the  main  program. 

3000  SECTION 

A  call  to  INTERP  is  made  and  the  new  valve  position  determined  using  a 
first  degree  interpolation.  A  check  is  made  of  the  DT  variables  to  determine 
if  the  component  is  cavitated.  If  it  is  cavitated,  the  appropriate  boundary 
conditions  are  applied  and  the  orifice  equation  is  used  to  compute  the  flow. 
Upstream  and  downstream  pressures  and  flows  are  calculated  and  the  cavitation 
bubble  updated  before  control  is  returned  to  the  main  program.  If  the  valve  is  not 
cavitated,  the  normal  line  and  orifice  equations  are  used  to  calculate  the  flow 


and  pressures. 
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A  check  is  made  to  see  if  the  valve  has  cavitated  during  the 

time  step  under  calculation.  If  it  has,  flows  and  pressures  are  recalculated 
according  to  the  cavitation  model.  If  it  has  not  cavitated,  control  is  returned 
to  the  main  program. 

6.21.5  LIMITATIONS 

The  computation  is  limited  to  a  linear  valve  area  versus  position  relationship. 
However,  a  position/time  history  that  approximates  the  actual  valve  area/position 
relationship  can  be  input.  A  straight  line  interpolation  is  used  to  avoid 
unintended  valve  motion  which  could  result  with  higher  degree  interpolation 
methods.  The  limitations  can  be  minimized  by  using  smaller  intervals  in  the  time 
history  table. 

If  the  valve  slot  width  and  discharge  coefficient  are  input  as  1.0,  the 
valve  position  table  becomes  a  table  of  the  product  of  valve  area  and  discharge 
coefficient  versus  time.  This  can,  in  part,  rectify  the  assumption  of  a  constant 
discharge  coefficient,  but  it  can  not  correct  for  the  variation  with  flow  rate. 
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6.21.6 

Variable  Names 

NAME 

DESCRIPTION 

DIMENSIONS 

D(?> 

Valve  Characteristic 

CIS/PST*SEC 

DENS 

Rated  Fluid  Density 

LB*SEC?/IN4 

DENSC 

Density  Correction  Factor 

— 

DIFF 

Characteristic  Pressure  Difference 

PSI 

DT  (1) 

Connection  //I  Cavitation  Tracker 

CIS 

DT  (2) 

Connection  #2  Cavitation  Tracker 

CIS 

IFLU ID 

Rated  Fluid  Code 

— 

PI 

Connection  //I  Cavitation  Pressure 

PSI 

P2 

Connection  //2  Cavitation  Pressure 

PSI 

QX 

Normal  Orifice  Flow 

CIS 

QV 

Cavitated  Orifice  Flow 

CIS 

RTEMP 

Rated  Temperature 

DEGREES  F 

VALY 

Valve  Position 

IN 

VFAC 

Valve  Orifice  Characteristic 

CIS2/PSI 

VYMAG 

Valve  Opening 

IN 

7.T 

Cavitation  Line  Impedance 

PSI/CIS 
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6.21.7  Subroutine  Listing 


SUBROUTINE  VALV21  (D,DT,DD,L) 
c  ***  revised  December  iy/y  *"* 

C  ««»  THIS  SUBROUTINE  INCORPORATES  A  CAVITATION  MODEL  ON  THE  UPSTREAM 
u  and  uuWttsTREAM  SIDES  OF  THE  VALVE.  IT  ALSO  INCLUDES  THE  OPTION  OF 
C  *»*  SPECIFYING  VALVE  CHARACTERISTICS  BY  SLOT  DIMENSION  AND 
C  ***  COEFFICIENT  OF  DISCHARGE  OR  BY  RATED  PRESSURE  DROP  AND  RATED  FLOW 
DOUBLE  PRECISION  DD 

COMMON  NTELFL , NTOLPL , IPT , IPO INT , M PTS , I NEL ,  KN  EL , NTOPL , NLPLT (61,3), 
i  FoLECiyo, 12) .LCSiyo, 10) ,ILEG( 1400) , PN (30) ,QN(90) 

DIMENSION  D(24) ,DT(2) ,DD( 1) ,L(5) 

COMMON/ Sub/ FARM ( 150,9) , PM( 1 500) , QM( 1 500) , P( 300) ,Q (300) , C ( 300) 

1, £( JOU) ,RHO(20) ,S20RH0(20) ,VISC(20) ,BULK(20) ,TEMP(20) ,PVAP(20) 

2,  ATPRKS.T ,DELT,TFINAL ,PLTDEL,PI ,TITLE(20) ,LEGN, ICON 
J,iaEMP(yy),LSTART(150) , NLPT (150) ,LTYPE (99) ,NC(99) ,INX,INZ 

4 , 1 N V ,  I  STEP ,  NL I NE ,  N  EL ,  I ND ,  I ENTR ,  MNL INE ,  MN EL ,  MNLEG , MNNODF. ,  MN PLOT 
5,MNLPTS,MDS 

IF  (IENTR)  1000,2000,3000 

1000  CONTINUE 
IF(INEL.NE.O)  GO  TO  1500 
L(5)-9 

Lu>i-y+a(iu+/)/B*» 

LW)-L(H) 

D(4)-(Z(L(l))+Z(L(2)))/2. 

D(5)-1.0/D(4)**2 

VALY»D(L(6)) 

IFILU).NE.0)  GO  TO  1001 

C  ***  CALCULATIONS  FOR  ORIFICE  DIMENSION-COEFFICIENT  OF  DISCHARGE  INPUT 
D(3)-(D(l)*D(2))**2*2/RHO(KTEMP(IND)) 
DT(l)-RHO(KTEMP(IND))/(2.*(D(l)*VALY*D(2))**2) 

DT(2)«0.0 

IF(VALY.EQ.O.O)  GO  TO  1100 
RETURN 

C  ***  CALCULATIONS  FOR  RATED  CONDITION  INPUT 

1001  IF(L(4) .EQ.Q)  GO  TO  1003 

C  ***  DENSITY  CALCULATION  FOR  RATED  CONDITIONS 
IFLUID-L(4) 

RTEMP-D('J) 

IF(IFLUI0-2 ) 1004, 1005,1006 

C  ***  DENSITY  CALCULATION  OF  MIL-H-5606B  AT  RATED  TEMPERATURE 

1004  DENS-56. 0147-1. 82353E-2*RTEMP 
GO  TO  1007 

C  ***  DENSITY  CALCULATION  OF  MIL-H-83282  AT  RATED  TEMPERATURE 

1005  DENS-55.0706-2 . 35294E-2*RTEMP 
GO  TO  1007 

C  ***  DENSITY  CALCULATION  OF  SKYDROL  5003  AT  RATED  TOfPERATURE 

1006  DENS-67 . 0221-2 . 73529E-2*RTBMP 
GO  TO  1007 

C  ***  DEFAULT  DENSITY 
1003  DENS-54.19117 

C  ***  CHANGE  TO  CORRECT  DENSITY  UNITS 
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6.21.7  (Continued) 


« 


1007  DENS-0ENS/<12.**4.*32.174) 

C  ***  DENSITY  CORRECTION  TO  COMPONENT  CONDITIONS 
DENSC«DENS/RHO(KTEMP(IND)) 

DT(  1  )«*D (2)  / (  (D(  1)  *VALY)  **2  . *DENSC ) 

D( 3)“D( 1 )**2 . *DENSC/D ( 2) 

DT ( 2 ) *0 . 0 

IF(VALY.EQ.O.O)  GO  TO  1100 
RETURN 

1100  DT(l)-0.0 
DT(2)-10.E5 
RETURN 
C 

C****  STEADY  STATE  SECTION  **** 

C 

1500  PQLEG(INEL,8)-PQLEG(1NEL,8)+DT(1) 

QX«PQLEG(INEL, 1) 

PQLEG ( INEL , 6 ) -PQL  EG ( I NEL , 6  )+DT ( 2 ) 

PQLEGCINEL, 11 )-PQLEG(INEL, 1 1)-(PQLEG(INEL, 2)*QX*(DT(2)+QX*DT(1) ) ) 
RETURN 

2000  CONTINUE 
DT(1)»0.0 
DT ( 2 ) “0 . 0 
RETURN 

3000  CONTINUE 
Ll-L(l) 

L2-L(2) 

CALL  INTERP  (T,D(L(5) ) ,U(L(6) ) , 10,L(7) ,VALY,IOD) 

VYMAO-  ABS (VALY) 

DIFF-C(L1)-C(L2) 

IF(DT(1)+DT(2) .GT.0.0)GO  TO  3300 
IF(VYMAG.LT. 0.00001)  GO  TO  3100 
VFAC-D(3)*VALY**2 

QX-S IGN ( VFAC*D  ( 4 )  *  (SQRT ( 1-l-ABS  (D IFF)  / VF AC*D  ( 5 )  ) - 1 )  , DIFF) 

P(L1)-C(L1)-Z(L1)*QX 

P(L2)-C(L2)-Z(L2)*(-QX) 

Q(L1)-QX 
Q(L2)"-QX 
GO  TO  3200 
3100  CONTINUE 

P(L1)-C(L1) 

P(L2)-C(L2) 

Q(Ll)-0.0 

Q(L2)-0.0 

3200  I F ( P <L 1 ) .GE. PVAP(KTQIP(IND) ) . AND .P (L2 ) .GE.PVAP(KTEMP(IND) ) )RETURN 
IF(P(L1).LT.PVAP(KTEMP(IND)).AND.P(L2).LT.PVAP(KTEMP(IND))) 

+  GO  TO  3230 

IF(P(L1).LT.PVAP(KTEMP(IND)))G0  TO  3220 
3210  P2-PVA?(KTEMP(IND)) 

ZT-Z(Ll) 

Pi-C(Ll) 
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6.21.7  (Continued) 


IF(C(L1).GT.  PVAP(KTEMP (INH) )  )G0  TO  3500 
? 1 =P VAP ( <T  EMP ( I NO ) ) 

GO  TO  3600 

3220  Pl-PVAP(KTEMP(INO)) 

ZT=Z(L2) 

P2-’C(L2) 

IF(C(L2)  .GT.PVAP(KTF?1P(IND))  )G0  TO  3500 
P2=*PVAP(KTEMP(IN0)) 

GO  TO  3600 

3230  IF (P(L1)-P(L2) >3210,3400, 3220 
3300  IF(QT ( 1 ) .GT. 0. 0 .AND .QT(2) .GT . 0 . 0)GO  TO  3400 
IF(DT(1).GT.0.Q)G0  TO  3220 
GO  TO  3210 

3400  P1»PVAP(KTEMP(IND)) 

P2=PVAP (KTEMP( INO) ) 

GO  TO  3600 

3500  IF( VYMAG.LT. .00001)GO  TO  3600 
VFAC**D(3)  *VALY**2 

QV-VFAC*ZT/2 . 0* (SQRT( 1 . 0+4 . 0*ABS (P1-P2 ) / ( VFAC*ZT**2 ) )-l -  0) 
qV-SIGNQV,Pl-P2) 

IF(P1.GT.PVAP(KTEMP(IND)))G0  TO  3700 
GO  TO  3800 
3600  QV=0 . 0 

GO  TO  3750 

3/OU  P(L1)-C(L1)-QV*Z(L1) 

Q(L1)-QV 

3750  Q(L2)-(C(L2)-P2)/Z(L2) 

P(L2)-P2 

DT(2)-OT(2)-qV-q(L2) 

IF (QV . EQ . 0 . 0 ) GO  TO  3850 
RETURN 

3800  P(L2)-C(L2)-QV*Z(L2) 

Q(L2)-qV 

3850  q(Ll)-(C(Ll)-Pl)/Z(Ll) 

P(L1)-P1 

DT ( 1 )»DT ( 1 )+qV-Q(Ll ) 

RETURN 

END 
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APHESDIX  F 

TYPE  #31  CHECK  VALVE 

MY  T  RAN  I'SEP  HANl' .41  <  AF.APL-TR-  76-4  3  u  VOL  I> 


6.31  TYPE  t 31  CHECK  VALVE 


Fre* 

Flow 


orntma 


The  TYPE  it 31  component  is  a  model  of  a  simple  poppet  type  check  valve.  It 
models  the  poppet  dynamics  and  flow  characteristics  of  the  valve  and  can  have 
any  damping  factor  the  user  wants  to  input. 

The  input  data  is  quite  detailed  for  such  a  simple  device.  Modeling  of 
dynamic  response  characteristics  requires  detailed  design  parameters.  If  such 
information  is  unknown,  the  component  data  handbook  can  be  used  to  estimate 
typical  values  for  the  input  data. 

The  component  does  not  have  any  cavitation  provisions,  so  it  is  possible 
that  negative  pressures  will  result  when  it  is  used. 
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CARD  NUMBER  1 


COLUMN 

FORMAT 

DATA 

1-5 

T  5 

Component  Number 

6-10 

15 

Type  Number  =  31 

11-15 

15 

Number  of  Real  Data  Cards  =  1 

16-20 

15 

Line  Number  (with  sign)  attached  to  Connection  1 

21-25 

15 

Line  Number  (with  sign)  attached  to  Connection  2 

26-30 

15 

Connection  Order  (0  or  +1  -  conventional) 

31-35 

15 

(-1  -  backwards) 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 

Temperature/Pressure  Code  (See  Page  4.0-2) 

EXAMPLE  CARD 


9  ?\  1  +7  -8  C 

I  i  3  4  S  6  T  |  ft  10  HI*  IS  14  1^16  1 7  <•  1%  ?0  ?i  72  2\  24  ?•>  K  2T  2  •  M  SO  31  M  JS  14  19  Jt  57  M  M  40  41  4HJ  44  49  4S  -IT  41  49  W>  9i  9*  99  94  9i  94  97  U  99  80  *t  M  99  94 


OOOOOjOOCOO 

i  ;  )  4  5 |«  i  t  i  io| 

1  111  HI  Ml 

I 

2  2  2  ?  2*7  2  2  2  2 

i 

’  3  3  3  3jj  3  3  J  3 

4  4  4  4  4*4  4  4  4  4 


5  5  J  5  b'5  5  5  3  5 


I  tO  II  1 2  19  14  i%  I*  IT 

0  0  0  0  O’O  0  U  C  0 


|«  I?  U  M  is*. I  17  13  O  70 j 

ii  it  SJm  it  i 

2  2  2  2  2[2  2  2  2  2 
i 

3  3  3  3  313  3  3  3  3 

i 

4  4  4  4  4*4  4  4  4  4 

,t, 


«  *  j5  »  •«  *i9i  v  i)  m  i -to  ii  v  n  9»i 


5  5  5  5  5*5  5  i  5  5 


it  to  Zl  22  Z  9  24  79  *0  Zf  ?•  /»  50  H 

|o  o  p  o  o'o  o  o  o|| 


93  94  99  94  97  99  94  40  41  42  45  44  44  46  47  49  49  90  91  9t  43  94  99  43  of  48  99  90 


|?i  27  r»  t ;:?*  m| 

1  II  m|m  M  I 

2  2  2  2  2i2  2  2  2  2 
I 


3  3  3  3  3'3  3  3  3  3  3  3  3  3  3|3  3  3  3  313  3  3  3  3'3  3  3  3  3 


S  r,  6  0  6|u  5  E  fl  t'O  6  £  6  C,S  6  6|  6.:  «  6  C  $,5  S  6  E  6 


5  5  3  5  5|5  5  0  5  5 

t'r.  i 


7  7  7  7  U  1  1  1  1 


7  7  7  7  7l?  7  7  7  | 


7  7  7  7  7,7  7  i  7  7 


8  8  8  6  i  7 !  F  6  8,1  E  l|  lie  8  3  8  |t  USE 


o  c  o  o  o;o  o  o  o  o 

)l  J)  JJ  M  J‘,'5  J,  ]l  JI  10] 

nimiiii 

i 

2  2  2  2  2|2  2  2  2  2 

i 


(ID  4*4  444  4  4  4444*4  4444 


lll!lllll!i 


9  1  5  , |  >  •!  1  5  !*;i  9  9  9  9.9  9  9  9  9  9  9  9  9  9>9  9  9  9  5|S  9  9  9  9,9  9  ?  9 

«*  i-  -m  »  >4  ;4  ./ :i  i .  -i?  ti  i>  a  V-  3' 


?  9  9 


o  o  o  o  o;o  0  0  0  0  0  G  0  0  c;o  C  0  0  D  0  0  o  o  o;o  0  0  0  D 

. iii  s:  v.,A  s,  j3  siioj 


II  4:  4144  47  4|49  50 j 

7  1111*11111 

I 

2222  2'2  2222 
i 


4  4  4  4  1,4  M<  4 


II  U  J1  II  I  U  JI  JI  JI  (OKI  I.*  IJK  «5|«l  II  IMISojll  i?  SJ  s;|  -  i!  U  J1IJ 

'5  5  5  5  515  5  5  5  5  . . . 

8  c  8  E  S'S  6  8  $  S 

i 

7  7  7  7  7’7  7  7  7  7 


5  5  5  5  5,5  5  5  5  5 

I 

6  6  6  6  6t8  S  6  G  6 

i 

11 11 VI 1111 

i 

I  I  t  I  s|l  1  I  «  8 

9  9  9  9  9I9  9  9  9  9 

t.  4.  4  44  4.1,44  4/  44  4>i  .j| 


M  M  I'll  M  I 
1 


2  2  2  2  2|2  2  2  2  2|2  2  2  2  2,2  2  2  2  2 

3  3  3  3  3,3  3  3  3  3|3  3  3  3  3'3  3  3  3  3 


4444  4*4  4444 


5555  5,5  5555 
S66E  618  6886 

I 

7  7  7  7  7'7  7  7  7  7 

1 

miiliiii! 

9  9  9  9  9,9  9  9  9  9 


ai  U  II  C«  55'iiitJtJtl  -I, 

1 1 11 1)1 1 1 1 1 

L 


I 

4  4  4  4  4|*4  4  4  4  4 

<1  «  I)  14  tljil  I)  «  Ii  T0| 

5  5  5  5  5i5  55  5  5 
1 

6666666566 

1 

111  ll\lll  11 


;  A  ‘4  554 U  ‘A  51  *5t0|t'  i?  tl  i<  '  jSS  89  n 
mac  sotsn  (»fv  *5  rco  ?oi 


OCOOOjOOQGO 

ii  j  u  jys  )J  n  ji  »o 

M  1  1  In  11  1  1 
1 

2222 V2 2222 


3  3  3  3  3*3  3  3  3  3 

4  4  4  4  4*4  4  4  4  4 

n  17  u  t%Ij»  7i  7i ;» ,3 

5  5  5  5  5|j  5  0  5  j 


IS  6  8  6  6*5  5  S  8  S 

I 

7  7  7  7  7|?  7  7  7  / 


9811  6,8  88883888  2|8  8883 
9  9  9  9  S,9  ?  9  9  9  9  9  *J  9  9l9  9  9  5  9 

3  ;*  :S4‘»  ■;  i ))  : 
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CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Poppet  Area 

IN2 

11-20 

E10.0 

Full  Flow  Area 

IN2 

21-30 

E10.0 

Poppet  Mass 

lb*sec2/in 

31-40 

E10.0 

Spring  Preload 

LB 

41-50 

E10.0 

Spring  Constant 

LB/IN 

51-60 

E10.0 

Damping  Factor 

LB*S EC/IN 

61-70 

E10.0 

Maximum  Poppet  Displacement 

IN 

71-80 

E10.0 

_ 

EXAMPLE  CARD 

.  1"1  .14888?  S.tf’fc'SE-S'  .85?  .WSf  0.1  .1588 

>  1  4  jg  fc  r  $  4  10  0  <l*,»  14  .i  16  IT  a§>  \  g  14  VS  '*  .  :t  i4  ,4  log  tt  .11  M  »  H  II  »g>  40  4(  414144  4'.  41  'r  4,  49  f  1.  5*  l.t  II  C5  sglT  13  *,?  40  61  6*  £.5  44 


I  *  5  4  5  6  7  4  9  15  ii  1?  15  II  tft  >4  I  '  d  J*  Tv  «’l*2  75  *4  r»  H  V  11  :*<  JO  «l  it  1J  54  J5  4f>  3^  »»  59  40  <1  42  45  44  45  4C  47  4|  49  U>  51  *>2  c3  54  55  Sf  5»  5.1  M  90 
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appendix  f 

SUBROUTINE  CVAL31 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL  II) 

6.31  SUBROUTINE  CVAL31 

Subroutine  CVAL31  models  a  simple  poppet  type  check  valve.  The  check 
valve  may  be  damped  or  undamped.  Figure  6.31-1  shows  an  undamped  check  valve 
of  the  type  generally  in  use  in  the  aircraft  industry  today.  CVAL31  models 
the  poppet  dynamics  and  flow  characteristics  of  such  a  valve  when  subjected 
to  transient  pressures. 

Subroutine  CVAL31  does  not  have  a  cavitation  model. 

The  input  data  for  the  model  is  quite  detailed.  Accurate  dynamic  response 
requires  detailed  design  parameters.  If  such  information  is  unknown, 
the  component  data  handbook  can  be  used  to  estimate  typical  values  for 
the  input  data. 


•  Connection  No.  1 


Connection  No.  2 


Free 

Flow 


Inlet  i.D. 


FIGURE  6.31*1 
TYPE  NO.  31  CHECK  VALVE 


GP74-07734 


6.31.1  MATH  MODEL 

The  check  valve  is  modeled  as  an  orifice  of  variable  area.  The  area  at 
any  given  time  is  determined  by  the  position  of  the  force  balanced  poppet. 

CVAL31  uses  the  poppet  position  cf  the  last  time  step  to  calculate  the  flow  and  pressure 
drop  through  the  check  valve.  With  the  upstream  and  downstream  pressures  known, 
a  force  balance  is  performed  on  the  poppet  to  determine  its  new  position.  The 
new  position  is  used  in  the  flow  calculation  and  an  iteration  process 
between  the  flow  calculation  and  poppet  position  occurs  until  a  correct  poppet 
position  is  reached. 

Figure  6.31-2  shows  the  forces  acting  on  the  check  valve  poppet. 


Fissure  6.31-2 


461 


« 


» 


Defining  x  ■  o  as  the  poppet  displacement  when  fully  seated,  the  force 
balance  on  the  poppet  is 

(P1-P2)  *  A1  =  FI  +  FD  +  Fs  (1) 

Where  PI  ■  inlet  pressure  (PSl) 

P2  *  outlet  pressure  (PSI) 

Fj  ■  poppet  inertia  force  (LB) 

FD  "  poppet  damping  force  (LB) 

Fg  =  spring  force  (LB) 

A1  *  POPPET  AREA  (IN2) 

By  further  defining 

rS  -  fL  +KS,XN 
ID  -  VV„ 

Fj  -  M*a 

Where  P  =  spring  preload  (LB) 

L 

Kg  =  spring  constant  (LB/ IN) 

*  present  poppet  displacement  (IN) 

Kp  ■  damping  factor  (LB*SEC/IN) 

VN  *  present  poppet  velocity  (IN/SEC) 

M  *  poppet  mass  (LB*SEC2/IN) 

2 

a  -  poppet  acceleration  (IN/SEC  ) 

And  using  the  physical  definitions  for  velocity  and  acceleration 
VN  -  (Xn  -  Xo)/At  (IN/SEC) 

Q  -  (Vn  -  Vo) /At  (IN/ SEC2) 

Where  Xo  •  previous  poppet  position  (IN) 

Vo  ■  previous  poppet  velocity  (IN/SEC) 

At  *  time  increment  (SEC) 
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Making  all  of  the  substitutions,  the  force  balance  (Equation  1)  becomes 

(P1-P2)*A1  =  M*  (Xn-Xo-Vo*At)/At2  +  Kp*  (Xn-Xo)/At  +  PL  +  Ks  *  ^  ^ 

Using  Equation  (2),  the  present  poppet  displacement  can  be  solved  for  as 

JM9  KD  Vo  *  M  KD  ] 

=  [(P.l-P2)/Al+Xo*  (At'  4-  At)  +  At  -P  ]  /  [(At^  +  At  +  KS  J  (3) 

Using  the  line  equations 

PI  =  Cl  -  Z1*Q1  (4) 

P2  =  C2  *  Z2*Q2  (5) 

Where  a  positive  flow  convention  from  PI  to  P2  is  assumed  and. 

Cl  =  connection  #1  line  characteristic  (PSI) 

C2  =  connection  it 2  line  characteristic  (PSI) 

Zl  =  connection  it  1  line  impedance  (PSI/CIS) 

Z2  =  connection  it2  line  impedance  (PSI/CIS) 

Assuming  conservation  of  flow. 

Q  =  Q1  =  Q2 

The  pressure  differential  necessary  for  Equation  (3)  can  be  written  as 

P1-P2  =  C1-C2  -  Q*  (Zl  +  Z2)  (6) 

Using  the  equation  for  flow  through  an  orifice 

1/2 

Q  *  AV*CV*  (2*  (P1-P2) /RHO) 

Where  Q  *  flow  (CIS) 

AV  -  orifice  area  (IN2) 

CV  -  discharge  coefficient 

RHO  *  fluid  density  (LB*SEC2/IN4) 

with  Equation  (2)  gives  the  quadratic  equation 

Q2  +  Q*R2*ZTOT  -  R2*CDIFF  •  0  (7) 

Where  R  -  AV*CV*2/ ^RHo  (IN4/(SEC*LB1/2) 

ZTOT  -  Z1+Z2  (LB*SEC/IN5) 

CDIFF  -  C1-C2  (LB/IN2) 
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The  solution  to  Equation  (7)  is 

Q  =(-ZTOT*R2  +^R4*ZTOT2  -4*R2*CDIFF) /2 . 0  (8) 

With  the  flow  from  Equation  (8),  Equation  (6)  can  be  used  to  determine 
the  pressure  drop  necessary  for  the  poppet  force  balance  (Equation  3).  Assuming 
the  linear  position  vs.  area  rule  of  the  poppet,  the  variable  R  in  Equation  (7) 
can  be  updated  each  iteration  by  the  formula 
R  =  R*X^/Xmax  (9) 

Where  Xn  =  poppet  position  (calculated  by  Equation  3) 

Xmax  =  maximum  poppet  displacement 
In  subroutine  CVAL31,  an  iteration  using  Equations  8,  6,  3  and  9  is 
used  to  converge  to  the  correct  poppet  position  for  a  given  time  step. 

6.31.2  LIMITATIONS 

The  model  does  not  account  for  displacement  flow  due  to  poppet  motion, 
f°r  the  variations  in  orifice  characteristic  with  poppet  position,  for  secondary 
pressure  drops  due  to  other  flow  restrictions,  or  for  flow  forces  on  the  poppet. 

All  of  these  factors  are  highly  dependent  on  individual  valve  design  and  to  include 
them  would  result  in  a  model  too  complex  and  specific  to  be  of  any  general  use. 

As  a  result  of  these  limitations,  the  dynamic  simulation  of  the  check 
valve  may  not  be  very  accurate,  especially  when  excited  by  very  fast  transients 
or  when  in  a  simulation  where  a  large  time  step  is  used.  In  simulations  where 
the  poppet  will  be  either  fully  open  or  fully  closed  for  the  majority  of  the 
time,  the  above  limitations  are  acceptable  and  the  model  should  give  good  results. 

6.31.3  COMPUTATIONS 

1000  SECTION  -  Valve  characteristics  necessary  for  the  steady  state 
portion  of  the  program  are  calculated  and  stored  in  the  component's  DT  array. 
Control  is  then  returned  to  the  main  program. 
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1500  SECTION  -  A  series  of  checks  are  made  to  determine  the  orientation 
of  ihe  component  with  respect  to  leg  and  line  assemblies.  If  the  flow  direction 
given  by  the  main  program  is  opposite  the  free  flow  direction  of  the  check 
valve,  the  leg  constant  for  the  flow  term  is  set  equal  to  10^  PSI/CIS, 
the  upstream  pressure  is  calculated,  and  control  is  returned  to  the  program. 

If  the  flow  is  in  the  free  flow  direction  of  the  valve  and  is  greater 
than  the  flow  that  would  result  through  the  fully  open  valve  at  the  pressure 
drop  necessary  to  fully  open  the  poppet,  the  lower  flow  limit  of  the  leg  is  set 

equal  to  the  fully  open  flow.  The  orifice  constant  for  a  fully  open  poppet  is 

2 

used  for  the  Q  leg  calculation  and  the  upstream  pressure  is  calculated  and  stored. 

If  the  flow  is  in  the  free  flow  direction  but  is  not  sufficient  enough 
to  hold  the  poppet  open,  the  upstream  pressure  is  recalculated  using  the  formula. 
Pup  =  Pup  “  Pc  *  Qs  -  Qa  *  Qs  *  S 
Where  P^p  =  upstream  pressure  (PSI) 

Pc  =  cracking  pressure  «  spring  preload/poppet  area  (PSI) 

Qs  *  flow  sign  (+1  or  -1) 

Qa  =  absolute  value  of  flow  guess  (CIS) 

S  =  slope  of  intermediate  position  pressure  drop  (PSI/CIS) 

=  (spring  const.  *  max  disp)  /  (flow  through  fully  open  poppet 

at  AP  for  full  opening) 

Poppet  position  is  then  calculated  and  stored  using  the  formula 
Poppet  position  -  (S*Qa+Pc)/Popen  *  MAX  DISP 
Where  Popen  “  pressure  drop  necessary  to  fully  open  poppet 
A  check  is  then  made  to  determine  if  the  upper  flow  limit  Is  greater 
than  the  minimum  flow  through  the  fully  open  poppet.  If  it  is,  the  upper 
flow  limit  is  set  equal  to  the  minimum  flow.  The  cracking  pressure  is  multiplied 
by  the  flow  sign  then  subtracted  from  the  constant  pressure  drop  leg  term  and 
the  slope  of  the  intermediate  position  pressure  drop/flow  line  (S)  is  added 
to  the  Q  leg  term  before  control  is  returned. 


2000  SECTION  -  The  DT  variables  are  initialized  for  the  transient  section. 

3000  SECTION  -  A  check  is  made  to  determine  the  last  time  step's  poppet 
position.  If  the  poppet  was  closed,  flow  is  set  equal  to  zero.  If  the  poppet 
was  open,  flow  is  calculated  using  Equations  (8)  and  (9)  of  Section  6.31.1, 

With  this  flow,  Equation  (6)  of  Section  6.31,1  is  used  to  determine  the  pressure 
drop  necessary  for  calculation  of  the  new  poppet  position  (Equation  3) .  Limits 
are  placed  on  this  new  poppet  position  to  keep  it  within  the  operating  displacement 
of  the  check  valve  poppet.  The  ner  position  is  compared  to  the  last  calculation 
of  the  poppet  position  and  if  the  difference  is  less  than  +  .001  inches,  new 
poppet  velocity  and  displacement  are  calculated  and  stored,  then 
the  line  pressures  and  flows  determined  before  control  is  returned. 

If  the  new  poppet  position  is  more  than  .001  inches  different  than  the 
last  calcualtion  of  poppet  position,  they  are  averaged  and  the  flow  is  again 
calculated  using  this  averaged  poppet  position.  An  iteration  using  the  flow, 
pressure  drop,  and  poppet  position  equations  is  made  until  the  difference  in 
poppet  positions  between  one  iteration  and  the  next  is  less  than  .001  Inches. 

(The  iteration  is  limited  to  10)  Once  the  poppet  position  is  determined , 
it  is  stored  as  the  time  step's  calculation  of  poppet  position  and  used  in  the 
calculation  of  poppet  velocity.  The  flow  that  was  calculated  in  the  last  iteration 
is  used  for  the  line  flow  and  line  pressure  calculations, then  control  is  returned 
to  the  main  program. 

6.31.4  ASSUMPTIONS 

The  assumptions  of  no  flow  forces  on  the  poppet  and  a  linear  area  vs  displacement 
relationship  can  be  sources  of  Inaccuracy.  Also,  the  assumption  of  a  square 
law  (orifice)  flow  characteristic  is  not  borne  out  by  manufacturer's  test  data. 

All  of1  these  factors  can  be  highly  design  dependent,  and  hence  for  a  simple  model 
provide  some  justification  for  the  assumptions. 
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6.31.5  LIMITATIONS 


The  main  limitation  of  subroutine  CVAL31  is  the  lack  of  a  cavitation 
simulation.  This  can  result  in  negative  pressures  being  calculated  when  pressures 
drop  below  the  fluid  vapor  pressure. 
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6. 31.6 

Variable  Names 

NAME 

DESCRIPTION 

DIMENSIONS 

CDIFF 

Characteristic  Pressure  Difference 

PSI 

D  (Al) 

Poppet  Area 

IN2 

D(A2) 

Full  Flow  Orifice  Area 

IN2 

D(DAMF) 

Poppet  Damping  Factor 

LB*SEC/IN 

D  (PL) 

Spring  Preload 

LB 

D(XMAX) 

Maximum  Poppet  Displacement 

IN 

DP 

Pressure  Drop  Across  Poppet 

PSI 

DT(CRV) 

Flow  Characteristic  of  Poppet 

CIS/  PSI* IN 

DT(CXO) 

Poppet  Inertia/Damping  Characteristic 

LB /IN 

DT(K1) 

Poppet  Spring/Mass  Characteristic 

LB /IN 

DT (VO) 

Poppet  Velocity 

IN/ SEC 

DT  (X) 

Poppet  Position 

IN 

ITER 

Iteration  Counter 

— 

Q1 

Component  Flow 

CIS 

QA 

Leg  Flow 

CIS 

QS 

Flow  Sign 

— 

RV 

Flow  Characteristic  at  Given  Poppet  Displacement 

CIS/  PSI 

XN 

New  Poppet  Position 

IN 

XP 

Predicted  Poppet  Position 

IN 

ZT 

Total  Line  Characteristics 

PSI 

J 
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6.31.7  Subroutine  Listing 


SUBROUTINE  CVAL31  (D,DT,DD,L) 

C  ***  REVISED  DECEMBER  1979  *** 

C  **»  THIS  IS  A  CHECK/RELIEF  VALVE  MODEL  THAT  INCLUDES  THE  POPPET 
C  ***  DYNAMICS. 

DIMENSION  D(l) ,DT ( 1 ) ,DD( 1 ) , L( 1 ) 

DUUBLE  PR ECiSlUN  DD 

COMMON  NTELPL, NTOLPL , IPT , IPOINT ,NPTS , INEL,KNEL,NTOPL ,NLPLT(61 , 3) , 
1  FyLEG(90,12) ,LCS ( 90, 10) , ILEG( 1 400) , PN(90) ,QN(90) 

COMMON/ SUB/ PARM( 1 50, 9) , PM( 1500) , QM( 1500) ,P(300) ,Q(300) ,C(300) 

1, Z(300) ,RHO(20) ,S20RHO(20) , VISC(20) , BULK (20) , TEMP (20) ,PVAP(20) 

2 ,  A'l'PKES , T ,  DELT ,  TFINAL,  PLTDEL, PI , TITLE (20)  ,LEGN ,  ICON 

3 , KTEMP(99) ,LSTART(150) ,NLPT (150) ,LTYPE(99) ,NC(99),INX, INZ 

4 ,  I NV ,  1ST  EP ,  NLINE ,  NEL ,  IND ,  I ENTR ,  MNLINE , MNEL  ,MNLEG  .MNNODE  .MNPLOT 
5  jMNLPTS ,MDS 

INTEGER  A1 , A2 ,CRV,CXO,DAMP, PL , VO ,X, XMAX 
C  ***  FOR  THE  STEADY  STATE  SECTION  THE  DT  VARIABLES  HAVE  THE 
C  ***  FOLLOWING  DEFINITIONS. 

C  DT ( 1 ) ■  CRACKING  PRESSURE 
C  DT(2)«  FULL  OPEN  PRESSURE 
C  DT(3)«  FULL  OPEN  FLOW 

C  DT ( 5 ) »  SLOPE  OF  INTERMEDIATE  POSITION  PRESSURE  DROP 
C  ***  THE  DT  VARIABLES  ARE  REDEFINED  IN  THE  2000  AND  3000  SECTIONS. 

C  ***  D  VARIABLES  *** 

DATA  Al/l/,A2/2/,M/3/,PL/4/,KS/5/,DAMP/6/,XMAX/7/ 

C  ***  ox  VARIABLES  *** 

DATA  X/l/,VO/2/,CXO/3/,CRV/4/,Kl/5/ 

IF(IENTR)  1000,2000,3000 
1000  CONTINUE 

IF (INEL.NE • 0)  GO  TO  1500 

DT (CRV)* (D(A2) /D(XMAX) ) * .65*S20RH0(KTEMP(IND) ) 

DT(1)-D(PL)/D(A1) 

DT(2)-D(KS)*D(XMAX)/D(Al)+DT(l) 

DT(3)«D(A2)*.65*S20RH0(KTEMP(IND))*SQRT(DT(2)) 

Dx01-1UT(27-UTU11/UT(3) 

return 

C  SECTION  FOR  STEADY  STATE  CALCULATION 

1500  CONTINUE 

IF(KNEL.NE. 1)RETURN 
QA-PQLEG(INEL.l) 

QS-PQLEG(INEL,2) 

LCS(INEL,6)-QS 
IF(L(3) .EQ. 1.)  GO  TO  1600 
C  THE  VALVE  IS  CONNECTED  CONVENTIONAL Y 
IF(L(3).NE.0)CO  TO  1900 
mqS.KQ.l.;  GO  To  1/UU 
GO  TO  10  3U 

C  THE  VALVE  IS  CONNECTED  BACKWARDS 

ItoUU  IFIL( J) «NK. I  )GO  TO  190U 
inqS.LT.  1.0)  GO  TO  1700 
C  THE  VALVE  IS  CLOSED 
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6.31.7  (Continued) 


1650  PQLEG (INEL, 6)-1.0E6+PQLEG(INEL, 6) 

PQLEG (INEL, 1 1 )-PQLEG (INEL , 1 1 )-QA*QS*l . 0E6 

DT(6)-0.0 

RETURN 

1700  IF  (QA.LE.DT(3))  GO  TO  1800 
C  THE  VALVE  IS  FULLY  OPEN 

IF (PQLEG (INEL, 3).LT.DT(3))  PQLEG (INEL, 3)-DT (3) 
DT(6)-D(XMAX) 

PQLEG (INEL, 8) “PQLEG (INEL , 8)+l . / (DT(6) *DT(CRV) )**2 
PQLEG(INEL,  1 1)“PQLF.G(INEL,  1 1 )-QS*QA**2/(DT(6)*DT(CRV) )**2 
RETURN 

C  THE  FLOW  IS  LESS  THAN  THE  'FULL  OPEN  FLOW' 

1 800  PQLEG ( INEL ,  1 1 ) -F QLF.G ( INEL ,  1 1 ) -DT  ( 1 )  *QS 
1  -QA*QS*DT(5) 

DT  ( 6 ) “  (  (DT  (  5 )  *QA+DT  ( 1 )  )  /DT ( 2  )  ) *D (XMAX) 
IF(PQLEG(INEL,4).GT.DT(3))  PQLEG(INEL,4)-DT(3) 

PQLEG (INEL, 5)«PQLEG(INEL , 5)-DT( 1 )*QS 
PQuEG  (INEL ,  6  )“PQLEG  (INEL ,  6  )  4-DT(  5  ) 

RETURN 

C*****ILLEGAL  INPUT  DATA  TERMINATES  PROGRAM***** 

1900  WRITE(6,998) 

998  FORMAT ( 1 OX , 3 3HPR0GRAM  STOP  IN  SUBROUTINE  CVAL31) 

STOP  1531 
2000  CONTINUE 

DT (CXO ) -D (M) /DELT**2+D (DAMP) /DELT 
DT(K1)-DT(CX0)+D(KS) 

DT (X)“DT (6 ) 

DT (VO)“0. 0 
RETURN 

3000  CONTINUE 

L l “L ( 1 ) 

L2-L(2) 

ITER-0 

ZT-Z(L1)+Z(L2) 

CDIFF“C(L1)-C(L2) 

XO-DT(X) 

XP-DT(X) 

3010  RV-XP*DT(CRV) 

IF(RV.GT.O.O)  GO  TO  3020 
Q 1-0.0 
GO  TO  3030 

3020  Ql-SIGN((RV**2*ZT/2.)*(-1.0fSQRT(l.'H4.0*ABS(CDIFF) 
+/(RV**2*ZT**2) ) ) .CDIFF) 

3030  DP-CDIFF-Ql *ZT 

XN- (DP*D (A 1 )+X0*DT (CXO ) +DT ( VO ) *D (M) /DELT-D (PL) ) /DT (K1 ) 
IF(XN.LT. 0.0005)  XN-0.0 
IF(XN.GT.D(XMAX))  XN-D(XMAX) 

IF(ABS(XN-XP).LT. .001)  GO  TO  3050 

XP-(XN+XP)/2.0 

IF(XP.LT. 0.0005)  XP-0.0 
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6.31.7  (Continued) 


IF (XP.GT.D (XMAX) )  XP-D(XMAX) 
IF(ITF.R.GE.IO)  GO  TO  3050 
ITER-ITER+1 
GO  TO  3010 

3050  IF(XN.EQ.0.0)XP-0.0 

DT ( VO )- (XP-DT (X) ) /DELT 
WRITK(6,4000)DP,CDIFF,XN,XP,XO,Q1,ITER 
4000  FORMAT (2X, 6HCVAL3 1 ,2X,6E12.4,2X,1I3) 
IF(XP.EQ.O.O)  QT(VO)«C.O 
DT(X)-XP 

IF(XP.LE.O.O)  Ql-O.O 

Q(L1)«Q1 

Q(L2)— Q1 

P(L1)-C(L1)-Q(L1)*Z(L1) 

P(L2)-C(L2)-Q(L2)*Z(L2) 

RETURN 

END 
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APPENDIX  G 

TYPE  #32  PRIORITY  VALVE 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 

6.32  TYPE  #32  PRIORITY  VALVE 


FIGURE  6.32*1 

TYPE  NO.  32  PRIORITY  VALVE 

The  Type  #32  priority  valve  is  modeled  as  a  parallel  check  valve/relief 
valve  combination.  As  shown  in  Figure  6.32-1,  the  priority  valve  allows  free 
flow  from  the  outlet  (Connection  #1)  to  the  inlet  (Connection  #2)  through  the 
check  valve,  and  permits  reverse  flow  when  the  pressure  at  Connection  #2  is 
sufficient  to  open  the  relief  valve. 

In  practice,  devices  such  as  this  give  flow  priority  to  the  subsystems 
upstream  of  them  by  shutting  off  flow  when  their  inlet  pressure  drops  below 
a  specified  level. 

The  priority  valve  model  is  an  idealized  model.  As  such,  it  is  instantaneous 
in  its  reactions  and  does  not  have  the  spring/mass/damping  effects.  It  should 
give  accurate  results  in  simulations  where  it  is  not  excited  by  fast  transient 
pressures  around  its  shutoff  value. 


472 


♦ 


APPENDIX  G  (CONT) 

SUBROUTINE  CREL32 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  II) 

6.32  SUBROUTINE  CREL32 

Subroutine  CREL32  models  a  hydraulic  priority  valve  with  free  reverse 
flow.  As  diagramed  in  Figure  6.32-1,  the  subroutine  simulates  the  component 
as  a  parallel  relief  valve/check  valve  combination.  The  check  valve  allows 
flow  in  the  free  flow  (reverse)  direction  and  the  relief  valve  modulates 
flow  in  the  normal  direction  (Connection  #2  to  Connection  //l)  . 


FIGURE  8.32-1 

TYPE  NO.  32  PRIORITY  VALVE 
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Connection  II 3  in  an  actual  priority  valve  is  used  for  relief  valve 
reference  pressure  and  as  a  return  path  for  any  internal  seal  leakage. 

In  this  model,  Connection  II 3  serves  no  direct  purpose.  It  is  recommended 
that  no  node  be  placed  at  a  Type  32  priority  valve  and  that  the  steady 
state  leg  attached  to  the  valve  be  assembled  directly  through  it  (Connection  111 
to  Connection  112  or  vice  versa).  Even  though  Connection  II 3  sees  no  use, 
the  line  number  attached  to  it  must  be  input  on  the  first  card  of  the  component. 
It  is  easiest  to  handle  this  line  by  coding  it  as  a  dead  ended  line  and 
assembling  it  as  a  zero  flow  leg  originating  at  the  branch  where  it  ties 
into  the  return  system. 

During  the  steady  state  calculations,  the  program  assumes  the  priority 
valve  is  open  in  both  directions  when  the  system  is  pressurized  and  closed 
when  the  system  is  depressurized. 
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CARD  NUMBER  1 


COLUMN 

FORMAT 

1-5 

15 

6-10 

15 

1  11-15 

15 

msm 

15  u 

21-25 

15 

26-30 

15 

31-35 

15 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 

Component  Number 


Type  Number  **  32 


Number  of  Real  Data  Cards  •  . 


Line  Number  (with  sign)  attached  to  Connection  1 


Line  Number  (with  sign)  attached  to  Connection  2 


Line  Number  (with  sign)  attached  to  Connection  3 


Operation  Code  (+1)  -  Both  Valves  Closed 


(0)  -  Relief  Valve  Opened 


Temperature/Pressure  Code  (See  Page  4.0-2) 


EXAMPLE  CARD 


5 
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This  subroutine  does  not  model  the  spring/mass  dynamics  of  either  the 
check  valve  or  relief  valve.  Instead,  it  establishes  an  opened  or  closed 
condition  for  each  valve,  then  calculates  a  component  flow  based  on  input 
data  and  line  pressures  supplied  by  the  main  program.  The  pressure  at 
Connection  It 3,  used  in  an  actual  priority  valve  as  a  reference  pressure 
for  the  relief  valve,  is  not  used  at  all  in  subroutine  CREL32.  This  approach 
yields  a  very  simple  model  that  probably  won't  give  accurate  results  when 
hit  by  transient  pressures  around  its  cracking  and  reseat  conditions.  Its 
main  use  is  to  simulate  gradual  shutdown  of  a  low  priority  function  to 
maintain  pressure  requirements  upstream  of  the  valve. 

6.32.1  MATH  MODEL 

The  math  model  of  subroutine  CREL32  accounts  for  five  different 
operating  conditions  of  a  priority  valve.  The  conditions  and  their  solution 
approaches  are: 

(1)  P2  >  PI  and  P2  >  relief  valve  cracking  pressure  and  P2  >  relief 
valve  reseat  pressure  -  the  relief  valve  is  fully  open,  flow  is 
calculated  using  relief  valve  flow/AP  relationship  and  line 
pressures . 

(2)  P2  >  PI  and  P2  <  relief  valve  reseat  pressure  but  P2  >  relief  valve 
cracking  pressure  with  flow  already  established  -  the  relief 
valve  is  open  and  flow  is  calculated  as  in  Case  (1) . 
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(3)  P2  >  PI  and  P2  <  relief  valve  cracking  pressure  with  flow  not 
established  -  the  relief  valve  is  closed,  flow  is  calculated 
using  leakage  impedance  and  line  flows. 

(4)  PI  >  P2  and  P1-P2  >  check  valve  cracking  pressure  -  the  check 
valve  is  open,  reverse  flow  is  calculated  using  the  line  pressures 
and  flow/AP  relationship  of  the  check  valve. 

(5)  PI  >  P2  and  P1-P2  <  check  valve  cracking  pressure  -  the  check  valve 
is  closed  and  reverse  flow  is  calculated  using  line  pressures 

and  leakage  impedance. 

Section  1500 

The  steady  state  calculations  of  subroutine  CREL32  consist  only  of  the 
addition  of  a  flow  or  leakage  term  (depending  on  whether  the  valve  is  opened 
or  closed)  to  the  Q  leg  column  and  the  calculation  of  the  upstream  node 
pressure  based  on  the  leg  constants  and  current  flow  guess. 

Section  3000 

In  the  transient  section  calculations,  pressure  differential  and  flow 
conditions  are  established  to  determine  which  of  the  cases  listed  above 
exists  at  the  particular  time  step.  With  this  known,  a  correct  flow  or 
leakage  impedance  can  be  selected  from  the  input  data  and  used  to  calculate 
the  flow  at  Connection  //I  as: 

Q1  «*  (C1-C2)  /  (Z1  +  Z2  +  ZI) 

Where  Q1  ■  Flow  at  Connection  it  1  (CIS) 

Cl  *  Connection  it  1  Line  Characteristic  (PSI) 

C2  -  Connection  it 2  Line  Characteristic  (PSI) 

Zl  -  Connection  #1  Line  Impedance  (PSI/CIS) 

Z2  ■  Connection  #2  Line  Impedance  (PSI/CIS) 

ZI  <■  Selected  Priority  Valve  Impedance  (PSI/CIS) 
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Conservation  of  flow  gives  the  flow  at  Connections  if 2  and  if3  as: 

Q2  -  -Q1 
Q3  »  0.0 

Using  the  basic  line  equation,  the  line  pressures  can  be  calculated 

as: 

PI  =  Cl  -  Q1*Z1 
P2  -  C2  -  Q2*Z2 
P3  -  C3 

Where 

Pi  =  Pressure  at  Connection  #1  (PSI) 

P2  *  Pressure  at  Connection  if2  (PSI) 

P3  »  Pressure  at  Connection  if 3  (PSI) 

Q2  -  Flow  at  Connection  if2  (CIS) 

Q3  «  Flow  at  Connection  #3  (CIS) 

6.32.2  ASSUMPTIONS 

Both  the  relief  valve  and  check  valve  are  assumed  to  act  instantaneously 
and  to  be  either  fully  open  or  fully  closed. 

If  the  relief  valve  is  closed  for  steady  state  Initialization,  leakage 

flow  is  assumed  to  allow  the  flows  and  pressures  to  balance. 

The  reseat  pressure  of  the  check  valve  is  assumed  to  be  the  same  as  its 
cracking  pressure. 

6.32.3  COMPUTATIONS 
1000  Section 

Integer  codes  necessary  to  describe  the  component's  orientation  and 
operating  mode  for  the  steady  state  initialization  are  set,  then  control 
is  returned  to  the  main  program. 
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1500  Section 

Tests  are  made  to  determine  whether  relief  valve  or  leakage  Impedance 
should  be  used  In  the  leg  calculations.  After  these  tests,  the  appropriate 
valve  flow  factor  is  selected  from  the  input  data  and  added  to  the  Q  leg 
impedance  term.  Upstream  node  pressure  is  recalculated  then  control  Is 
returned. 

2000  Section 

DT  variables  necessary  to  begin  the  transient  section  calculations  are 
initialized. 

3000  Section 

Connection  pressures  supplied  by  the  main  program  are  compared  to 
input  values  of  cracking  and  reseat  pressures  to  determine  which  mode  of 
operation  the  priority  valve  is  in.  Operating  codes  are  set  to  record  which 
mode  the  component  is  in,  and  the  appropriate  component  impedance  is 
selected  from  the  input  data  and  used  in  the  calculation  of  Connection  #1 
flow.  The  basic  line  equations  and  boundary  conditions  are  then  used  to 
give  the  remaining  connection  flows  and  pressures. 

6.32.4  APPROXIMATIONS 

None. 

6.32.5  LIMITATIONS 

The  CREL32  subroutine  does  not  include  the  Inertia  or  damping  effects 
of  the  valve  components  and  does  not  have  a  cavitation  simulation.  Use 
of  CREL32  when  these  effects  are  important  will  give  erroneous  results. 
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6.32.6 

NAME 

D(CLOS) 

D(IPCH) 

D(IPREL) 

D(IZCH) 

D(IZLK) 

D(IZREL) 

DELP1 

DELP2 

DIMP 

DT(P1) 

DT(P2) 

DT(P3) 

DT(POSO) 

DT(ZV) 

N 

NPOS1 

NPOS2 

NPOSCK 

Q1 

ZI 


Variable  Names 


DESCRIPTION 

Relief  Valve  Reseat  Pressure 
Check  Valve  Cracking  Pressure 
Relief  Valve  Cracking  Pressure 
Check  Valve  Flow  Characteristic 
Leakage  Impedance 
Relief  Valve  Flow  Characteristic 
Pressure  at  Inlet  (Connection  #2) 
Component  Pressure  Drop 
Temporary  Flow  Characteristic 
Outlet  Piessure  (Connection  #1) 

Inlet  Pressure  (Connection  #2) 

Return  Pressure  (Connection  //3) 

Flow  Direction  Indicator 

Flow  Indicator 

Downstream  Node  Number 

Cracked  Relief  Valve  Indicator 

Seated  Relief  Valve  Indicator 

Cracked  Check  Valve  Indicator 

Component  Steady  State  Flow  Value 

Temporary  Relief  Valve  Flow  Characteristic 


DIMENSIONS 

PSI 

PSI 

PSI 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI 

PSI 

PSI/CIS 

PSI 

PSI 

PSI 


CIS 

PSI/CIS 
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6.32.7  Subroutine  Listing 


SUBROUTINE  CREL32  (D,DT,DD,L) 

C  ***  REVISED  DECEMBER  1979  *** 

DOUBLE  PRECISION  DD 
DIMENSION  D(6) ,DT(5) ,DD(1) ,L(4) 

COMMON  NTELPL , NTOLPL , IPT , IPOINT , NPTS , INEL , KNEL ,NTOPL ,NLPLT (61,3), 
1  PQLEG(90 ,12) ,LCS (90, 10) ,ILEG ( 1400) ,PN(90) ,QN(90) ,PEX(90) 
COMMON/SUB/PARM( 1 50, 9) ,PM(1500) ,QM( 1500) ,P(300) ,Q(300) ,C(300) 

1 ,  Z( 300) „RHO (20) ,S2ORHO(20) , VISC(20) .BULK (20) ,TEMP(20) ,PVAP(20) 

2,  ATPRES ,T , DELT , TFINAL , PLTDEL , PI , TITLE ( 20) ,LEGN , ICON 

3,  KTEMP(99) .LSTART (150) ,NLPT (150) ,LTYPE(99) ,NC(99) , INX.INZ 

4, INV, ISTEP.NLINE, NEL , IND , IENTR,MNLINE,MNEL,MNLEG,MNNODE,MNPLOT 
0,MNLPTS,MDS 

INTEGER  POSO,CLOS,Pl,P2,P3,ZV 

DATA  IPREL/1/ ,CLOS/2/ , IZREL/3/ , IZCH/4/ , IZLK/ 5/ , IPCH/ 6/ ,POSO/l / 
i  ,Fl/2/,P2/3/,P3/4/,ZV/5/ 

IF(IENTR)  1000,2000,3000 
IUUU  CONTINUE 

DT1F0S0)-1.'J 

IE  1  INEL. NK. U )  GO  TO  1000 
1F1L14)  .EQ.O)  GO  TO  i'JbO 
Ifiinv)  iuou, iuou, 1U4U 
1UJU  miNV.EQ.-L14))  GO  TO  1045 
GO  TO  1000 

1U40  1FUNV.K0.L14))  GO  TO  1000 
1U40  Ul4)-1 

GO  TO  lObO 
1UOO  L14)-0 
1060  CONTINUE 
RETURN 

STEADY  STATE  SECTION 
C1500  IF  (KNF.L-2)  1600,1700,1700 
1500  CONTINUE 
IbUO  UIMP-D(IZREL) 

IF(L(4).EQ.O)  GO  TO  lblU 
UiMF-DliZLK) 

DT1FOSO)— 1.0 
N-LLbllNKL, J) 

FEA1N)-2U. 

QN1N)"01GLOS)*2U.— PQLEU1 INEL, 1 )*PQLKG(INEL, 2) 

LGbliNEL, /)-0 

lb  10  PQl&GIINKL , b)_DlMP+PQLEG(INEL,6) 

QI-PQLKGlINEL.l) 

C  DTlFU-FQLBGllNKL.il) 

FQLKG 11 «KL , 1 1 ) - FQLEG  U  NEL , 1 1 ) -D IMP*QI *PQLEG ( I NEL , 2 ) 

C  DT(P2)-PQLEG(IMEL,11) 

U11AV)»UIMF 
LGbl 1NKL, / )“0 
1/OU  K&1UKN 
4000  CONTINUE 
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6.32.7  (Continued) 


« 


uut'/j-tHL.u;  > 

DXU'IJ-FU.IUJ 

Uxtavj-i.uux 

RfiXUKN 

3UUU  CONTINUE 
LX-L(1  .) 

Lj«M  31 
qu.3i-u.u 
FU31-CU31 
DT(P3)-P(L3) 

DELP1-DT(P2) 

DELP2-UT (  P 1 1 -OT (P2 ) 

NFUS  l-UELF  J.  /  D  ( I PKEL  ) 

NPOS  2-DELP 1 /D ( CLO  S ) 

NPOSCK-DELP2/D (IPCH ) 

IF(!)T<POSO)  >3100, 3200, 3300 
31UU  iF(NPOSl)3200, 3130, 3120 
3120  ZI-D(IZREL)*SQRT(DT<ZV)) 

DT1ZV)-SQRT(DT(ZV) ) 

IKIOT(ZV) *LT • 1 .001 )DT(ZV)-1 .001 
DT(P0S0)-1.0 
CO  TO  3400 
3130  OTIPOSO)— 1.0 

I7(NP0SCK)3140, 3140, 3150 
J14U  ZX-UUZLK) 

GO  TO  J4UU 
315U  ZX«I)(IZCHJ 
CU  TO  J4UU 
JZUU  WKxxMu.yyyi 

FURflAXt  1UX,  33HPROGRAM  STOP  IN  SUBROUTINE  CREL32) 
S1XJP  32 

JJOU  IK  (NPOS 1)3200, 3320, 3310 
3310  ZI-0(IZREI)*SQRT(DT(ZV)) 

OT(ZV)-SQRT(DT(ZV)) 

IM01(ZV).LT.  1.001  )DT(ZV)-1 .001 

DT(POSO)-l.U 

GO  TO  3400 

3320  IK(NPOS2)3200, 3340, 3330 
3330  ZI-D(IZREL)*DT(ZV)**2 
01 (POSO l-l.o 
GO  TO  3350 

3340  ZI-D(IZRP.L)*DT(ZV)**2 
DT(POS0)-l,0 

IPtZI.CT.  llOO.)OT(POSO)  —  1 .0 
GO  TO  335U 

3350  01UV1-I)T(ZV)**2 

IK(DT(ZV) .GT. 2661 2. )DT(ZV)-2661 2. 

34U0  <1U1}-(CU11-C(L2))/<Z<LI)+Z(L2)+ZI) 
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6.32.7  (Continued) 


Q(L2)— Q(L1) 

P(L1)-C(L1)-Q(L1)*Z(L1) 

P(L2)-C(L2)-Q(L2)*Z(L2) 

DT(P1)-P(L1) 

DT(P2)-P(L2) 

DT(P3)-P(L3) 

C  WRITE(6,4010)NPOS1 ,NP0S2 ,NPOSCK,DT (POSO) f DELP1 ,DELP2 ,ZI 

C4010  FORMAT ( 2X , 6HNPOS 1- , 14 , 2 X, 6HHPOS 2- , 1 4 , 2X, 7HNPOSCK- , 14 , 2X, 4E 1 2 . 4 ) 
C  WRITE(6, 4000)  P(L1 ) ,Q(L1) , P(L2) ,Q(L2) ,ZI,C(L1) ,C(L2) ,C(L3) 

C4000  FORliAT( IX,  8E1 2 . 4) 

RETURN 
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APPENDIX  H 

TYPE  #41  TWO-WAY  ORIFICE  RESTRICTORS 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 

6.4!  TYPE  #41  TWO-WAY  ORIFICE  RESTRICTORS 


0 


Flow 


0^74-0773-7 


Type  #41  two  way  restrictors  need  the  line  connections  and  either 
orifice  or  rated  flow  data.  If  orifice  data  is  selected,  the  orifice 
diameter  and  its  discharge  coefficient  are  input.  If  rated  flow  data 
is  chosen,  the  rated  flow  and  pressure  drop  with  the  rated  fluid  and 
temperature  are  necessary.  Orifice  characteristics  are  assumed  to  be 
the  same  for  flow  in  either  direction,  so  either  end  may  be  assigned 
connection  #1. 
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CARD  NUMBER  1 


OLUMN 


11-15 


16-20 


21-25 


26-30 


31-35 


36-40 


41-45 


46-50 


51-55 


56-60 


61-65 


66-70 


71-75 


76-80 


Type  Number  “  41 


Number  of  Real  Data  Cards  ■ 


Line  Number  (with  sign)  attached  to  Connection  1 


Line  Number  (with  sign)  attached  to  Connection  2 


TyDe  of  data  lnnut  derated  flow,  0  or  default  "  orifice 


Rating  fluid  (1-MIL-H-5606B .  2-MIL-H-8  1282 .  3«R|rvdrol 


Temperature/Pressure  Code  (See  Page  4.0-2) 


EXAMPLE  CARD 


7  41  1  +11  -1 

I  t  J  ««>'•«»  II  :j  II  n  IT  II  II  »  71  Cl  11 1*  II  n  IT  H  If  J3  I  H  3534  39  33  31  39  90  fj  01  4:  43  44  43  44  41  41  41  30  31  91  38  34  U  M  If  61  M  Id  Cl  1X43  44 
I  X  3  4  3  4  1  0  9  10  II  12  IS  14  13  It  X  II  If  20  XI  XX  X3  X4  X3  14  21  21  23  30  31  3 2  33  34  33  34  31  30  30  40  4>  42  43  4  4  4  3  4  3  41  40  4  9  90  41  92  03  94  C9  90  91  40  90  40 

0  0  0  0  o!o  0  0  0  0  9  0  a  0  P  '0  3  0  0  6  0  0  0  0  O’O  0  0  0  0  0  0  0  o  o;o  0  0  0  0  3  0  0  0  o|o  D  0  0  0  C  0  0  o  b|o  0  0  8  0  0  0  0  o  o|o  0  0  0  S  I)  0  0  0  ojo  0  0  0  0 

»  7  j  a  9  |k  i  •  i  is  ii  u  n  m  ishc  \i  u  u  ?&  71 22  2:  ?«  ?$  «  77  ?i  a  jo  31 17  33 ;« 35^6  3 » 31 33  «o*4*  «i  4?  44  45'n  47  41  4t  30  si  s?  S3  S4  ssiv:  y :» u  10 11  »i  u  m  isici  2?  h  39  7#  n  73  h  tsJtj  77  71  n  m 
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APPENDIX  H  (CONTINUED) 

SUBROUTINE  REST41 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-YR-76-43 ,  VOL.  II) 

6.41  SUBROUTINE  REST41 

REST4)  simulates  a  fixed,  two  way,  orifice  type  restrictor  with  two 
connections.  Flow  characteristics  are  assumed  to  be  identical  in  either 
direction,  so  there  is  no  mandatory  orientation  for  the  component.  Input 
data  may  consist  of  physical  parameters  (orifice  diameter,  discharge 
coefficient)  or  rated  conditions  (flow,  pressure  drop). 


2 


FIGURE  6.41-1 

TYPE  NO.  41  ORIFICE  RESTRICTOR 
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Flow 
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6.41.1  MATH  MODEL  FOR  NORMAL  FLOW 

The  basic  equation  for  flow  through  an  orifice  is: 

I/O 

Q  -  AV*CV*(2*(F1-P2)/RH0) 
where  1 

2 

AV  *  area  of  the  valve  orifice  (in  ) 

CV  *  orifice  discharge  coefficient 
RHO  =  fluid  density  (lb*sec2/in^) 

Q  *  flow  (CIS) 

Pi  ■  inlet  pressure  (PST ) 

P2  *  outlet  pressure  (PSI) 

From  the  line  equations: 

PI  -  C1-Z1*Q1 

P2  -  C2+Z2*Q2 

using  a  positive  flow  convention  from  PI  to  P2 
where  Cl  *  connection  #1  line  characteristic  (PSI) 

C2  *  connection  #2  line  characteristic  (PSI) 
Z1  -  connection  #1  line  Impedance  (PSI/CIS) 

Z2  >  connection  P2  line  impedance  (PSI/CIS) 

and  assuming  no  flow  loss  , 

Q1  -  Q2  -  Q 

substituting  equations  (2)  and  (3)  into  equation  (1)  yields 
Q2-AV2+CV2*2/RHO  *  (C1-C2-<J(Z1+Z2)) 


Py  defining 


ZTOT  -  Zl*Z2 


(6) 

(7) 


CDIFF-  C1-C2 

CONST  -  AV2*CV2*2/RHO  (8) 

equation  (5)  becomes 

Q‘+Q*ZTOT*CONST-CONST*CDlFF  -  0  (9) 

which  is  a  quadratic  equation  with  the  solution: 

Q-SIGN  — — T-—  *(SQRT(1*4*ABS (CDIFF) /(C0NST*ZT0T2))-1,  CDIFF)  (10) 

With  the  flow  from  equation  (10),  the  line  equations  (2)  and  (3) 
will  give  the  upstream  and  downstream  pressures.  Equation  (10)  is  valid 
for  either  the  rated  condition  input  (where  Q,  PI  and  P2  are  given)  or  the 
orifice  dimension  type  of  input  (where  AV  and  CV  are  given) . 

6.41.2  CAVITATION  MATH  MODEL 

The  cavitation  model  in  REST41  deals  with  the  case  where  pressure  on 
either  one  or  both  sides  of  the  component  drops  to  the  vapor  pressure  of  the 
fluid.  When  this  happens,  a  bubble  or  cavity  forms  in  the  line  and  the  assumption 
of  zero  flow  loss  is  no  longer  valid.  Use  of  the  math  model  outlined  in  6.41.1 
would  result  in  the  calculation  of  negative  pressures  when  cavitation  occurs.  In 
view  of  this,  some  changes  to  the  model  are  necessary. 

CAVITATION  AT  BOTH  CONNECTIONS 

Whr  avitation  occurs  on  both  sides  of  the  restrictor,  there  is  no 
pressure  drop  across  the  orifice,  and  the  boundary  conditions  are: 

PI  -  PVAP 
P2  -  PVAP 
QV  -  0 
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where 


PI  *  Inlet  pressure  (PSI) 

P2  -  outlet  pressure  (PSX) 

QV  ■  flow  (CIS) 

PVAP  -  vapor  pressure  of  fluid  (PSI) 

For  this  case,  there  may  be  flow  in  the  upstream  and  downstream  lines. 

The  disparity  in  flows  causes  cavitation.  Rearrangement  of  equations  (2) 
and  (3)  allows  calculation  of  the  flows 

Q1  -  (C1-P1)/Z1 
Q2  -  (P2-C2) /Z2 

Formation  and  collapse  of  the  cavitation  bubbles  is  maintained  with 
DT  variables  until  normal  flow  is  resumed.  This  is  done  with  the 
equations 

DT(CAVl)-  DT(CAVl)  +  QV-Q(Ll)  (11) 

DT(CAV2)-  DT(CAV2)  -  QV-Q(L2)  (12) 

where  DT(CAVl)  *  flow  discrepancy  at  connection  1  (CIS) 

DT(CAV2)  *  flow  discrepancy  at  connection  2  (CIS) 

QV  »  flow  through  orifice  (CIS) 

Q(L1)  ■  flow  in  line  connected  to  connection  1  (CIS) 

Q(L2)  -  flow  in  line  connected  to  connection  2  (CIS) 
CAVITATION  AT  DOWNSTREAM  CONNECTION 

In  this  case,  a  cavitation  bubble  forms  downstream  of  the  restrictor. 

There  is  flow  through  the  orifice,  but  flow  in  the  upstream  and  downstream 
lines  is  not  the  same  because  of  the  bubble  formation. 

Beginning  with  equation  (1)  for  flow  through  an  orifice,  the  line 
equation  for  the  upstream  line  (equation  (2)),  and  the  boundary  condition: 

P2  -  PVAP 
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Equation  (1)  is  rewritten  as: 

Q2  -  AV2*CV2*2/RH0*(C1-Z1*Q1-PVAP)  (13) 

by  defining  CONST  -  AV2*CV2*2/RHO 
CD IFF  -  Cl-PVAP 
equation  (13)  simplifies  to 

Q2  -  CONST* (CDIFF-Z1*Q) 

which  is  the  same  as  equation  (9)  with  the  same  solution  (Equation  10) 

Use  of  the  line  equations  and  boundary  conditions  gives  the  line 
pressures  and  flows  as 

Q1  -  Q 

PI  -  C1-Q1/Z1 
P2  -  PVAP 
Q2  -  (C2-P2)/Z2 

Flow  discrepancy  is  monitored  by  equation  (12) . 

CAVITATION  AT  UPSTREAM  CONNECTION 

In  this  case  the  cavitation  bubble  forms  upstream  of  the  orifice. 

The  basic  flow  equation  (1)  holds,  but  the  line  equation  for  the  downstream 
line  (Equation  (3)) is  used  and  the  boundary  condition  (PI  ■  PVAP)  is  applied 
to  the  upstream  side  of  the  component . 

When  Inserted  into  the  flow  equation  (1),  this  yields 

Q2  -  AV2*CV2*2/RHO*(PVAP-(C2+Q*Z2))  (14) 

with  CONST  -  AV2*CV2*2/RHO 

CDIFF  -  PVAP-C2 
Equation  (14)  simplifies  to 
Q2  -  CONST* (CDIFF-Q2*Z2) 

i 

which  again  is  the  same  as  equation  (9)  and  has  the  same  solution.  Applying 
the  line  equation  and  boundary  condition  gives: 
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PI  -  PVAP 
Q1  -  (C1-P1)/Z1 
P2  -  C2+Q*Z2 
Q2  -  Q 

The  bubble  Is  recorded  and  updated  by  equation  (11)  In  this  case. 

6.41.3  ASSUMPTIONS 

1.  The  restrictor  has  no  ancillary  parts  and  the  oil  volume  is 
sufficiently  small  so  integration  is  not  required. 

2.  The  discharge  coefficient  is  the  same  for  flow  in  either 
direction  and  is  constant  over  the  entire  flow  regime. 

6.41.4  COMPUTATION  METHODS 

SECTION  1000 

A  check  is  made  for  the.  type  of  input  being  used.  If  the  orifice 
type  input  is  used,  the  area  of  the  orifice  is  calculated  from  the  input 
diameter,  then  used  with  the  discharge  coefficient  to  establish  the 
orifice  characteristic. 

RV*AREA*C0EFF*/2/RH0 

If  the  rated  flow  input  is  used,  the  rated  fluid  and  temperature 
are  determined.  The  density  of  the  rated  fluid  at  the  rated  temperature  is 
calculated.  Default  conditions  will  establish  MIL-H-5606  fluid  @  100°F 
as  the  rated  fluid.  Once  the  density  of  the  rated  fluid  is  calculated,  a 
density  correction  factor  is  computed  using  the  fluid  density  for  the 
component . 

DENSC  ■  SQRT  (RATED  DENSITY /SIMULATION  DENSITY) 

The  orifice  characteristic  is  determined  using  the  rated  flow,  pressure 
drop,  and  density  correction  factor. 

RV«DENSC*RATKD  FLOW/ SQRT  (RATED  PRESSURE  DROP) 
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SECTION  1500 


Using  Che  orifice  characteristic  from  the  1000  section,  the  leg  constant 

2 

for  Q  is  updated  and  pressure  at  the  outlet  connection  is  calculated  and 
stored . 

SECTION  2000 

No  calculations  are  performed.  Control  is  returned  to  the  main 
program. 

SECTION  3000 

A  check  is  made  to  determine  if  the  component  is  in  a  cavitation 
situation.  If  it  is  not,  flow  is  calculated  using  equation  (10). 

The  flow  is  used  to  calculate  pressures  PI  and  P2.  A  check  is  made  to 
determine  if  PI  or  P2  is  less  than  the  fluid  vapor  pressure.  If  neither 
is,  control  is  returned  to  the  main  program. 

If  the  component  is  cavitated,  flow  through  the  orifice  is 
calculated  using  equation  (10)  except  that  ZT  and  CDIFF  are  changed, 
depending  on  the  location  of  cavitation.  With  the  flow  determined,  use  of 
the  appropriate  line  equations  and  boundary  conditions  gives  the  values 
of  PI  and  P2,  and  allows  calculation  of  flow  discontinuity.  DT  variables 
keep  track  of  the  flow  difference  until  the  cavitation  stops  and 
normal  flow  resumes.  The  actual  boundary  conditions  and  attendant  equations 
for  each  type  of  cavitation  are  outlined  in  Section  6.41.2. 

6.41.5  LIMITATIONS 

Subroutine  REST41  is  limited  to  a  fixed  orifice  two-way  restrictor 
with  the  same  discharge  coefficient  for  flow  in  either  direction. 
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6.41.6 

Variable  Names 

NAME 

DESCRIPTION 

DIMENSIONS 

CDIFF 

Characteristic  Pressure  Difference 

PS  I 

D(DATAl) 

Orifice  Diameter  or  Rate  Flow 

IN  or  CIS 

D(DATA2) 

Discharge  Coefficient  or  Rated  Pressure  Drop 

-  or  psi 

DENS 

Rated  Fluid  Density 

lb*sec2/in' 

DENSC 

Density  Correction  Factor 

— 

DT(CAVl) 

Connection  //I  Cavitation  Monitor 

CIS 

DT (CAV2) 

Connection  //2  Cavitation  Monitor 

CIS 

DT(RV) 

Orifice  Characteristic 

cis  A/psT 

PI 

Connection  //I  Cavitation  Pressure 

PSI 

P2 

Connection  if 2  Cavitation  Pressure 

PSI 

PV 

Fluid  Vapor  Pressure 

PSI 

Q1 

Normal  Orifice  Flow 

CIS 

Qv 

Cavitated  Orifice  Flow 

CIS 

RFLUID 

Rated  Fluid  Code 

— 

RTEMP 

Rated  Temperature 

DEGREES  F 

ZT 

Total  Line  Impedance 

PSI/CIS 
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6.41.7  Subroutine  Listing 


SUBROUTINE  RF.ST4 1  (d.dt.dd.l) 
r  ***  REVISE')  DECEMBER  19  7')  *** 

c  ***  this  subroutine  incorporates  a  capitation  motel  on  ^me 

0  ***  UPSTREAM  AMO  DOWNSTREAM  SITE  OP  THE  RESTRICTOR.  IT  ALSO  INCLUDES 
r  ***  THE  OPTION  OP  SPEC  I FYI  MO  VAI.VE  CHAR  VOTER  I STTCS  SV  ORIFICE 
C  ***  0 IAi IET HR  AN1)  C.OF.F  '1CIP.NT  OP  DISCHARGE  OR  BY  RATED  PLOW  AMO 
C  ***  PRESS  JRE  DROP. 

DOUBLE  PRECISION  00 
DIMENSION  0(4)  ,0T(2),00(1)  ,1.(4) 

CO  I  TON  NT  EL  PL  .  NT  )LPL ,  I PT ,  I PO  i  IT  .  Nl’T  i ,  I NEL  .  KU  EL  .  NTOPL  ,  NLPLT  (61,3), 
1  PQLF.O ( 90 , 1 2 )  , LCS  ( 90 , 10) ,  ILEC,  ( 1 4 TO)  ,  PN( 90)  ,QN(90) 

CO  t ION /SUB /FARM ( 1 50, 9) ,PU(  1500) ,  )‘!( 1 500)  ,P(  300)  ,Q( 300)  ,C(  300) 

1 ,  Z( 300) ,RHO( 20) , S20R:10(20) ,VISC(20) ,BULK(20) ,TKMP<20) ,PVAP(20) 

2 ,  ATPRES  ,T ,  DE1.T  .TFINAT  ,  PL  . DHL , PI , TITLE ( 20) ,  LF.CN  ,  ICON 

3 ,  KT  EMP ( 99 ) , LSTART (150), NLPT ( 150)  ,LTYPF.(99)  ,NC(99)  ,INX,INZ 

4 , 1 NV,  ISTEP, MLINE, NKu ,  INI) ,  IENTR .ONLINE , MNEL  .MNLEC ,  MNNOOF.,MNPLO? 

5 ,  MNLPT S ,  'IDS 

INTEGER  DATA  1 , OATA2 , RV, CAV 1 , CAV2 , RFLIJI  )  ,RTH  IP 
(j  ******  i)  VARIABLES  ******** 

DATA  D  AT  A 1 / 1 / , DAT A  2 / 2 / , RT  E  IP/ 3 / 

C  *****  OT  VARIABLES  ******* 

DATA  RV/1 /,CAVl/2/ ,CAV2/3/ 

I F  ( I F.  NTR )  1000,2000,30  00 

1000  CONTINUE 

IF  (INEL.NE.O)  GO  TO  1500 
IF(L(3).NE.O)  GO  TO  1001 

C  ***  CALCULATIONS  FOR  ORIFICE  /  COEFFICIENT  OF  DISCHARGE  INPUT 
D(DATAl)«D(DATAl)**2*Pl/4.0 

dt(rp)-d(datai)*o(dat\2)*s2or:io(:<temp(t\,1))) 

GO  TO  1002 

C  ***  CALCULATIONS  FOR  RATED  CONDITION  INPUT 

1001  IF(L(4).EQ.O)  GO  TO  1003 

C  ***  DENSITY  CALCULATION  FOR  RATED  CONDITIONS 
RFLUID-L(4) 

IF(RFL(JID-2) 1004, 1005, 1006 

C  ***  DENSITY  CALCULATION  OF  MIL-H-5606P,  AT  RATED  TEMPERATURE 

1 004  DF.NS-5  6 .0147-1. 82  35  3E-2 *RTEMP 
CO  TO  1007 

C  ***  DENSITY  CALCULATION  OF  MIL-H-83282  AT  RATED  TEMPERATURE 

1005  DF.NS-5  5. 0706-2. 35294E-2*R7EMP 
CO  TO  1007 

C  ***  DENSITY  CALCULATION  OF  SKYUROL  5001)  AT  RATE!)  TEMPERATURE 

1006  DENS-67. 0221-2. 73529E-2*RTEMP 
GO  TO  1007 

C  ***  DEFAULT  DENSITY 
1003  DENS-54.19117 

C  ***  CHANGE  TO  CORRECT  DENSITY  UNITS 

1007  DENS-DENS/(12.**4.*32. 174) 

C  ***  DENSITY  CORRECTION  TO  COMPONENT  CONDITIONS 
DENSC-SQRT(DENS/RHO(KTEMP(INU) ) ) 
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6.41.7  (Continued) 
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l)T  ( R  V )  -n  ( n  AT  A 1 )  /  S  QRT  (  D  ( D  AT  4  2 ) )  *DEN  S  C 
1002  vr(cAvi)-a.o 
DT(CAV2)-0.0 
RET  (JK'I 

STEADY  STATE  SECTION 
1500  CONTINUE 

PQLEG  (  I  NKL ,  8)  -POI.EG  (INEL,  8)  + 1 .  /I>T(RV)  **2 
Ql-l*i»LKUUNEL,  11 

PqLWUNKL,  11)-PQLE0(INEL,11)-PQLKG(INEL,2)*QI**2/DT(RV)**2 

RETURN 

20011  CONTINUE 
RETURN 

3000  CONTINUE 
L1*L(U 
121 

PV-P VAP ( KTKMP (INI))  ) 

I f l OT ( CAV 1 1 -HA  ( CA V2  )  .  GT •  0 . 0 )  GO  TO  3300 
CDIFF»C(Ll)-C(L2) 

ZT«Z(Ll)+Z(L2) 

yi-aiuwuui  *(S>qKT(  1  .+4 .  "AMS  (CDIFK)  /  (DT  (RV)**2 

;-l .  l  ,CI)1FF1 
P(Ll!«C(Ll)-QI*Z(U) 
oun-qi 

eu./)«uiL2!+qi»zlL2! 

Q(L21--yi 

IK(P(EU.GE.PV.ANO.P(L2).GE.PV)RETURN 
IP(P(L11  .LT.PV.AND.P(L2).LT.PV)  GO  TO  3230 
IF(P(L1) .LT.PV)  GO  TO  3220 
JZ1U  P2-PV 

Z 1 mL l L 1 1 
Pl-C(Ll) 

If IG(C1 ) .GT.PV)  UU  TO  J5UO 
Pl-PV 

GO  TO  3000 
32.su  Pl-PV 

Z1-Z1L21 

P2-C1L2) 

If  IG(L2)  .GT.PV 1  GO  TO  3300 
P2«PV 

GO  to  3000 

J2.>o  xr iru.1 )~P(L2J) 3210, 340U, 3220 

3300  if  VUKCAVll.OT.'J.U.  AND.  0T(GAV2)  .1/1.0.0)00  TO  3400 
IMOUOAVI 1  .OT.U.Ol  GO  '1X1  3220 
GO  TO  3210 
3400  Pl-PV 
P2-PV 

GO  TO  3000 

3300  vv-J>lGNUUT(KVl»»2«Z172.1"(SqKTU.+4.*ABS(Pl-P2)/(DT(RV)**2 

T'*2i««2))-i.),(Pl-P  21) 
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6.41.7  (Continued) 


iJ'U’l.GT.t'V)  GO  TO  J/UU 
GU  TO  JBUU 
JOUU  yv*o«u 

GO  TO  3/5U 

.)tJU  mL.l)*C<.Ll)-qV*Z(Ll) 
Q(L1)-QV 

3750  q(L2)-(C(L2)-P2)/Z(L2) 
P(L2)-P2 

DT ( CAV2 )-DT ( CAV2 ) -QV-Q (L  2 ) 
IF(QV.EQ.O.O)  GO  TO  3850 
RETURN 

j»oo  P(L/)*C(L2)+QV*Z(L2) 
Q(L2)-QV 

3850  Q(L1)-(C(L1)-P1)/Z(L1) 
P(L1)-P1 

DT ( CAV 1 ) -DT ( C AVI ) +QV-Q (LI) 

RETURN 

END 
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APPENDIX  I 

TYPE  // 63  RLS  BOOTSTRAP  RESERVOIR 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 


6.63  TYPE  #63  RLS  BOOTSTRAP  RESERVOIR 


Low  Pressure  Piston  Ares  • 


Connection  No.  2- 
Connection  No.  3-\^ 
Connection  No.  6 — v 


Shutoff  Valve  — \^ 

Connection  No.  1 — '  I 

Shutoff_Valve— ' 

Connection  No.  7 — 

Connection  No.  5 — * 

Connection  No.  4- 


Zero 

Stroke 


■  High  Prtrsure 
Piston  Area 


|P 

MfflfflBfflnl 
! _ 

m 

■  Volume  1 


■  Volume  2 


■  Low  Pressure  Piston 
Area  Exposed  to  Atmosphere 


oereoeei  -tr 


FIGURE  6.63-1 

TYPE  NO.  63  RLS  BOOTSTRAP  RESERVOIR 


The  Type  #63  reservoir  is  a  two  circuit,  level  sensing,  bootstrap  reservoir. 
Such  reservoirs  are  used  on  the  P-15  and  F-18  aircraft  to  provide  protection 
from  total  system  loss  when  a  leak  developes  in  one  of  the  two  Independent 
subcircuits. 


4 


This  model  does  not  simulate  the  shut-off  characteristics  or  level 
sensing  ability  of  the  reservoir  but  does  include  the  pressure  drop  due  to 
the  shut-off  valves  when  they  are  fully  opened. 

The  RLS  bootstrap  reservoir  can  have  as  many  as  seven  connections.  It 
requires  one  high  pressure  Inlet,  two  high  pressure  outlets  and  from  one  to 
four  low  pressure  connections.  Any  low  pressure  connections  that  are  not  used 

must  be  left  blank  and  the  number  of  unused  connections  must  be  input  on  data 
card  //l. 

For  steady  state  balancing,  the  component  requires  two  nodes.  One  for 
1  he  low  pressure  connections  and  one  for  the  high  pressure  connections.  When 
assembling  the  legs,  the  leg  attached  to  Connection  #1  should  be  numeri¬ 
cally  lower  than  any  of  the  other  legs  attached  to  the  reservoir. 

If  more  than  one  of  these  reservoirs  is  used  in  a  simulation,  all  of  the 
lines  and  legs  connected  to  the  first  reservoir  should  be  numerically  lower 
than  the  lines  and  legs  connected  to  the  second  reservoir. 

The  model  does  not  simulate  cavitation  in  either  the  high  or  low 
pressure  sections. 
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COLUMN 

FORMAT 

DATA 

1-5 

15 

Component  Number 

6-10 

15 

Type  Number  =  63 

11-15 

15 

Number  of  Real  Data  Cards  ■  2 

16-20 

15 

- - - 

Line  Number  (with  sign)  attached  to  Connection  1 (Bootstrap) 

21-25 

15 

Line  Number  (with  sign)  attached  to  Connection  2 

26-30 

15 _ 

Line  Number  (with  sign)  attached  to  Connection  3 

31-35 

15 

Line  Number  (with  sign)  attached  to  Connection  4 

36-40 

15 

Lin:  Number  (with  sign)  attached  to  Connection  5 

41-45 

15 

Line  Number  (with  sign)  attached  to  Connection  6  (Circuit  A) 

46-50 

15 

Line  Number  (with  sign)  attached  to  Connection  7  (Circuit  B) 

51-55 

15 

Number  of  unused  low  pressure  connections 

56-60 


61-65 


66-70 


5 


76-80 


Temperature/Pressure  Code  (See  Page  4.0-2) 
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I  J  J  4  3|l  T  I  f  id  1117  13  14  l)l||  IM9  19  79  71  7?  71 74  73*21  77  71  73  10  Jl  3?  13)4  ?>|2i  17  Jl  31  «C  41  47  43  44  4!*44  47  4941  SO  51  MS)  34  SWM  51  Jl  Si  M  61  17  I)  M  HIM  17 1)  70  71  P  .3  74  7sJ?9  77  71  >990 

1 1 1  i  i>i  Mm  n  i  o  1 1 1 1 1  n  i  aji  m  1 1 M 1 1  imi  i|i  ii  1 1 1<  1 1 1 1 1 1 1 1 1  pi  1 1 1  ii  1 1 1  i;i  m  1 1 1 1 1 M 1 1 1 1 

i  ,  •  •  •  i 

2222  2'2  22222222|!2  272?r222  2i2  222B2222  2('2  22722?72  2'2  22222222  7j2  22722222  2i2  22222222  7'i  2222 

!  i  ■  i  .  i  i  ! 

3  3  3  3  3  3  3  3  3|  3  3  3  3  3U  3  3  3|  3  3  3  3  3'3  3  3  3  3  3  3  3  3  3|2  3  3  3  3  3  3  3  3  3(3  3  3  3  3  3  3  3  3  3i3  3  3  3  3  3  3  J  3  3|3  3  3  3  1  3  3  3  3  3  3  3  3  3  3 

1  '  •  J  '  i 

44444(4  44444444  4*4  4444*44#  4*4  44444444  4*4  44444444  (4  4  4  4  M4  4  4  4  4|4  44444444  4,4  44444444  4i4  4  4  4  4 

1  7  3  4  5  |6  r  0  t  10  II  tt  U  M  nlft  N  If  ?3  n  »*12l  ?3*«  2?  79  71  M  )1  12  11  14  »ltt  17  31 11  49  II  17  4)  44  43|44  43  4941 S#  V  37  -l  M  KjM  37  39  39 1C  II 17  U  94  ISjW  »T  II II 10  71  72  Tl  74  Til?!  77  »  71  M 

5  5  5  5  5<5  5  5  5  5  5  5  5  5  5'5  5  5  5  5  5  5  5  5  5*5  5  5  5  5  5  5  5  5  5|5  5  5  5  |  b  5  5  5  5,5  5  5  5  S  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5,5  5  5  5  5  S  5  5  5  b[5  5  5  5  S 

S  6  e  6  Sjt  f  6 1 1  5  6  t  t  6,6  8  S|  S  6  I  (  i  fit  6  ( |  E  S  S  S  |  E'S  6 1 6  6  6  6  4  (  fit  S  4  S  S  (  t  6  (  Sit  t  «  9  S  1 1 C  *  6'S  E  t  $  6  S  S  S  6  S'S  t  5  1 1 

7  1  7 1  7,'n  7  7  7  7  7  7  1  l\l  7 7  7  1  1  7  7  7  l'.1  7  7  7  7  7  7  7  7  7l7  7  7  7  J  7  7  7  7  7<7  7  1 1  7  7  J  7  7  7'7  7  7  J  7  7  7  7  7  7*7  7  7  7  J  7  7  7  7  j|,’  7  7  7  7 

j  1  *  *  1  I  1  | 

1 1 1  3  lit  1 13  I  i  1 1 1  ijl  I  !|  1 1  M  I  l|l  1 1 1 1 1 1 1  llll  1 1 1 1 1 1 1 1  ijl  1 1 1 1 1 1  9  •  »,'•  1 1 1 1  a  M  » ijl  I  III ;  8 1 1 Ijl 1 1 1  3 

1  S  9  9  3*3  J  5  1  5  J  J  9  3  «!ll  *  J  *  9  5  3  J  j!j  9  f  113  »  J  !  »ll  J  J  3  9  !  S  3  9  ijj  J  J  J  3  St  9  IJiJ  !  !  3  9  9  S  S  9  9*9  9  9  S  M  9  9  9  bis  9  3  9  9 

l  ;  :  4  6  I  j  7  9  t  19)11  17  Ii  M  IMH  17  *  19  73/71  27  ?1  74  <3(71  7»  79  71  lfl|l1  27  11  1«  1*21  17  19  ll  40|ll  41  4  44  43(49  47  4|4|  u|*'  «  U  «  **tt  l»  «  3*m||1  17  *3  *•  ***#  47  (I  *1  .1  72  *3  74  **  T7  70  79  U 


MAC  J075N  fltfv  29  Ff3  70) 


501 


» 


CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

High  Pressure  (Boostrap)  Piston  Area 

IN2 

11-20 

E10.0 

Low  Pressure  (Reservoir)  Piston  Area 

IN2 

21-30 

E10.0 

High  Pressure  Volume  at  Zero  Stroke* 

IN3 

31-40 

E10.0 

Low  Pressure  Volume  at  Zero  Stroke* 

IN3 

’ 

4— 

1 

Ui 

o 

E10.0 

Maximum  Piston  Stroke 

IN 

51-60 

E10.0 

Initial  Piston  Position 

IN 

61-70 

E10.0 

Shut-Off  Valve  Orifice  Diameter  (Circuit  A) 

IN 

71-80 

E10.0 

Shut-Off  Valve  Discharge  Coef ficient (Circuit 

_ 

- 

*NoteJ  Zero  Stroke  Is  defined  as  the  Piston  Position  with  the  Reservoir  Empty, 


EXAMPLE  CARD 
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CARD  NUMBER  3 


* 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Shut-Off  Valve  Orifice  Diameter  (Circuit  B) 

IN 

11-20 

E10.0 

Shut-Off  Valve  Discharge  Coefficient  (Circuit 

- 

21-30 

E10.0 

31-40 

E10.0 

41-50 

E10.0 

51-60 

E10.0 

61-70 

E10.0 

71-80 

E10.0 

EXAMPLE  CARD 
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APPENDIX  I  (CONT) 

SUBROUTINE  RSVR63 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  II) 

6.63  SUBROUTINE  RSVR63 

Subroutine  RSVR63  is  a  model  of  a  dual  circuit,  Level  Sensing  (RLS) 
bootstrap  reservoir.  Such  devices  are  in  use  on  the  F-15  and  F-18  aircraft 
and  provide  protection  from  total  system  loss  due  to  a  leak  in  one  of  the 
two  independent  subcircuits. 


FIGURE  MS-1 

TYPE  NO.  SS  RLE  BOOTSTRAP  RESERVOIR 
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RSVR63  allows  a  maximum  of  seven  line  connections.  One  high  pressure 
Inlet,  two  high  pressure  outlets,  and  up  to  four  low  pressure  connections. 

As  shown  In  Figure  6.63-1,  the  high  pressure  inlet  branch  splits  to  provide 
bootstrap  pressure  to  the  reservoir  and  flow  to  the  independent  supply 
circuits.  This  model  does  not  simulate  the  shutoff  characteristics  of  the 
RLS  valves,  but  does  simulate  the  pressure  drop  due  to  them. 

RSVR63  requires  two  nodes  for  its  steady  state  calculations.  One 
node  is  located  in  the  low  pressure  (reservoir)  section  and  the  other  node 
is  located  in  the  high  pressure  (bootstrap)  section.  When  assembling  the 
steady  state  legs  that  connect  to  RSVR63,  the  leg  attached  to  Connection  //I 
should  be  numerically  lower  than  any  of  the  other  legs  connected  to  the 
reservoir. 

If  more  than  one  of  these  reservoirs  is  used  in  a  simulation,  the 
lines  of  the  system  should  be  numbered  so  that  all  of  the  lines  connected 
to  the  first  reservoir  are  numerically  lower  than  any  of  the  lines  connected 
to  the  second  reservoir. 

RSVR63  does  not  model  piston  dynamics  and  will  not  give  good  results 
when  cavitated. 
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6.63.1  MATH  MODEL 

Since  the  component  is  a  combination  of  a  reservoir  and  two  parallel 
restrictor  paths,  its  math  model  consists  of  a  bootstrap  reservoir  model 
and  a  restrictor  model.  The  restrictor  portion  of  the  model  is  the  same  as 
that  explained  in  Section  6.41.1,  and  is  the  more  independent  of  the  two 
portions.  The  reservoir  portion  of  the  model  is  dependent  on  the  restrictor 
calculations  because  the  bootstrap  pressure  is  determined,  in  large  part, 
by  the  flow  through  the  RLS  circuits. 

1500  Section 

In  the  1500  section  of  the  RLS  reservoir,  the  bootstrap  node  pressure 

is  determined  by  the  flow  through  the  RLS  circuits.  The  bootstrap  node  is 

the  upstream  node  of  the  high  pressure  legs  leaving  the  reservoir.  ^As  such, 

2 

addition  of  the  RLS  shutoff  valve  characteristics  to  the  Q  term  of  the  steady 
state  solution  allows  calculation  of  the  upstream  node  pressure.  Ine  assumption 
is  made  that  the  pressure  in  the  bootstrap  chamber  of  the  reservoir  is  the 
same  as  the  node  pressure. 

The  problem  then  becomes  one  of  establishing  a  pressure  at  the  low 
pressure  node  that  will  allow  both  a  steady  state  flow  balance  and  a  force 
balance  on  the  reservoir  piston.  To  do  this,  a  sign  convention  is  established 
such  that  flow  into  the  low  pressure  reservoir  chamber  is  positive.  A  pseudo 
leg  (see  Figure  6.63-2)  that  terminates  at  the  low  pressure  node  (N)  is  established. 
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(Pmn  +  PN(N))/2 


FIGURE  6.63-2 


The  pressure  at  the  external  end  of  this  leg  is  set  as  the  average  of  the 

» 

pressure  at  node  (N)  and  the  pressure  necessary  to  balance  the  force  exerted 
by  the  bootstrap  pressure  and  the  atmosphere.  The  balancing  pressure  Is 
calculated  as: 


P 

mn 


Pm* 


High  Pressure  Area 
Low  Pressure  Area 


Patm 


507 


« 


Where 


Pmn  ■  Pressure  Necessary  for  Balance  (PSI) 
Pm  “  Bootstrap  Node  Pressure  (PSI) 

Patm  *  Atmospheric  Pressure  (PSI) 


Any  difference  in  the  pressure  at  node  (N)  and  the  value  of  Pmn  will  produce 
flow  in  the  pseudo  leg  and  hence  an  unbalanced  system.  As  CALC  balances 

the  flows  at  all  system  nodes,  the  pseudo  leg  flow  is  forced  to  zero  which 

1) 

in  turn  forces  Pmn  and  the  pressure  at  node  (N)  to  be  equal. 

3000  Section 

The  transient  section  math  model  of  the  RLS  reservoir  is  a  combined 
force  and  flow  balance  between  the  high  and  low  pressure  sections. 

Beginning  with  the  basic  equation  for  any  given  line,  "L", 

P (L)  -  C(L)  -  Z(L)  *  Q(L) 

Where  P(L)  =  Pressure  of  Line  "L"  (PSI) 

C(L)  =  Characteristic  of  Line  "L"  (PSI) 

Z(L)  =  Impedance  of  Line  "L"  (PSI/CIS) 

Q(L)  -  Flow  in  Line  "L"  (CIS) 

and  the  assumption  that  the  pressure  of  any  line  connected  to  the  reservoir 
(Low  Pressure)  part  of  the  component  is  the  same  as  the  reservoir  chamber 
pressure,  the  net  flow  (into  or  out  of)  the  reservoir  chamber  can  be 
expressed  as: 

QN  ■  CN -|(C1-Q1*Z1)*  ^fp^‘?*Area‘  +  ExPress]  *  S  (1) 

Where  QN  *  Net  Flow  Into  Reservoir  Chamber  (CIS) 
iplLow  Pressure  Line  Characteristic*! 

CN  ”  lj.ow  Pressure  Line  Impedance  J(CIS) 

Cl  *  Bootstrap  Line  Flow  (CIS) 

Z1  -  Bootstrap  Line  Impedance  (PSI/CIS) 
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EXPRESS  ■  Pressure  due  to  atmosphere  acting  on  area  unbalance  (PS1) 


ZN  ■  £  of  Low  Pressure  Line  Impedances  (PSI/CIS) 

The  net  flow  can  be  related  to  the  flow  into  or  out  of  the  bootstrap 
chamber  through  the  equation: 

(2) 


0  «  qn*  MajL2Egssure_Area 

yBS  x  Low  Pressure  Area 


Use  of  the  restrictor  equations,  as  covered  by  Section  (6.41)  will  give  the 
flow  through  both  RLS  valves.  The  sum  of  these  flows  and  QgS  is  the  flow 
in  line  Number  1.  If  the  calculation  of  Q1  and  the  value  of  Q1  supplied 
by  the  main  program  are  within  +  .001  CIS,  pressures  and  flows  may  be 

calculated  using  the  appropriate  line  equations  and  area  differentials. 

* 

If  the  tolerance  test  between  the  main  program's  value  of  Ql  and  the 
subroutine's  Ql  is  not  met,  Ql  can  be  redefined  as: 


Ql  -  Qlp  +  Qtot  / 2.  (3) 

Where  Ql  *  Revised  Value  of  Line  //I  Flow  (CIS) 

Qlp  «  Value  of  Ql  supplied  by  Program  (CIS) 

Qtot  *  Value  of  Ql  calculated  by  Subroutine  (CIS) 

-  Q6  +  Q7  +  OBS 

An  iteration  using  Equations  (1),  (2),  and  (3)  can  be  set  up  to  calculate 
a  value  of  Ql  that  will  meet  the  +  .001  CIS  test.  Assigning  this  value 
as  the  flow  into  Connection  it  1,  the  line  pressure  can  be  calculated  using 
the  basic  line  equation,  then  the  pressure  in  the  reservoir  chamber  can  be 
calculated  using  the  area  ratios.  Assigning  the  reservoir  chamber  pressure 
as  the  line  pressure  for  all  lines  connected  to  the  reservoir  section,  the 
flows  in  these  lines  can  then  be  determined  using  the  basic  line  equation. 
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6.63.2  ASSUMPTIONS 


It  is  assumed  that  the  piston  movements  in  a  reservoir  like  this  are 
small  enough  to  justify  neglecting  piston  spring-mass  effects  and  seal 
friction. 

6.63.3  COMPUTATION  METHODS 

Section  1000 

Counters  and  variables  that  will  be  necessary  in  the  later  sections 
of  the  subroutine  are  initialized  and  stored.  Orifice  characteristics  of 
the  RLS  valves  and  volume  constants  that  will  be  needed  to  check  for  over¬ 
flowed  and  depleted  conditions  are  calculated,  then  control  is  returned  to 
the  main  program. 

Section  1500 

The  steady  state  calculations  begin  with  a  check  of  which  connection 

number  of  the  reservoir  is  under  consideration.  If  connections  6  or  7 

(the  RLS  outlets)  are  in  the  leg  being  calculated,  the  appropriate  orifice 

2 

constant  is  added  to  the  Q  leg  terra,  the  upstream  node  pressure  is  re¬ 
calculated  then  control  is  returned. 

If  the  high  pressure  (Bootstrap)  connection  is  in  the  leg  under 
calculation,  tests  are  performed  to  determine  which  node  number  is  located 
at  the  bootstrap  chamber,  then  control  is  returned. 

When  the  low  pressure  (reservoir)  connections  are  under  calculation, 
a  check  on  which  node  number  is  located  at  the  low  pressure  reservoir 
chamber  is  made,  then  the  flow  in  the  leg  under  calculation  is  added  to  the 
variable  DT(QNET) .  If  the  connection  being  calculated  is  not  the  last 
reservoir  connection  to  be  called  during  the  iteration,  control  is  returned 
to  the  main  program. 
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If  the  connection  is  the  last  reservoir  connection  to  be  called, 
the  pseudo  node  pressure  Pmn  is  calculated  using  the  bootstrap 
node  pressure,  differential  area  and  atmospheric  pressure.  The  flow  in 
the  pseudo  leg  is  calculated  using  Pmn,  the  reservoir  node  pressure, 

DT(QNET),  and  an  arbitrarily  assigned  dummy  conductance  that  is  later  removed 
from  the  calculations.  The  DT  variable  P2  is  set  equal  to  the  reservoir 
node  pressure,  and  the  connection  counter  is  zeroed  in  preparation  for  the 
next  iteration  before  control  is  relinquished. 

Section  2000 

This  section  initializes  the  variables  and  establishes  the  constants 
that  are  necessary  to  begin  the  transient  calculations  in  Section  3000. 

Section  3000 

Counters  and  variables  that  will  be  used  during  the  time  step  are 
first  reset,  then  the  orifice  factors  necessary  for  the  RLS  circuit  calculations 
are  established. 

The  variable  CN2  is  calculated  in  order  to  establish  the  bootstrap 
chamber  flow  which,  when  added  to  the  RLS  circuit  flows  calculated  by  the 
restrictor  equation,  gives  the  first  estimate  of  flows  into  the  high  pressure 
iulet  (Connection  PI).  If  this  flow  estimate  is  within  +  .001  CIS  of 
the  Connection  //I  line  flow  supplied  by  the  main  program,  the  flows  are 
accepted  as  correct  and  used  in  the  line  equations  to  calculate  the  pressures 
at  Connections  1,  6  and  7.  If  the  tolerance  test  is  not  met,  the  Connection  Pi 
flow  value  is  averaged  with  the  flow  just  calculated  by  the  subroutine  and 
a  new  estimate  of  Connection  PI  flow  is  made  using  the  revised  value.  This 
cycle  is  continued  for  25  iterations  or  until  the  flow  tolerance  test  is 
met. 
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After  the  flows  and  pressures  in  the  high  pressure  section  of  the 
reservoir  are  established,  the  area  differential,  external  pressure  and 
pressure  at  Connection  //I  are  used  to  calculate  the  pressure  on  the  large 
side  of  the  piston. 

Using  the  new  value  of  net  flow,  the  volume  of  the  reservoir  chamber 
is  updated,  then  checked  against  its  limits  to  establish  a  depleted  or 
overflowed  condition.  If  either  of  these  conditions  exist,  the  reservoir 
pressure  (Low  Pressure)  is  recalculated  using  line  characteristics  and 
impedances,  then  the  high  pressure  section  calculations  are  performed 
again  with  the  appropriate  restrictions. 

The  final  steps  of  the  subroutine  are  to  calculate  line  flows  in  the 
reservoir  section  based  on  the  pressure  acting  on  the  large  area,  update 
the  net  flow  and  volume  DT  variables,  and  reset  a  counter  that  will  be 
necessary  for  the  next  time  step's  calculations.  Control  is  then  returned 
to  the  main  program. 

6.63.4  APPROXIMATIONS 

The  elasticity  of  the  reservoir  walls,  compressibility  effects  of  the 
fluid  in  the  chambers  and  volume  changes  resulting  from  any  piston  movements 
are  ignored.  There  is  no  pressure  drop  between  the  high  pressure  inlet 
(Connection  // 1)  and  the  bootstrap  chamber  or  RLS  shut-off  valves. 

6.63.5  LIMITATIONS 

RSVR63  is  limited  to  four  low  pressure  connections,  one  high  pressure 
inlet  and  two  high  pressure  outlets. 
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6.63.6  Variable 

NAME 

B3 

B4 

CL1 

CN2 

D1 

D3 

D4 

D  (Al) 

D(A2) 

D(AREAl) 

D (AREA2) 

D(CDA) 

(CDB) 

D(INPOS) 

D( STROKE) 

D(VOLl) 

D(VOL2) 

DT(DUM) 

DT (EXPRESS) 

DT(IQV) 

DT(K1) 

DT(K2) 


Names 

DESCRIPTION 

Connection  #6  Line  Impedance 

Connection  // 7  Line  Impedance 

Connection  //I  Pressure  Guess 

Low  Pressure  Volume  Flow  Guess 

RLS  Circuit  Valve  Characteristic 

RLS  Circuit  A  Characteristic  Pressure 

RLS  Circuit  B  Characteristic  Pressure 

RLS  Circuit  A  Orifice  Area 

RLS  Circuit  B  Orifice  Area 

High  Pressure  (Bootstrap)  Piston  Area 

Low  Pressure  (Reservoir)  Piston  Area 

Discharge  Coefficient  of  Circuit  A  Orifice 

Discharge  Coefficient  of  Circuit  B  Orifice 

Piston  Position  at  Start  of  Simulation 

Total  Piston  Stroke 

Bootstrap  Chamber  Volume  at  Zero  Stroke 

Reservoir  Chamber  Volume  at  Zero  Stroke 
(i.e.  When  fully  depleted) 

Reservoir  Fluid  Volume 

Reservoir  Fluid  Pressure  due  to  Atmosphere 
Acting  on  Area  Urbalance 

Time  Rate  of  Change  of  Reservoir  Fluid  Volume 
Circuit  A  Orifice  Characteristic 
Circuit  B  Orifice  Characteristic 


DIMENSION 

PSI/CIS 

PSI/CIS 

PSI 

CIS 

PSI/CIS2 

PSI 

PSI 

IN2 

IN2 

IN2 

IN2 


IN 

IN 

IN 

IN 


3 

2 


IN 

PSI 


CIS 

CIS2/PSI 

cis2/psi 
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NAME 

DESCRIPTION 

DIMENSION 

DT(MAXIQV) 

Volume  Rate  of  Change  Limit  for  Overflow  Check 

CIS 

DT(MINIQV) 

Volume  Rate  of  Change  Limit  for  Depletion  Check 

CIS 

DT(NAREAR) 

Piston  Area  Ratio  (High  PR/Low  PR) 

— 

DT(NZl) 

Pseudo  Impedance  of  Reservoir  Volume 

PSI/CIS 

DT(NZG) 

Pseudo  Conductance  of  Reservoir  Volume 

CIS/PSI 

DT(P2) 

Reservoir  Chamber  Pressure 

PSI 

DT(QNET) 

Net  Reservoir  Chamber  Flow 

CIS 

DT(ZN) 

Combined  Conductance  of  Reservoir  Section  Lines 

CIS/PSI 

ITER 

Iteration  Counter 

— 

ITEST 

Iteration  Counter 

— 

PMN 

Steady  State  Reservoir  Chamber  Pressure 

PSI 

Q1 

Flow  Into  Connection  //I 

CIS 

Q2 

Flow  into  Bootstrap  Chamber 

CIS 

Q6 

RLS  Circuit  A  Flow  (Connection  § 6 ) 

CIS 

Q7 

RLS  Circuit  B  Flow  (Connection  #7) 

CIS 

QA 

Steady  State  Connection  #1  Flow 

CIS 

QR 

Flow  Vector 

CIS 

QS 

Steady  State  Connection  # 1  Flow  Sign 

QTOT 

Total  of  Bootstrap  Chamber  and  RLS  Circuit 

Flows 

CIS 

R1 

RLS  Circuit  #1  Valve  Characteristic 

PSI/CIS2 

R2 

RLS  Circuit  #2  Valve  Characteristic 

PSI/CIS2 

RO 

Component  Fluid  Density 

lb*sec2/in 

o  n 
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6.63.7  Subroutine  Listing 


SUBROUTINE  RSVR63  (D,DT,DD,L) 

C  ***  REVISED  DECEMBER  1979  *** 

DOUBLE  PRECISION  DD 

COMMON  NTELPL , NTOLPL , IPT , IPO INT , NPTS , INEL , KNEL ,NTOPL .NLPLT (61,3), 
1  PQLEG(90 , 1 2) ,LCS(90, 10) , ILEG (1400) , PN(90) ,QN(90) ,FEX(90) 
COMMON/SUB/PARM( ISO, 9),PM(1500) ,QM( 1500) ,P(300) ,Q( 300) ,C( 300) 

1, Z(300) ,RH0(20) , S2ORHO(20) , VI SC (20) , BULK (20) ,TEMP(20) ,PVAP(20) 

2 ,  ATPRES , T , DELT , TFI NAL , PLTDEL , PI .TITLE ( 20) , LEGN , ICON 

3, KTEMP(99) ,LSTART(150) ,NLPT( 150) ,LTYPE(99) ,NC(99) , INX, INZ 

4, INV,ISTEP,NLINE,NEL,IND ,IENTR,MNLINE,MNEL,MNLEG,MNNODE,MNPLOT 
5,MNLPTS,MDS 

DIMENSION  D(6),DT(10),DD(1),L(7) 

INTEGER  AREA 1 , AREA2 , VOL 1 , VOL2 , STROKE , QNET , EXPR ES , P 2 , DUM 
1  ,A1,A2,CDA,CDB,ZN 
C  ********  d  VARIABLES  ************* 

DATA  AREA1 /I / , AREA2/2/ , VOL1 /3 / , VOL2/4/ , STROKE/ 5/ , INPOS/6/ , 
lAl/7/,CDA/8/,A2/9/,CDB/lO/ 

C  *********  DT  VARIABLES  ************* 

DATA  QNET/l/,EXPRES/2/,MINIQV/3/,MAXIQV/4/,IQV/5/,NAREAR/6/, 

1  NZl/7/,NGZ/8/,P2/9/,DUM/10/,Kl/ll/,K2/12/,ZN/13/ 

IF(IENTR)  1000,2000,3000 
1000  CONTINUE 

IF(INEL.NE.O)GO  TO  1500 

DT (IQV )- (D (INPOS ) *D (AREA2 )+D (VOL2 ) ) *2 . 0/DELT 

DT(DUM)-DT(IQV)*DELT/2.0 

DT (MINIQV) -D (VOL 2 ) *2 .0/DELT 

DT (MAXIQV)-D (STROKE ) *D(AREA2) *2 . 0/DELT+DT (MINIQV) 

L(9)-0 

DT (QNET) -0.0 

DT (NAREAR ) -D ( AREA 1 ) /D ( AREA 2 ) 

DT  (EXI-RES) -ATPRES*  (D  (AREA2  )-D  (AREA1 )  )  /D  (AREA  2 ) 

D(Ai )-D(Al )**2*Pl/4 . 

D(A2)«D(A2)**2*Pl/4. 

RO-RHO(KTEMP(IND) ) 

DT(K1)-2.*D(A1)**2*D(CDA)**2/R0 

DT(K2)-2.*D(A2)**2*D(CDB)**2/RO 

RETURN 

C 

C*****STEADY  STATE  SECTION***** 

C 

1500  CONTINUE 

M  IS  THE  BOOTSTRAP  NODE,  N  IS  THE  LOW  PRESSURE  NODE 
L(9)«L(9)+1 
LCS(INEL, 7)-5 
QA-PQLEG ( I SEL , 1 ) 

QS-PQLEG ( I NEL , 2 ) 

WRITE(6,4004)IND,NC(IND),L(9), KNEL, INX, INEL 
4004  FORMAT(2X, 4H64-I , 2X, 613) 

IF (KNEL. GT. 5)  GO  TO  1950 
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6.63.7  (Continued) 


IF(KNEL.NE.l)  GO  TO  1600 
M-LCS(INEL,3) 

IF(INX.NE.l)  GO  TO  1800 
M«LCS(INEL,2) 

GO  TO  1800 
1600  QR-QA*QS 

N-LCS(INEL,3) 

IF(INX.NE.l)  GO  TO  1700 
QR— QR 

N-LCS  ( INEL ,  2  ) 

1700  DT(QNET)-DT(QNET)-K)R 
1800  IF(L(9).NE.NC(IND)-L(8))  RETURN 
IF(N.EQ.M)  WRITE(6, 1900) 

I.(9)-0 

DT(NZ1)-D?(QNET) 

IF(PN(M).EQ.0.0)  FN(M)«3000. 

IF (PN (N)  .EQ.0.0)  PN(N)«PN(M)*DT(NAREAR)+DT(EXPRES) 

PMN-PN  (M)  *DT  (NAREAR)+DT (EXPRES ) 

QN  (  N  )  -  ( (  PMN+PN  ( N ) )  *  2  0 . )  /  2 .  -DT  ( QN  ET  ) 

QN (M) -DT (QNET) *DT (NAREAR) 

DT(P2)-PN(N) 

PEX(N)-20. 

DT(QNET)-0.0 

1900  FORMAT ( 5X , 45HRSVR62  REQUIRES  TWO  NODES  FOR  BOOTSTRAP  FLOW  ) 
RETURN 

1950  IF(KNEL-6) 1999, 1955, 1960 
1955  D1-1./DT(K1) 

GO  TO  1965 
1960  D1-1./DT(K2) 

1965  PQLEG  ( INEI. , 8 ) -PQLEG ( INEL ,  8 )  +D 1 

PQLEG ( INEL , 1 1) "PQLEG ( INEL , 1 1 ) -D 1 *QA**2*QS 
GO  TO  1800 

1999  STOP  6401 

C  ********  STOP  6401  INDICATES  KNEL  IS  LESS  THAN  6  ****************** 

2000  CONTINUE 
DT(P2)"P(L(2) ) 

DT (QNET) "DT ( NZ 1 ) 

DT (NZ 1 )-Z (L ( 1 ) ) *DT (NAREAR) **2 
UT (NGZ ) ■ l . 0/DT ( NZ 1 ) 

DT(ZN)-0.0 
NCI"NC(IND)-2 
DO  2100  1-2, NCI 
DTINGZ)"DT(NGZ)+1./Z(L(I)1 
2100  DT (ZN)-DT(ZN)+1 ./Z (L(I) ) 

RETURN 

30OU  CONTINUE 

NCi"NC(lND)-2 

ITEST-U 

li-lu; 

L2-LU) 
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6.63.7  (Continued) 


L3-L<3) 

L4-L(4) 

L5-L(5) 

L6-L(6) 

L/-H7) 

CN2-0.0 

ITER-U 

Rl-i./UT(Ki) 

B3-Z(L6) 

R2-1 ./DT(K2) 

B4-Z(L7) 

DU  3050  1-2, NCI 
3050  CN2«CN2+C(L(I))/Z(L(I)) 

Ql-Q(LI) 

3100  Q2»CN2-(  (C (LI )  — Q 1  *Z (1. 1 )  )  *DT(NARF.AR)+DT(EXPRES)  )*DT(ZN) 
Q2-q2*DT(NAREAR) 

CLi»C(Ll)-Ql*Z(Ll) 

D3-ABS (C (Lb)-CLI ) 

0b«((-B3+SQRT(B3**2+4.*Rl*D3))/(2.*Rl))*SIGN(l.,C(L6)-CLl) 

D4-A3S ( C ( L  /  ) -CL 1 ) 

Q7-( (-E4+SQRT(B4**2+4 .*R2*D4) )/ (2 .*R2) )*S IGN( 1 .0, (C(L7)-CL1) ) 
QTOT-Q2-K)b+Q7 

IF(ABS(Q1+QT0T) .LT. .001)  GO  TO  3200 
Ql-(Ql-QTOT) /2 . 
ii  EK-i'i'EK+1 

IrUTEK.GT.25)  GO  TO  3200 
GO  TO  31UU 
Jtuu  U(L1)-Q1 
0(L6)-Q6 
Q(L7)-Q7 

P(L1)-C(L1)-Q(L1)*Z(L1) 

P(L6)-C(L6)-Q(L6)*Z(L6) 

PlL/J-ClL/)-Q(L/)*Z(L7) 

IF ( IT EST . EQ . 1 ) GO  TO  3500 

DT( P2 )-P (LI ) *DT (NAREAR)+DT ( EXPRES ) 

DT(IQV)-DT( IQV)+DT(QNET)+Q2/DT(NAREAR) 

CALL  XLIMIT(DT(IQV) ,Q2 ,CN2 ,DT(MINIQV) ,DT(MAXIQV) ) 
IF(CN2.EQ.0.0.AND.Q2/DT(NAREAR) .NE.O.O)GO  TO  3500 
CN2-0.0 
ZN-O.U 

DO  34UU  1-2, NCI 
Li-L(I) 

ZN-2N+1 «U/Z(LI) 

34UU  CN2-CN 2+C(LI) /Z(LI) 

DT(P2)-CN2/ZN 
ITEST-1 
GO  TO  3100 
J5UU  CONTINUE 

DO  3600  I -2, NCI 
Li-LU) 
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APPENDIX  J 

TYPE  #108  DUAL  SYSTEM,  TANDEM  VALVE  CONTROLLED  ACTUATOR 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 

6.108  TYPE  #108  DUAL  SYSTEM,  TANDEM  VALVE  CONTROLLED  ACTUATOR 


Rttum  friwurr  Return  hmtun 


FIGURE  e.ioe-1 

TYPE  NO.  1(M  DUAL  SYSTEM.  TANDEM,  VALVE  CONTROLLED  ACTUATOR 


The  dual  system,  tandem  or  parallel,  valve  controlled  actuator  has  wide¬ 
spread  use  in  aircraft  flight  control  systems.  The  component  is  essentially 
two  separate  actuators  whose  valves  move  in  unison  and  whose  rams  react  on  a 
common  load.  It  is  a  straight  forward  method  of  obtaining  survivability  of 
a  critical  function.  The  subroutine  provides  a  simple  model  of  this  actuator. 

The  model  must  begin  a  simulation  with  the  valve  closed  (i.e.  at  time 
T  ■  0.0,  valve  position  «*  0.0).  Positive  valve  displacement  causes  the  actuator 
to  extend,  while  negative  valve  displacement  causes  retraction.  There  is  no 
feedback  between  the  ram  and  the  valve. 
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There  are  four  connections  on  this  component,  and  they  must  be  made 
according  to  Figure  6.108-1.  For  either  system,  the  incoming  leg  (pressure) 
should  be  numerically  lower  than  the  outgoing  (return)  leg.  Nodes  must  be 
assigned  to  each  piston  of  the  actuator. 

The  subroutine  includes  cavitation  simulations  for  both  return  connections. 
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CARD  NUMBER  1 


COLUMN  FORMAT 


36-40 


41-45 


46-50 


51-55 


56-60 


61-65 


66-70 


71-75 


76-80 


Component  Number 


Type  Number  *  108 


Number  of  Real  Data  Cards  p  5  or  more 


Line  Number  (with  sign)  attached  to  Connection  1 


Line  Number  (with  sign)  attached  to  Connection  2 


Line  Number  (with  sign)  attached  to  Connection  3 


Line  Number  (with  sign)  attached  to  Connection  4 


Number  of  data  points  in  Time  Table 


Temperature/Pressure  Code  (See  Page  4.0-2) 


EXAMPLE  CARD 


4  1PP 


♦14  -15  +5 


•>  c  *  ■  >  io  ii  12  is  i#5  it  it  ;«  i9  ?o  2*  .v  .*s  w  r,  y.  i 7  ;a  y>  so  n  u  »  x  v  m  n  «  a?«»4«  at  at  ar  at  ao  so  *  tt  as  sa  v.  tt  sy  sa  a*  to  «i  ezts  ( 


I  ?  S  *  9  A  7  0  9  IO  ll  l2  IS  14  it  It  “  IS  >9  70  21  72  IS  it 4  27  21  T9  SO  }i  S?  SS  54  M  St  37  Sfl  19  40  41  42  <3  44  49  4G  47  46  4J  SO  9|  92  «S  94  59  96  8  7  M  »•  tO 

D  0  0  0  OiO  0  a  1 0  i  3  9  0  Vi  9  0  0  0  0  0  D  0  0;3  0  0  0  C}3  0  0  0  0,'0  0  0  C  0  0  0  C  0  O'O  0  0  0  0  0  0  0  0  P,’o  0  C  0  0  0  0  0  0  lljo  0  D  0  0  D  0  0  0  ojo  0  0  0  0 

I  ?  :  <  J  is  7  I  3  in  M  17  II  ‘t  »*t'i  17  IJ  l>:(J  Ji  r)  ::j.M  j:  J:  M /jJM  17  i|  .19  0  44  ^[r,  4/ 4M*5b  5.' W54  551M  5.  51  M  r.jrC0«?t!l3 /I  77  7:  74  75,71  77  7«  7!  13 

1  II  I  l<l  1 1  M  I  I  I  I  i!l  I  lE  II  1  lE  lit  I  I  1  I  I  I  II  1  ‘I  1  I  II  I  1  II  III  I  II  1,1  1  I  I  I'l  1  I  I  11  I  M  l!l  I  III  11  I  I  III  I  1  I  I 

i  ;  ,  1  '  1  i 

2222  2'2  72222222  2, 2  22222222  2i2  72222222  2, *2  22222222  2j2  22222222  2,'2  22222222  2, 2  22222222  2[2  2222 

3333  3l3  33331333  4*3  33333333  o'S  33333333  3|3  333  313  333  3'j  33331333  3|3  33333333  3'3  33333333  3l3  3333 

i  i  ,  1  I  ,  i  j 

4  4  4  4||:  4  4  4  4  i  4  4  4  4'i  1  4  if  H  4  «  4'4  4  4  4  4  4  4  4  4  4'4  4  4  4  <,4  4  4  4  4^4  4  4  1  4.4  4  4  4  4'4  4  4  4  4  4  4  4  4  4, '4  4  4  4  4  4  4  4  4  4i4  4  4  4  4 

>  I  I  <  s  i<  r  •  •  ul- 1:  ■’  ii  '  ':t  w  is  r  -.i  :i  iirmru  Ji  •"»>  10  i1  ::u  ntsu  ;j»  oj«i  ir  >iu  «in»j  i  *j»m  nJantsMU  sic.’littsips. >.)'.»  n  ,i  11  n  u  j:I,i  n  n  dm 

5  5  S  5  5'5  5  5  S  5;S  S  5  S|'S  5  5  5  S  S  5  5  5|'5  S  5  5|:»  5  5  5  5,'5  S  5  S  5B  S  5  5  S,S  S  S  S  5'S  5  S  5  5  5  5  5  5  5  5  S  5  5  SiS  5  5  5  5  5  5  5  5  s!s  5  5  3  5 


C  C  G  C  E:ts  G  5  6  C  5  S  6  3  1r,  3|  G  Gl£  G  G  S  G.3  C  6  1  6  6  6  S  S|'C  6S666666  GC  C666S6GC  S16  CG6S8G6G  0*6  C£GGC6G£  6'6  t>  C  C  6 

I  1  ,  ,  1  1 

m  1  hi  m  in  1 1  n\i  1 1  m  m  i\i  1 1 1 1 1 1 1 1  i[i  1 1 1 1 1 1 1 1  in  1 1 1 1 1 1 1 1  vi  11 1 1 1 1 ;  1  i\i  m  1 1 1 11  i\i  1  i  1 1 

it.  1  ,  !  !  ,  i 

£  i  3  8  5,3  I  £  3  |j£  3  i  i  r.i  3  1  8  8  3  8  8  I  S.8  8  £  |  £  !  1  i  S  !,l  M  8  8  8  1  9  8  l,M  I  1  3  8  8  C  8  M  8  £  8  E  3  i  S  £  C,i  t  3  £  8  3  i  3  1 1 8  3  £  8 

1  i  '  •  1  '  1  ! 

5 1  3  1  5:9  9  3  1  SlJ  9  9  9  9i9  1  !i  1 13  3  9  3  9:9  3  9  9  5  9  8  S  9  3i9  5  3  9  9  5  9  9  9  9S9  J  5  9  9  9  9  9  9  3.3  3  9  !)  C  9  S  I  0  Si3  99  S  '13  3  3  3  >  9  9  i 0 

4  ■  M’i  ■>  "  ‘4  i»  it  il  u-;.*' .  1  .t .  f.*t  .2  7i  71  jj  i  ..  u  j*is  j?  «•  j-i  aoi4i  <<  «  « •  uaijoj:  *».  v  %  m  .  #  <tr  ••  t  ••«>(,*•  m  *i  \\  .  »  -|i5r;sn. 

’•'•7  MAC  5079N  (.7C»  To  f T-  707 


CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

1-10 

E10.0 

PISTON  AREA  11 1 

11-20 

E10.0 

PISTON  AREA  112 

21-30 

E10.0 

PISTON  AREA  11 3 

31-40 

E10.0 

PISTON  AREA  H 

41-50 

E10.0 

f 1  VOLUME  AT  ZERO  STROKE 

51-60 

E10.0 

112  VOLUME  AT  ZERO  STROKE 

61-70 

E10.0 

11 3  VOLUME  AT  ZERO  STROKE 

71-80 

E10.0 

H  VOLUME  AT  ZERO  STROKE 

DIMENSIONS 


EXAMPLE  CARD 


5.133  5.133  5.133  23.51  20.42  20.42  20.42 

if  ilfi.  |»  i«  II  |«  i.  so  I  At  Nn»li  .  r.  hIuumuNII.  9.4oji‘  «  IIMIIM  il«l4oi'  M«HH*ll|lMOIillllM  1 


I  »  *  »  t  »  •  •  «  >i  II  II  II  M  ir  II  II  to  r>  IUI  M  4  N  II  N  N  It  )l  >t  t)  M  H  N  1)  N  N  to  (I  «H1  M  <14  4  «  H  tl  M  M 


1 1 1  t;i  i  ■  1 1  n  i  (I*  1 1 1 1 1 1 1  h;i  i  ii  1 1  m  i  iji  1 1 1 1  m  1 1  i;i }  1 1 1 1 1  •  m<i  |i  1 1 1 1  h  <;i  |i  1 1 1 

i  i  i  hi  i  i  i  i  n  ii  ii  ii  njn  ii  u  ii  n  ii  n  u  ii  ttjii  n  a  a  a  11  mm  »|a  >1  a  «  a  u  «  n  «  »,«  n  11 «  alii  u  u  h  »|b  11  a  »  a  u  mm  u,b  "  h  a  a  ii 

I  I  I  |{|  I  I  m  t :  t  I  H  I  B  I  I  I  I  I  I  l|l  1 1 II  I  I  I  M|l  I  1 1  It  I  I  I  ijl  I  I  I II  I  I  I  N  I  II  I  I  I  I  1  l|l  I  I  I  I  I 

im'iimmitliiimim'mmnimiinmifiminn'lmlnmlml! 

•  i  »  •  *  i  \  1 

j  n  iji  fi  n  i  n  n  i|i  B  i  ii  u  J  J  J;j  B  j  ii  j  n  njj  |3  111  n  nji  Bii  i  n  3 1  jji  j  in  i  j  j  n|i  j  |  j  n 

4  «  4  44  4  4  1  4  4  4  4  4  4*«  4  «  4  4  4  «  4  4  4)4  4  4  4  4  4  4  4  4  4'4  4  4  H  4  4  4  4  4i4  4  M  4  4  4  4  4  4’4  4  «  *4  4  4  t  4  4*4  4  4  |4  4 

i  i  4  t  i  i  r  4  ii  »  «i  *•  ti [ii  ii  ii  ii  w  it  n  »  h  n|H  ii  n  n  I  it  u  mi  »{ii  mi  »  u  u  it  o  u  njn  n  mi  *  »i  i?  »  »  u|m  v  m  ii  w  h  u  ii  m  d  w  t*  *  ji 

II I  3f  3  lgl  3 5  S  5  S|S  5  5  5  J  5  5  3  3)1 3  S  J  5  J  5  3  J  S||$  5  3  5  5  5  1  5  5|S  5  5  fen  S  5  5  5  [5  5  5  5  5  5  5  5  S  5|5  5  5  5  5  S 


IS  5f  5  lgl  J  5  i  5  5g  5  5  5  5  3  5  5  J  3)1 5  S  J  3  J  5  S3  SjlS  5  3  3  5  5  3  3  5ji  5  S  Ml  5  5  5  5  5)3  5  5  5  5  5  5  5 

1 1  (!|  1 1 1 1 1 1 1 1  i«  i  ( i  i  i  ii  i  i'i  ( 1 1 1 1 1  ( i  ill  i  m  m  ( i  i!i  i « 1 1  ( i  s  M'l  1 6  m  1 1 

3  II 

i  niii  n  i  n  ni'in  nln  i  M'lii  i  ill  n  ii'i  n  ni’  ii  nil : ;  1 1 1  ii  nil  i  n  i  n  i 


1 1  i:t  1 1 1 1 1 1 1 1  pi  1 1 1 1 1 1 1 1  m  1 1 1 1 1 1  mw  1 1 1 1  t  1 1 1  mi  ; ;  1 1 1 1  n  i;i  1 1 1 1 1 1 1 
*••11  1 

1 1  Mil  mill mEi  iiiiiii'iSiin » »*»'»  B«  »i  •  < »  m'i  i Si i » •  •  m'«  «■«  •  >  *  i 

i  i  i  l  l 

m  i!i  i|  *  ♦  I  M  i  i!i  1 1 1 1 1 1 1 1 1!»  1 1 1  »|i  » »  ij!i  « I  I II  II  I  i|i  1 1 1 1  n » i  «i?  J  mil  •  3 

ii<  i  ■  •  i  .  >  ii  M  n  ii  mi  ii  m  n  n  n  h  n  »  tt  n  »  »  n  »  ■  •  »  w  !»•••♦  *♦  *«  *  »*  •*  •*  *  ‘  « ►  ' 


•I Sill  Ik  f  1 1*9 
illlll|lf  Mill 


Ijl  1 2  1  ill 
l|l  1 1 3  3  1 


I  Mil  U  II  14  U  M  I’  M  N  • 

i  |i  1 1  •  1 1 1  i;t  |a  i  • 

•  ii  a  a  *  ii  ii  n  ii  am  im  it  * 
I  I  I  I  I  It  I  I  I'I  I  I  I  I 


4  4  4  1 4  4 
a  ii  u  m  a  II 
3  3  3  3  3  3 


Ijl  I  i  6  6  $ 
ijl  1  I  I  I  I 

I'tiBin 
lit  1 1 1 1 1 

'  •»  V  W  f  • 


1 1  Ijl  1 1 II 

mjlmi 

3  3  J>3  3  g  3  3 

4  4  4'4  4  4  |  4 

ii  ii  nja  ii  a  a  a 

3  3  3)3  5  5  5  5 

■  i  c;i  1 1 1 1 

1 1  i'i » 1 1 1 

i 

I  M'M  g  |  I 

in'iim 
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Oi  1)4 


(HIM 


CARD  NUMBER 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

SLOT  WIDTH:  CON  #1  TO  VOL  if 1 

IN 

11-20 

E10.0 

SLOT  WIDTH:  CON  if 2  TO  VOL  if 1 

IN 

21-30 

E10.0 

SLOT  WIDTH:  CON  111  TO  VOL  If 2 

IN 

31-40 

E10.0 

SLOT  WIDTH:  CON  if 2  TO  VOL  if 2 

IN 

41-50 

E10.0 

SLOT  WIDTH:  CON  //3  TO  VOL  if 3 

IN 

51-60 

E10.0 

SLOT  WIDTH:  CON  //4  TO  VOL  if 3 

IN 

61-70 

E10.0 

SLOT  WIDTH:  CON  if 3  TO  VOL  #4 

IN 

71-80 

E10.0 

SLOT  WIDTH:  CON  //4  TO  VOL  #4 

IN 

. 

EXAMPLE  CARD 


.266 
(Asm  a> » 


,266  .266 

(iMMIUMUM  4****°  HUIIM 


i  *  •  •  *  *0  "  •<  II  *4  49  W  if  l|  i|  M  l<  ||  l|  M  H  N  i>  N  D  M  tl  il  II  M  N  V  >1  N  R  <«  «Ml  •!  M  4  N  4T  W  #  M  U  Ml 


I  til  1 1 1  f  1 1  9  I  l;l  1 1  f  1 1 1  M  l|M  1 1 1 1 1 1 1  |;l  I II II  0  1 1  |;i  «  M  M  1 1 1  M  M  1 1 1  M  ••;»!  1 1 1 1 1 1 1  l|l  e  91 1 

<  pi  i  i  9  u  ti  mi  ii  <i {it  ii  n  ri  n  n  n  n  m  ftjN  im  n  a  it  n  n  m  »[■  if »  n  *  n  it  u  u  «i«  <i  n  *  » it  u  u  si  tfjM  it  u  u  «  n  u  I)  m  «i«  «i  ii  «  it  m  if  n  m  m»  ti  n  n  « 

Mill  M  If  II  I  M  1  I  IV  I  I  I  I  I'l  M  II  I  II  IP!  I  I  I  m  It  »!l  1  I  M  I  II  I  I’ll  II  I  M  I  I  I'l  I  II  M  I  I  I  111  I  II  I 

1  »  I  I  I  I  I  I 

i  i;n|m  m  iji  i  |t  1 1 1  i  i  iji  i  |i  i  n  1 1  iji  i  jit  m  t  i;i  i  In  1 1  i  mi  It  i 1 n 1  i;i  i  Ini  n  i  t;i  i  |i  ■ 
it;i|i  n  i  n  i  iji  |i )  1 1 1  n  i;)  |i  1 1 1 1  n  iji  |n  ii  n  nji  In  i  n  i  nji  |n  n  1 1 1  tjt  |i  n  i  n  i  iji  |n  i 

4  44  44141144  44  <4444444  4|4  44441444  4?4  44444444  4t4  1*444144  4*4  44444444  4*4  44444444  4|4  4444 
>  iji  i  t  i  at.  »>i  m  aj»  it  it  wr  n  n  HD  nja  n  ■  n  a  m  a  a  a  nja  ii  ax  •  ii  a  uu  aj«  n  »  a  *  n  »  um  h|h»  m  »  mi  bum  m»  »  »  »  n  »  »[»"*»» 

i  ii|  1 1 M  i  i  1 1  iji  I  i  S  i  I  $  I  >  ii  1 1 1 1 1 1 1 1 14  i  i  S  i  1 1  S I  ill  S  1 1  i  1 1 1  i  i'S  I  S  S  I  i  1 1  i  III  I  i  S  I  i  1 1 1  S'l  1 1  S  I 
I  I’l  1  M  1 1 1 1 1  M  1 1 1 1 1 11 1 1!|  1 1  IP  M  f  ill  M  |ff«  {  1 1  lit  1 1  III  1 1 1  iji  1 1 II I  •  1 1  IJI  1 1  ||i  1 1 1  IJI  I  ill 

ii't 1 1 Ii 1 1 1 1 H |i |im 1 1 1 M |i •  1 1 ii i •!> |i 1 1 1 r  3 1 |ii In 1 1 1 1 1  n Ii  1 1 1 1 1 1 ii< Ii M i •  i n't |i 1 1 : 

i  i  I  i  •  >  1  ■  * 

m|i « it  ill f  m  tin 1 1 ill i mi* 1 1 1 i|im i i!i i « i iji 1 1 n!i 1 1 1 1 1  n  nin  n  n  •  n ill  i  n  in  1 1  nn « n 

4  i  I  *1  «  4  Ii  f  U  M  is  4  It  M  II  a  )l  If  a  M  tl  *  II  *  a  *»  V  ft  M  ||  ft  If  !♦•••»'•  1  t»  *  «■  »  «* .  .*  ».  U  4  f  1 <i  (1  f  *  *  ■  • 


n*  r*  «tt  *0, 


CARD  NUMBER  4 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

STROKE  FROM  ZERO  TO  FULLY  RETRACTED  (0  OR  -) 

IN 

11-20 

E10.0 

STROKE  FROM  ZERO  TO  FULLY  EXTENDED  (0  OR  +) 

IN 

21-30 

E10.0 

VELOCITY  DAMPING  FACTOR 

LBS*SEC/lN 

31-40 

E10.0 

LOAD  MASS  (INCLUDING  PISTONS  +  ROD) 

lbs*sec2/in 

41-50 

E10.0 

* 

LOAD  AT  FULLY  RETRACTED  POSITION 

LBS. 

51-60 

E10.0 

* 

LOAD  AT  FULLY  EXTENDED  POSITION 

LBS. 

61-70 

E10.0 

INITIAL  RAM  POSITION 

IN. 

71-80 

E10.0 

"  -  ' 

*  COMPRESSIVE  LOADS  HAVE  POSITIVE  SIGN 
TENSILE  LOADS  HAVE  NEGATIVE  SIGN 


EXAMPLE  CARD 


-3 .76 

.  4  |  '  I  t  I' 


+3.?fc  0.1  .03541  -100CC.  +10000.  0.0 

..  ft  ,J.  ....  n  £»>.>  -m  »»»»»«i  «.  A. «  «!«•»..  to  in  »9f»  ..««« 


, .  .a, . . 

•  in  m  mi 


i  >  1 1 1 

Mill 


mmiim 


Itllt 

lllti 

iilSl 

Mill 

nm 

1 1 1  n 


i  1 1  *  n 

i  it  m 

nm 


|l!  II  II  14  lljlt  II  II  N  » 

I  1  I  I  l>l  I  I  I  I 

I  ' 

llll  l  ill  III  I 


Imhhiim 


*  i»  >4  '»  •«  ir  <•  it  to  r.  ct  ii  «4  n  m  i»  >•  tt  so  si  s> 


In  tttJH  n|i*  ii  m  n  alii  u  dm  »|m  if  m  m  d  «i  m  ii  n  a  m| 

i  1 1 1  in  1 1 1  ii  1 1 1  iji  1 1 1  in  1 1 1 1 1 1 


MiM'mn 


Ih, 


1 1 1 IM  1 1 1 1 1 1 1  M'l  I  |l  1 1 1  M  l||l  1 1  M  M  I  *;|  9 1 9  f  MM  i;l  1 1 1  •  M  M  IJM  () 

••  K  .1  .|I|<  II  II  MMn  nn  u  m'm  II  ■  n  ■  II  tin  ii  h!m  II  U  II «  II  ll  (1  M  Hill  II  M  M  SI  i<  II  U  U  tt.M  If  U  H  tt  It  It  I)  M  W|9  M  9  9 


|lll  l  tjlll  I J 


4  4  4  4  4>4  4  4  4  4 


n  n  ii  h  i»|*  ii  ii  ii  njii  «  m  ii  it}*  ii  n  if  * 


M  M  J'J  J  J  l  M  M  M'M  Dm  5  IS  M|M  MS 


>41444 

]i  I  i  i  « 

;M  MS 
MM« 

;m|i|m  Mjm|i|m  i?;m  m|m  m'm  ?  jij  i  j  nj? ; ;  1 i 


j  m  i;i  i  m 


4  4  4  4  4<4  4  4  |4 

ii  ii  u  m  njx  ii  »  »  h 


1 1 1  M*M  I  9m  1 1 1*1  M  MN  *  I  Mil  M  M  M  M  Ijl  M  M  M  i  |ijl  MM 


i  m  j'j  m  i 


III  U  U  H  x!u  II  X  H  «| 

I  I  II  |l  I  I  1  I 


urn 


J  Ml  i'll)  J  ll  J  Jlljm  3  13  M  M;I3J  1 1 


4  4  4  Mi4  4  M  4 

ll  U  II  «  IiJh  II  H  II  H 


4  4  4  4  4 

III  U  II  M  H 

iim 


;M  S  M  I  M  M  fc  I  S I  M  M  M  ;M  I  9  M  M  C  g>M  M  M  M  II  >M  M  9l  M  9  i  ;M  M  9  M  M  I  jl  M  |  i 

!»  I II  ijl  II 1 1>  I 1  M  M  II  Ml  II  «{l  I  «  m!m  M  II  M  m!m  M  III  M  I  M  I  M  II  M  Mil  *  }  M 
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CARD  NUMBER  5 


1 - 

COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

FIRST  TIME  VALUE  (MUST  BE  0.0) 

SEC 

11-20 

E10.0 

(ENTER  AS  MANY  TIME  VALUES  AS 

SEC 

21-30 

E10.0 

NECESSARY  USING  AS  MANY  CARDS  AS 

— 

SEC  1 

31-40 

E10.0 

NECESSARY.  THE  TOTAL  NUMBER  SHOULD  BE 

SEC 

41-50 

Le10-° 

THE  SAME  AS  THAT  SPECIFIED  ON  CARD  1 

SEC 

51-60 

E10.0 

COL.  71-75,  AND  THE  LAST  TIME  VALUE 

SEC 

61-70 

E10.0 

SHOULD  BE  GREATER  THAN  OR  EQUAL  TO  THE 

SEC 

1 

71-80 

- 1 

E10.0 

FINAL  CALCULATION  TIME  OF  THE  RUN.) 

SEC 
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CARD  NUMBER  6 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

El  0.0 

VALVE  POSITION  AT  TIME  T  =  0.0  (MUST  3E  0.0) 

IN 

r  ■  -  - 

11-20 

E10.0 

(ENTER  AS  MANY  VALVE  POSITION  AS  THERE 

IN 

21-30 

E10.0 

are  TIME  VALUES) 

IN 

31-40 

E10.0 

IN 

41-50 

E10.0 

IN 

51-60 

E10.0 

IN 

61-70 

E10.0 

IN 

j 

71-80 

E10.0 

IN 
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APPENDIX  J  (CONT) 

SUBROUTINE  ACT108 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  II) 

6.108  SUBROUTINE  ACT108 

The  ACT 108  subroutine  models  a  tandem  or  parallel  valve  controlled  actuator. 
Valve  motion  is  input  as  a  position/ time  history  and  the  valve  operates  open 
loop  without  feedback. 

Subroutine  ACTIOS  can  be  used  as  a  dual  system  actuator,  but  must  begin 
the  simulation  with  zero  velocity  (i.e.  at  time  T  =  0,  valve  position  =  0) 
in  order  to  work. 

The  valve  is  assumed  to  be  of  square  port  configuration  with  zero  lap. 

The  width  of  each  port  is  input  independently  to  allow  the  valve  areas  to  be 
matched  with  their  corresponding  piston  areas.  Straight  line  interpolation 
is  used  to  determine  intermediate  valve  positons  of  the  position/time  table. 

External  loads  at  the  fully  retracted  and  fully  extended  positions  may 
be  input,  and  are  assumed  to  vary  linearly  between  these  points.  The  effect 
of  atmospheric  pressure  on  an  unbalanced  area  actuator  is  included. 

The  model  is  very  similar  to  the  simple  valve  controlled  actuator  modeled 
by  subroutine  ACT1Q1. 


B»turn  Pretsure  Return  PrMtur* 
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6.108.1  MATH  MODEL 


The  math  model  for  this  subroutine  can  be  divided  into  two  parts,  the 
flow  calculations  and  the  force  balance. 

The  flow  calculations  are  performed  first,  using  the  line  equations 
orifice  equations,  volumetric  impedance  and  predicted  chamber  pressures. 

The  predicted  chamber  pressures  are  obtained  from  the  actuator  force  balance 
performed  during  the  previous  time  step. 

For  any  given  chamber  of  the  actuator,  by  assigning  a  positive  sign  convention 
for  flow  into  the  chamber,  the  flow  can  be  calculated  using  the  general  orifice 
formula: 

FLOW  =  ( SORT (FN2** 244  *  FNl*ABS  (C-PT) )~FN2)/2 .0  (1) 

Where  FN1  =  (XV*VK)**2  (CIS2/PSI) 

FN2  =  FN1*Z  (CIS2) 

XV  =  valve  position  (IN) 

VK  =  W*SQRT(2/Rho)*.65  (CIS/PSI)1/2 

Z  =  Line  characteristic  impedance  +  volumetric  impedance  (PSI/CIS) 

C  =  Line  characteristic  pressure  (PSI) 

PT  =  Chamber  volumetric  pressure  (PSI) 

W  =  Valve  slot  width  (IN) 

Rho  ■  Fluid  density  (LB*SEC2/IN4) 

Use  of  the  chamber  volumetric  impedance: 

ZV  *  (Bulk  Mod  *  At) /Volume 
Where  Bulk  Mod  ■  Bulk  modulus  of  the  fluid  (PSI) 

4 

Volume  *  Chamber  fluid  volume  (IN  ) 

At  -  Time  step  increment  (SEC) 

Allows  calculation  of  the  chamber  volumetric  pressure  as 


PT  -  PP  -  VEL*AREA*ZV 


« 


Where  PP  =  Predicted  chamber  pressure  (PSI) 

VEL  3  Actuator  velocity  (IN/SEC) 

2 

AREA  =  Piston  Area  (IN  ) 

The  force  balance  on  the  actuator,  as  illustrated  by  Figure  6.108-2  is 
defined  by  the  equation. 

Fl  =  P1*A1-P2*A2+P3*A3-P4*A4-Fi-Fd  (2) 


!l 
f\ 
Fo 

FIGURE  6.108-2 

Where  F  =  External  Force  (LB) 

L 

Pl  =  Chamber  #1  Pressure  (PSI) 

2 

Al  =  Chamber  //I  Piston  Area  (IN  ) 

P2  =  Chamber  #2  Pressure  (PSI) 

2 

A2  =  Chamber  #2  Piston  Area  (IN  ) 

P3  -  Chamber  #3  Pressure  (PSI) 

2 

A3  =  Chamber  03  Piston  Area  (IN  ) 

P4  *  Chamber  04  Pressure  (PSI) 

A4  =  Chamber  04  Piston  Area  (IN^) 

Fj  *  Inertia  Force  (LB) 

Fd  =  Damping  Force  (LB) 
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Using  Che  definitions 

Fj.  =  M*a  =  M*(Vn-Vo)/At 
Fd  =  Vn*DAMP 

Where  M  =  Piston  Mass  (LB/SEC2/IN) 

2 

a  =  Piston  Acceleration  (IN/SEC  ) 

Vn  =  Piston  Velocity  (IN/SEC) 

Vo  =  Last  Velocity  Calculation  (IN/SEC) 

At  =  Time  Increment  (SEC) 

DAMP  =  Damping  Factor  (LB*SEC/IN) 

The  force  balance  (Equation  2)  can  be  expressed  as 

P1*A1+P3*A3-P2*A2-P4*A4-V  (M/At+DAMP)+Vo*M/At-F  =  0  (3) 

Lm 

The  actuate^  ._,city  is  directly  related  to  the  actuator  flows  plus 
the  chamber  volume  effects.  Assigning  positive  displacement  and  velocity 
vectors  to  the  actuator  extend  condition,  the  velocity  can  be  related  to  the 
flows  through  the  equations: 
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Vn*Al  -  Q1  +  (P1-P10)*GV1  (4) 

-Vn*A2  -  Q2  -  (P2-P20)*GV2  (5) 

Vn*A3  -  Q3  *  (P3-P30)*GV3  (6) 

-Vn*A4  =  Q4  -  (P4-P40)*GV4  (7) 

Where  Q1  «  Flow  into  Chamber  //I  (CIS) 

Q2  «■  Flow  into  Chamber  it 2  (CIS) 

Q3  =  Flow  into  Chamber  1t3  (CIS) 

Q4  =  Flow  into  Chamber  #4  (CIS) 

P10  *  Previous  time  step's  calculation  of  PI  (PSI) 

P20  R  Previous  time  step's  calculation  of  P2  (PSI) 

P30  =  Previous  time  step's  calculation  of  P3  (PSI) 

P40  =  Previous  time  step's  calculation  of  P4  (PSI) 

GV1  =  Oil  Volume  //I  conductance  (CIS/PSI) 

GV2  =  Oil  Volume  it2  conductance  (CIS/PSI) 

GV3  =  Oil  Volume  it3  conductance  (CIS/PSI) 

GV4  =  Oil  Volume  H  Conductance  (CIS/PSI) 

During  any  time  step,  the  oil  volume  conductance  of  any  chamber,  X  ,  is  cal¬ 
culated  as 

GV  (  X)  =  Volume  (  X)/  BULK  MOD  *  At 
Rewriting  Equations  (4)  through  (7)  in  terms  of  PI,  P2,  P3,  and  P4  then 
substituting  these  into  the  force  balance  (Equation  (3)),  the  actuator  velocity 


531 


4 


The  velocity  may  then  be  used  to  update  the  predicted  chamber  pressures 
through  thp  equations 

PP1  =  PP1  +  (Ql-Vn*Al)/GVl 
PP2  -  PP2  +  (Q2+Vn*A2)/GV2 

PP3  -  PP3  +  (Q3-Vn*A3)/GV3 

& 

PP4  -  PP4  +  <Q4+Vn*A4/GV4 

The  predicted  chamber  pressures  and  the  newly  calculated  velocity  are  now 
ready  for  use  in  the  next  time  step's  calculations. 

6.108.2  ASSUMPTIONS 

In  order  to  make  this  a  generalized  model,  several  important  actuator 
characteristics  have  been  omitted.  These  include  cross  piston  leakage,  manifold 
pressure  losses,  seal  friction,  barrel  expansion  of  the  actuator,  external 
load  spring  mass  characteristics,  and  valve  leakage  and  neutral  gain  character¬ 
istics.  All  of  these  factors  are  highly  specific  to  a  given  actuator  design, 
and  to  include  them  would  result  in  a  model  too  detailed  for  general  usage. 

The  model  uses  predicted  values  of  several  parameters  in  its  solution 
technique.  The  assumption  is  made  that  these  values  are  correct,  when  in  fact 
there  is  some  degree  of  error.  The  error  decreases  with  decreasing  calculation 
time  intervals.  Inaccuracies  and  instabilities  can  result  if  too  large  a  time 
step  is  chosen  for  the  simulation. 

The  ACT108  subroutine  provides  a  simple,  generalized  model  of  what  can  be  a  very 
complex  piece  of  hardware.  The  user  must  bear  in  mind  that  inaccuracies  of  some 
degree  will  result  in  any  simulation  because  of  the  assumptions  listed  above. 
Judicious  selection  of  input  data  can  minimize  the  errors  resulting  from  these 
assumptions . 

6.108.3  COMPUTATION 
SECTION  1000 

Orifice  characteristics  for  each  flow  path  are  calculated  using  the 
density  of  the  fluid  at  the  component,  an  aseumed  valve  discharge  coefficient  of 
.65,  and  the  valve  slot  widths  input  on  the  data  cards. 
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These  values  are  stored  in  the  D  array  for  use  in  the  later  sections  of  the 
program. 

The  slope  of  the  load/stroke  relationship  is  calculated  and  stored 
for  use  in  the  transient  load  calculations  later  on.  This  variable  is  used  to 
determine  the  external  load  at  the  initial  actuator  position  specified  on  the 
data  cards.  The  load,  along  with  atmospheric  effects  on  an  unbalanced  area 
actuator,  will  be  necessary  for  the  steady  state  initialization  performed  in 
Section  1500. 

Damping,  bulk  modulus,  and  inertia  constants  are  calculated  from  the 
input  data  and  stored  as  DT  variables  for  later  use. 

The  starting  point  of  the  position/ time  "table1'  for  the  valve  is  established, 
and  the  counters  and  variables  necessary  for  the  steady  state  calculations  are 
initialized  before  control  is  returned  to  the  main  program. 

SECTION  1500 

The  steady  state  portion  of  this  subroutine  assumes  the  valve  is  closed 
at  the  start  of  the  simulation.  To  begin  a  simulation  with  an  open  valve  (i.e. 
a  moving  actuator)  would  involve  a  solution  technique  not  yet  devised.  This 
is  because  a  tandem  actuator  is  an  interface  point  between  two  separate  hydraulic 
systems.  No  inter-system  flow  exists,  but  there  is  a  definite  mechanical  connection 
between  the  systems.  A  steady  state  balance  on  such  a  device  would  involve  an 
integral  force  balance  approach. 

The  first  action  in  the  1500  section  is  to  determine  the  initial  position 
of  the  actuator  ram  with  respect  to  its  stroke  limits.  If  the  ram  is  somewhere 
between  its  stops,  a  force  balance  (performed  separately  for  each  piston)  must 
be  done  to  relate  the  chamber  pressures.  If  the  ram  is  at  either  one  of  its 
stops,  the  actuator  can  be  in  a  bottomed  condition,  in  which  case  the  chamber 
pressures  need  not  result  in  a  force  balance.  For  the  bottomed  condition,  the 
piston  leakage  coefficient  is  set  equal  to  40000  PSI/CIS  to  allow  some  flow 
through  the  component  for  pressure  calculations. 
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If  the  ram  is  not  bottomed,  the  pressure  calculations  are  done  with  a  separate 
system  force  balance  and  no  leakage  impedance  is  necessary. 

With  the  ram  position  determined,  the  next  test  is  a  check  for  which 
connection  of  the  actuator  the  leg  under  calculation  is  attached  to.  If  the 
test  shows  either  connections  1  or  3  (i.e.  the  "pressure"  ports  of  the  actuator) 
to  be  in  the  leg,  the  assumption  that  each  piston  reacts  one  half  of  the  external 
load  is  used  to  calculate  the  variable  DT  (PFORCE)  as; 

DT  (PFORCE)  =  £pND  *  (EXTA-RETA)  -  EXTL/2.]  /RETA 

Where:  PND  =  Downstream  Node  Pressure  (PSI) 

EXTA  =  Piston  Extend  Area  (IN2) 

? 

RETA  =  Piston  Retract  Area  (IN  ) 

EXTL  =  External  Load  (LB) 

2 

After  this  calculation,  the  leg  constant  for  the  Q  term  is  updated  with 

2 

the  addition  of  400000  PSI/CIS  and  the  chamber  pressure  set  equal  to  the  down¬ 
stream  node  pressure  before  control  is  returned. 

2  2 

If  connection  2  or  4  is  in  the  leg,  400000  PSI/CIS  is  added  to  the  Q 
leg  term,  the  Q  term  is  updated,  and  DT  (PFORCE)  is  added  to  the  constant  pressure 
drop  term.  The  upstream  node  pressure  and  chamber  pressure  are  then  calculated 
using  DT  (PFORCE),  the  leakage  factors,  and  leg  flow  before  control  is  again 
returned  to  the  main  program. 

SECTION  2000 

The  predicted  chamber  pressures,  which  will  be  necessary  for  the  first 
transient  calculations,  are  set  equal  to  the  chamber  pressures  calculated 
in  the  steady  state  section.  DT  variables  for  the  3000  section  are  Initialized, 
then  control  is  returned  to  the  calling  program. 
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SECTION  3000 

The  oil  volume  conductance  Is  calculated  for  each  chamber  based  on  the 
predicted  chamber  pressures  and  predicted  ram  position  from  the  previous  time 
step. 

A  call  to  the  1NTERP  subroutine  determines  the  valve  position  for  the 
time  step  being  calculated.  If  the  valve  is  closed,  all  line  and  chamber  flows 
are  set  equal  to  zero  and  control  is  routed  to  the  line  pressure  equations. 

If  the  valve  has  a  positive  (actuator  extend)  or  negative  (actuator  retract) 
displacement,  tests  determine  which  valve  slot  characteristics  to  use  in  the 
flow  calculation  given  by  Equation  (1).  The  direction  of  this  absolute  value 
flow  is  determined  by  comparing  the  line  characteristic  pressure  and  pre¬ 
dicted  chamber  pressure. 

After  all  four  line  flows  are  calculated,  the  basic  line  equations  are 
used  to  give  the  port  pressures.  Checks  are  then  made  to  determine  if  either 
return  port  has  cavitated.  If  this  is  so,  the  same  type  cavitation  model  as 
used  in  subroutine  REST41  is  used  to  assign  chamber  pressures  and  flows  to 
track  the  resultant  cavitation  bubbles. 

After  the  chamber  flows  are  established,  constants  are  calculated  and  the 
external  load  is  predicted  so  the  actuator  ram  velocity  can  be  determined  using 
Equation  (8).  Using  this  velocity,  the  new  ram  position  is  calculated  and 
checked  against  the  stroke  limits  before  a  position  prediction  is  made  for  use 
in  the  next  time  step.  The  velocity,  chamber  flows,  and  oil  impedances  allow 
updating  of  the  predicted  chamber  pressures  for  use  in  the  next  time  step's 
calculations.  Control  is  then  returned  to  the  main  program. 

6.108.4  LIMITATIONS 

The  major  limiting  fac ^ors  of  this  subroutine  are  the  need  to  begin  the 
simulation  with  zero  ram  velocity  and  the  straight  line  load/stroke  relation¬ 


ship. 
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The  desire  for  a  generalized  model  has  placed  limitations  on  this  sub¬ 
routine  when  it  is  used  to  simulate  a  specific  actuator  design.  The  straight 
line  valve  characteristics  may  not  give  the  same  valve  stroke/actuator  response 
that  an  actual  piece  of  hardware  would  exhibit  because  the  valve  slots  are  not 
always  of  rectangular  configuration.  Lack  of  manifold  simulation  and  the  assumption 
of  a  constant  discharge  coefficient  will  often  give  ram  velocities  that  differ 
from  what  is  observed  on  the  actual  hardware. 

The  subroutine  is  a  good  generalized  model  of  a  dual  system  actuator.  It 
can  be  used  to  study  waterhammer  transients  and  inter-system  performance,  but 
the  user  should  be  aware  of  its  limitations. 
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6.108.5  Variable 

Names 

NAME 

DESCRIPTION 

DIMENSIONS 

D(AREAl) 

Piston  Area  it  1  (EXT) 

IN2 

D (AREA2) 

Piston  Area  it2  (RET) 

IN2 

D (AREA3) 

Piston  Area  #3  (EXT) 

IN2 

D(AREAA) 

Piston  Area  //4  (RET) 

IN2 

D(DAMP) 

Damping  Factor 

LB*SEC/IN 

D(INPOS) 

Initial  Piston  Position 

IN 

D  (MASS) 

Piston/Rod  Mass 

LB* SEC 2 /IN 

D  (MAXL) 

External  Load  at  Fully  Extended  Position 

LB 

D  (MAX ST) 

Stroke  from  Zero  Position  to  Fully  Extended 

Position 

IN 

D(MINL) 

External  Load  at  Fully  Retracted  Position 

LB 

D (MIN ST) 

Stroke  from  Zero  Position  to  Fully  Retracted 

Position 

IN 

D(  SLOTH) 

Valve  Characteristic  (Connection  //I  to  Chamber  #1) 

in2/(JF3T*sec) 

D(SL0T12) 

Valve  Characteristic  (Connection  //I  to  Chamber  if 2) 

in2/6/F3T*sec) 

D (SL0T21) 

Valve  Characteristic  Connection  if 2  to  Chamber  it  1) 

in2A>/£1?T*sec) 

D(SLOT22) 

Valve  Characteristic  (Connection  it2  to  Chamber  itl) 

in2AVPST*sec) 

D(SLOT33) 

Valve  Characteristic  (Connection  it 3  to  Chamber  //3) 

in2A/F3T>sec) 

D(SLOT34) 

Valve  Characteristic  (Connection  if 3  to  Chamber  it 4) 

in2XVP3T*sec) 

D(SLOT43) 

Valve  Characteristic  (Connection  //4  to  Chamber//!) 

in2XVP3T*sec) 

D(SLOT44) 

Valve  Characteristic  (Connection  if 4  to  Chamber  f/4) 

in2X»/F5T*sec) 

D(V0L1) 

Chamber  if  1  Volume  at  Zero  Stroke 

in3 

D(V0L2) 

Chamber  if 2  Volume  at  Zero  Stroke 

IN3 

D  (V0L3) 

Chamber  if 3  Volume  at  Zero  Stroke 

IN3 

537 


NAME 

DESCRIPTION 

DIMENSIONS 

D(V0L4) 

Chamber  //4  Volume  at  Zero  Stroke 

IN3 

DELT02 

Simulation  Time  Step/2 

SEC 

DPI 

Temporary  Variable 

PSI 

DP  2 

Temporary  Variable 

PSI 

DT (FORCE) 

External  Force  at  Initial  Position 

LB 

DT( INERT) 

Inertia  Characteristic 

LB* SEC /IN 

DT(KBULK) 

Bulk  Modulus  Factor 

PSI/SEC 

DT(KDAMP) 

Inertia/Damping  Factor 

LB*SEC/IN 

DT (LOADS) 

Slope  of  Load/Stroke  Relation 

LB /IN 

DT (LOAD EX) 

Atmospheric  Force  on  Rod  Due  to  Ar  ;a  Unbalance 

LB 

DT(LOADZ) 

External  Load  at  Zero  Stroke 

LB 

DT(NCAVl) 

Cavitation  Monitor  at  Connection  2 

CIS 

DT (NCAV2) 

Cavitation  Monitor  at  Connection  4 

CIS 

DT(PFORCE) 

Piston  Force 

LB 

DT(PPl) 

Pressure  in  Chamber  Itl 

PSI 

DT (PP2) 

Pressure  in  Chamber  #2 

PSI 

DT(PP3) 

Pressure  in  Chamber  //3 

PSI 

DT (PP4) 

Pressure  in  Chamber  //4 

PSI 

DT(PPIP) 

Chamber  #1  Predicted  Pressure 

PSI 

DT (PP2P) 

Chamber  #2  Predicted  Pressure 

PSI 

DT(PP3P) 

Chamber  #3  Predicted  Pressure 

PSI 

DT(PP4P) 

Chamber  #4  Predicted  Pressure 

PSI 

DT(PX) 

Predicted  Ram  Position 

IN 

DT(Q1) 

Chamber  #1  Flow 

CIS 

NAME 

DESCRIPTION 

DIMENSIONS 

DT(Q2) 

Chamber  It  2  Flow 

CIS 

DT(Q3) 

Chamber  #3  Flow 

CIS 

DT(Q4) 

Chamber  #4  Flow 

CIS 

DT(VEL) 

Actuator  Ram  Velocity 

IN/SEC 

DT  (X) 

Actuator  Ram  Position 

IN 

FLOW 

Temporary  Variable 

CIS 

FLOW1 

Temporary  Variable 

CIS 

FLOW2 

Temporary  Variable 

CIS 

FN1 

Temporary  Variable 

CIS2/PSI 

FN2 

Temporary  Variable 

CIS2/PSI 

FN3 

Temporary  Variable 

CIS2/PSI 

FN4 

Temporary  Variable 

CIS2/PSI 

GV1 

Oil  Volume  #1  Conductance 

CIS/PSI 

GV2 

Oil  Volume  It2  Conductance 

CIS/PSI 

GV3 

Oil  Volume  It 3  Conductance 

CIS/PSI 

GV4 

Oil  Volume  It 4  Conductance 

CIS/PSI 

OA2 

Connection  It 2  Steady  State  Flow 

CIS 

QA4 

Connection  #4  Steady  State  Flow 

CIS 

QS2 

Flow  Sign 

— 

QS4 

Flow  Sign 

— 

VAP 

Fluid  Vapor  Pressure 

PSI 

VK1 

Temporary  Variable 

in2/(\/F3T*sec) 

VK2 

Temporary  Variable 

in2/(VP5T*sec) 
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NAME 
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VK3 

VK4 

XV 

ZQ 

ZT1 

ZT2 

ZT3 

ZT4 

ZV1 

ZV2 

ZV3 

ZV  4 


DESCRIPTION 

Temporary  Variable 
Temporary  Variable 
Valve  Position 
Leakage  Impedance 
Combined  Line/Volume  Impedance 
Combined  Line/Volume  Impedance 
Combined  Line/Volume  Impedance 
Combined  Line/Volume  Impedance 
Oil  Volume  #1  Impedance 
Oil  Volume  if 2  Impedance 
Oil  Volume  //3  Impedance 
Oil  Volume  //4  Impedance 


DIMENSIONS 

in2/(v/P3T*sec) 

in2/(VF5T*sec) 

IN 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 

PSI/CIS 
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SUBROUTINE  ACT108  (D,DT,DD,L) 

C  ***  REVISED  DECEMBER  1979  *** 

C  ***  THIS  SUBROUTINE  MODELS  A  TANDEM  VALVE  CONTROLLED  ACTUATOR 
DIMENSION  D(32),DT(25),DD(1),L(14) 

COMMON  NTELPL , NTOLPL , I PT , IPO I NT , NPT S , I NEL , KNEL .NTOPL , NLPLT ( 6 1 , 3 ) , 
1  PQLEG(90, 12) ,LCS(90, 10) ,ILEG(1400) ,PN(90) ,QN(90) 

C0*1M0N/SUB/PARM( 150, 9), PM ( 1500) , QM( 1500) ,P( 300) , Q(300) ,C(300) 

1 ,  Z(300) ,RHO(20) ,S2ORHO(20) , VI SC (20) , BULK(20) , TEMP ( 20) , PVAP (20) 

2,  ATPRES,T,DELT ,TFINAL ,PLTDEL,PI ,TITLE(20) , LEON, ICON 

3, KTEMP(99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC(99) ,INX,INZ 
4,INV,ISTEP,NLINE,NEL,IND,IENTR,MNLINE,MNEL,MNLEG,MNN0DE,MNPL0T 
5.MNLPTS ,MDS 

INT EGER  AREA  1 , AREA2 , AREA 3, AREA4 , VOL 1 , VOL2 , VOL3 , V0L4 , 

1SLOT 1 1 , SLOT 1 2 , SLOT21 , SLOT 2 2 , SLOT33 , SLOT34 , SLOT43 , SL0T44, 

2DAMP.X, VEL,PP1 , PP2 , PP3 , PP4 , PP1P, PP2P ,PP3P,PP4P ,PFORCE, 
3F0RCE,CT,PX,Q1,Q2,Q3,Q4 
C  D  ARRAY  VARIABLES 

DATA  AREA1/1/ .AREA2/2/ ,AREA3/3/,AREA4/4/,VOLl/5/,VOL2/6/, 
lVOL3/7/,VOL4/8/,SLOTll/9/,SLOT12/10/,SLOT21/ll/,SLOT22/12/, 
2SLOT33/13/ ,SLOT34/14/ , SLOT43/15/ , SLOT44/16/,MINST/17/,MAXST/18/, 
3DAMP/19/, MASS/20/, MINL/21/,MAXL/22/,INPOS/23/ 

C  L  ARRAY  VARIABLES 

DATA  NTAB/5/.IY/6/, NODE/7/, CT/8/,LCl/9/,LG2/10/,LG3/ll/,LG4/12/, 

1  Nl/J  3/.N2/14/ 

C  DT  ARRAY  VARIABLES 

DATA  X/l/,PX/2/,VEL/3/,Ql/4/,Q2/5/,Q3/6/,Q4/7/,PPl/8/ 

1, PP2/9/ ,PP3/10/ , PP4/ 11/ , PPIP/ 1 2/,PP2P/13/ , FP3P/14/ , 

2  PP4P/1 5/, FORCE/16/, PFORCE/17/, LOADS/18/ .LOADZ/19/, 

3  LOAD EX/ 20/ , INERT/21/ , KDAMP/22/ ,KBULK/23/ ,NCAVl/24/,NCAV2/25/ 

C 

IF(IENTR)  1000,2000,3000 
C  ***  1000  SECTION 
1000  CONTINUE 

IF(INEL.NE.0)G0  TO  1500 
C  ACTJATOR  PARAMETER  INPUT 

D(SL0T1 1)-D(SL0T1 l)*0. 65*S20RH0(KTEMP(IND) ) 
D(SLOTl2)-D(SLOT12)*0.65*S2ORHO(KTEMP(IND)) 
D(SLOT21)-D(SLOT21)*0.65*S2ORHO(KTEMP(IND) ) 

D (SLOT22)“D(SLOT22) *0. 65*S20RH0(KTEMP(IND) ) 
U(SLOT33)-D(SLOT33)*0.65*S20RHO(KTEMP<IND)> 
D(SLOT34)-D(SLOT34)*0.65*S2ORHO(KTEMP(IND)) 

D ( SLOT4  3) -D ( SLOT4  3) *0 . 6  5*S  20RH0 ( KTEMP ( IND) ) 
D(SLOT44)-D(SLOT44)*0.65*S2ORHO(KTEMP(INP)) 
DT(LUAl>S)-lD(MAXL)-D(MINL))/(D(MAXST)-D (MINST)) 

DT (LOADZ )-D (MAXL ) -DT (LOADS ) *D (MAXST) 

DT (PORCE)-DT (LOADZ )+DT (LOADS ) *D ( INPOS ) 

DT  (LOADEX) -ATPRES* (D ( AR EA 1 ) -D  ( ARF,A2 )  +D ( AREA3 ) -D  ( AREA4 )  ) 

DT (INERT ) -D (MASS ) /DELT 
DT ( KDAMP ) -D (DAMP )*DT ( INERT ) 

DT(X)-D( INPOS) 
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DT(KBULK)-BULK(KTEMP(INT))  )*DELT 

DELT02-DELT/2.0 

L(NTAB)-L(12) 

L(IY)-(L(NTAB)+7)/8 

L(IY)-25+L(IY)*8 

L(N0DE)-1 

L(CT)-0 

XV-D(L(IY)) 

DT(2b)-XV 

DT(PP1P)-40U000. 

DT(PP2P)«400000. 

DT(PP3P)-4OUUU0. 

DT(PP4P)“40000U. 
or (NCAvi;»u.o 
DT(NCAV2)-0.0 
RETURN 

1 SOU  SECTION 

Trie,  STEADY  STATE  SECTION 
1S"U  CONTINUE 
ZQ-U.U 

IE(UT(X).GT.O(MINST).AND.DT(X).LT.T>(MAXST))G0  TO  1505 

Z0-4OU0U. 

loos  oO  TO  ( 1U , 20, 10, 40) , KNEL 
1U  ULCU-1NEL 

L(N1 )-LCS( 1NEL, 1) 

L(CT)«L(CT)+1 

01  U-KOKCE ) - ( PN ( L (N 1 ) ) * (D ( AREA  1 )-D (AREA2 ) ) -DT (FORCE ) / 2 . ) /U (AREA2 ) 
PQLEG (INEL, 8) -PQLEG (INEL, 8)+DT(PPlP) 

DT (PP1 )*PN(L (N1 ) ) 

GO  TG  1SSU 
20  L(LG2)-INEL 
L(CT )-L(CT )+l 
QA2-PQLEG(INEL, 1) 

QS2-PQLEG ( INEL, 2) 

PQLEG (INEL , 8)-PQLEG(INEL, 8)+DT(PP2P ) 

PQLEG(INEL,6)-PQLEG(INEL,6)+ZQ 

PQLEG ( INEL , 5)— PQLEG ( INEL, S) +DT ( PFORCE ) 

ryLEGUNEL,  1 1  l-FQLEG  (INEL,  1  i  )+DT(  PFORCE)-QA2*QS2*  (ZQ+QA2* 
1DT(PP2P) ) 

DT(PP2)-PN(L(N1))+DT(PF0RCE)-QA2*QS2*ZQ 
GO  TO  IS SO 
JO  L(LG3)-INEL 

L(N2)-LCS( INEL , 3) 

L(CT)-L(CT)+1 

DT( PFORCE )-(PN(L(N2) )*(D(AREA3)-D(AREA4) )-DT(F0RCE)/2.)/D(4REA4) 
PQLEG ( INEL, 8) -PQLEG (INEL, 8 )+DT(PP3P) 

OT(PPJ)-PN(L(N2) ) 

GO  TO  iJJU 
4U  L(  LG4)— INKl. 
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L(CT)-I.(CT)+1 
QA4-PQLKG(1NEL,  1  ) 

QS4«FQLEG( INEL,  t ) 

PQLEG  ( 1 NKL , 8 )  -PQL EG  ( I NEL  ,  8 )  +DT  ( PP4P ) 

PQLEG ( INEL, 6) “PQL EG (INEL, 6)4  ZQ 

FQL EG  ( INEL ,  5 ) -PQLEG  ( INEL ,  5)+DT  (PFORCE ) 

PQLEG(INEL, 1 1 )-PQLEG (INEL , 1 1 )+DT(PFORCE)-QA4*QS4*(ZQ+QA4* 
IDT (PP4P ) ) 

DT (FP4 )-PN (L(N2 ) )+DT (PFORCE )-QA4*QS4*ZQ 
1550  IF(L(CT) .EQ.4)G0  TO  1600 
RETURN 

1600  CONTINUE 

WRITE(6,4100)L(LG1),L(LG2),L(LG3) ,L(LG4) ,I.(Nl),L(N2) 

4100  FORMAT(2X, 3H108.6I3) 

L(CT)-0 

WRITE(6, 4200) PN (L(N1)),PN(L(N2)),  QA2 , QA4 ,DT(PP1 ) ,DT(PP2) 

1, DT(PP3) ,DT(PP4), PQLEG (L(LG2), 11) ,PQLEG(L(LG4) ,11) 
WRITE(6,4300)PQLEG(L(LG1) ,8) ,PQLEG(L(LG2) ,8) , PQLEG (L(LG3),8) 
1 , PQLEG (L(LG4) ,8) , PQLEG (L(LG2) , 6) , PQLEG (L(LG4) ,6) 
t,  PQLEG (L(LG2) ,5) .PQLEG (L(LG4 ) ,  5) 

4200  FORMAT(2X, 4H108A, 10E12.4) 

4300  FORMAT (2X,4H108B,8E12.4) 

RETURN 

1900  WRITE(6 , 1950)  IND,KNEL,INEL 

iy5U  FORMAT (5X.7HCOMP  NO.I3.20H,  HAS  INVALID  CON  NO  ,13, 

1  1 1H,  IN  LEG  NO  ,14) 

C  ***  2000  SECTION 
/uuu  ouNTi«ut 

DT(FF1F)-UT(FF1) 

DUFF*F)»DT(FF/) 

DT(FT3F)-Ui(Ft'J) 

Dl  (FF4F)-DT(FF4) 

DT(FX)-DT(X) 

DT(VEL)-0.0 
DT (FORCE) -0.0 
AV-D(UiX)  ) 

IF(XV.GT.0.U)WRITE(6,2900) 

ZWU  FORMAT  '.2X,  19HVALVE  IS  NOT  AT  0.0) 

DT(Q2)-Q(L(2)) 

DT(Ql)-Q(L(i)) 

DT(Q3)-Q(L(3)) 

DT(Q4)-Q(L(4)) 

RETURN 

»**  JUO'J  SECTION 
JOOO  CONTINUE 
C 

Ll-Ml) 

L2“L ( 2 ) 

L3-L(3) 
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L4-L(4) 

GV]«(D(V0L1) H>T(PX)*D (AREA1 ) ) /DT(KBULK) 

ZV1-1 .U/GVl 

DT (P  F i  f  ) «UT(  PF1  ) -DT (  VF.L ) *D  ( AR EA  1 )  *Z V 1 
GV2«(D(VOL2)-DT(PX)*D(AREA2))/DT(KBULK) 

ZV2-1 -0/CV2 

OT (PP2P) -DT (P  P2 )+DT ( VEL ) *D (AREA  2 ) *Z V2 
GV3=(D ( V0L3)+DT (PX) *D(AREA3) ) /DT (KBIJLK) 

ZV3-1 -0/CV3 

DT(PP3P)-DT(PP3)-DT(VEL)*D(AREA3)*ZV3 

GV4-(JJ(V0L4)-0T(PX)*D(AREA4))/DT(KBULK) 

ZV4-1 .U/GV4 

DT ( FF4F ) -DT ( PP4 )+DT ( VEL ) *D  <  ARE A4 ) *Z V4 

C 

CALL  1NTERP  (T,D(25),D(L(IY)), 10,L(NTAB) , XV, IM2) 

C 

C  CALCULATE  LINK  PLOWS  AND  PRESSURES 

DT(2b)-XV 

it  (avi  i4U,i/o,iao 
C  AV  LESS  THAN  U 

IHU  VM— U  l  SLUT2 1  ) 

VHU-IHSLUT4JJ 

2,Tl«2(Llj+ZV2 

ZT2«Z(L3)+ZV4 

DP1-C(L1)-DT(PP2P) 

DP2-C (L3 )-DT (PP4P ) 

ICALC-1 
GO  TO  210 

OO  UT (Q2 l-SIGN  ( FL0W1 ,  OP  1 ) 

DT  ( 1)4  )  -S  TUN  ( PLOW 2 ,  DP2  ) 

Q(L1 )-DT(Q2) 

Q(L3)-DT(Q4) 

VK1-D(SL0T12) 

VK2-U(SL0T34) 

ZTl«Z(L2l+ZVl 

Zi2-2(L4)+2V3 

0F1-C(L2;-1)T(FF1F) 

DP2-C(L4)-D'r'PP3P) 

I CALC -2 
Gu  TO  210 

l t>0  DT (i)l  )-SiGN  t  FLOW  1 , D P 1 ) 

DT(Q3 J-S1GN ( FLOW 2 , DP2 ) 
l)(L2)-imgi; 

()(L4)-uT(yj; 

Go  1U  220 
C 

C  AV  -  U 

i/o  UTigu-o. 

DT ( 02 1-0. 

DTig3)-0.0 
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6.108.6  (Continued) 


DT(Q4)-0.0 
Q(L2 )*0 . 0 
Q(L1)«0.U 
Q(L3)-0.0 
Q(L4)-0.0 
ICALC-5 
GO  TO  220 

XV  GREATER  THAN  0 
l«0  VK1-D (SLOTH) 

VK2“D (SLOT33) 

ZTi-Z(Li)+ZVl 
ZT2™Z (L3)+ZV3 
UFl«C(Ll)-DT(PPlP) 

DP2«C(L3)-DT(PP3P) 

ICALG-J 
GO  TO  2 iu 

190  L)T  (1)1  )■ SIGN (FLOW 1 ,  DPI ) 

Ul  (l)Jl-bl.GN(PLOW2,DP2) 

0(L1)-DT(Q1) 

Q(L3)-OT(Q3) 

VM-0(SL0T22) 

VK2“D (SLOT44) 

ZT1-Z(L2)+ZV2 
ZT2-Z(L4)+ZV4 
DP1«C(L2)-DT(PP2P) 

DP2-C(L4)-OT(PP4P) 

ICALC-4 
GO  TO  210 

200  0T(Q2 )“SIGN (FLOW1 ,DP1 ) 

DT ( Q4 ) *S IGM ( FLOW2 , DP  2 ) 

Q(L2)-UT(Q2) 
y(L4)-UT(Q4) 

GO  TO  220 
C 

C  CALCULATE  ABSOLUTE  VALUE  OF  FLOWS 
21U  FNl-XV«XV*VKl*VKl 
FN2*FN1**ZT 1 
FN  J«XV*A V"VK2*VK2 
FN<*«FNJ»ZT2 

FLOW1-(SQRT(FN2**2+4.0*FN1«ABS(!>P1))-FN2)/2.0 
FLOW2-(SQRT(FN4**2+4.0*FN3*ABS<DP2))-FN4)/2.0 
GO  TO  (150, 160, 190,200) ,ICALC 

C 

220  CONTINUE 

P(L1)-C(L1)-Q(L1)*Z(L1) 

P(L2)-C(L2)-Q(L2)*Z(L2) 

P(LJ1-C(L3)-Q(L3)*Z(L3) 

P(L4)-C(L4)-q(L4)*Z(L4) 

VAP-PVAP(KTEMP(IND) ) 
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6.108.6  (Continued) 


IF(P(L2) . GT .VAP. AND. DT (NCAV 1 ) .LE. 0.0)  GO  TO  300 
FLOW *0.0 

GO  TO  (230, 230, 240, 240, 250), ICALC 
230  FN2-FN1*ZV1 

DP-VAP-DT (PP1P) 

FLOW- ( SQRT ( FN  2**2+4 . 0*FN 1 *AB  S (D  P ) ) -FN2 ) / 2 . 0 
FLOW-SIGN (FLOW, DP) 

DT(Q1)«FL0W 
GO  TO  250 
240  FN2«FN1*ZV2 

DP-VAP-DT (PP2P) 

FLOW-(SQRT(FN2**2+4.O*FNl*ABS(DP))-FN2)/2.0 
FLOW-SIGN ( FLOW , DP ) 

DT(Q2)-FLOW 

250  Q(L2)-(C(L2)-VAP)/Z(L2) 

P(L2)— VAP 

DT ( NC AV 1 ) -DT ( NCAV 1 ) +FL0W-Q ( L  2 ) 

IF  ( 1)T  (NC AVI ) .  LT .  0  •  0 )  DT  (NCAV  1 )  -0 . 0 
3Uu  iMP(L4)  .GT.VAP.AND.DT(NCAV2)  .LE.O.O)GO  TO  400 
FLOW-O.O 

GO  TO  (330, 330, 340, 340, 350), ICALC 
330  FN4-FN3*ZV3 

DP-VAP-DT (PP3P) 

FLOW- ( SQRT (FN4**2+4 . 0*FN  3*ABS (DP) ) -FN4 ) / 2 . 0 
FLOW-SIGN (FLOW, DP) 

DT(Q3)-FLOW 
GO  TO  350 
340  FN4-FN3*ZV4 

DP-VAP-DT (PP4P) 

FLOW- ( SQRT (FN4 **2+4. 0*FN3*ABS (DP) )-FN4)/2. 0 
FL()W-SIGN<FLOW,DP) 

DT ( Q4 ) -FLOW 

3 5u  Q(L4)-(C(L4)-VAP)/Z(L4) 

P(L4)-VAP 

DT ( NC  AV2 ) -DT ( NC A V2 ) +FLOW-Q (L  4 ) 

IF(DT(NCAV2) .LT.0.0)  DT(NCAV2 )-0.C 
4UU  CONTINUE 

CALCULATE  ACTUATOR  VELOCITY 
G1-CV1/D(ARKA1 ) 

G2-GV2/D(AREA2) 

G3-GV3/D(AREA3) 

G4-GV4/D(AREA4) 

ZN-DT  ( KDAMP  )+D  (  AREA  1 ) /G 1 +D  (  ARF.A2 ) /G2+D  (AREA  3  ) /G  3+D  (AREA4 ) /G4 
DP-DT (LOADS  X ) +DT ( LOADZ ) +DT ( PX ) *DT ( LOADS ) 

DELTP-DT(Q1)/G1+DT(Q3)/G3+DT(PP1)*D(AREA1)+DT(PP3)*D(AREA3) 

1-DT(Q2)/G2-DT(Q4)/G4-DT(PP2)*D(AREA2)-DT(PP4)*D(AREA4) 

VELO-DT(VEL) 

DT  (  VEL  ) -  (DF.LTP-DP+VELO*DT  ( I NERT ) )  /ZN 
DT(PX)-DT(X) 
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6.108.6  (Continued) 


DT(X)-DT(X)+DELT02*(DT(VEL)+VEL0) 

CALL  XLIMIT(DT(X) ,DT(VEL) ,DP,D(MINST) ,D(MAXST) ) 
DT(PX)«DT(X)*2.0-DT(PX) 

IF(DP.NE.O.O)  DT(PX)-DT(X) 

IF(DP.EQ.O.O)  VELO-DT(VEL) 

DT (PP1 )**DT(PP1 )+(DT (Q 1 )-VELO*D (AREAl ) ) /GV1 

DT(PP2)-DT(PP2)  +  (DT(Q2)+VELO*D(ARF.A2) )/GV2 

DT(PP3)-DT(PP3)+(DT(Q3)-VELO*D(AREA3))/GV3 

DT ( PP4 )«DT ( PP4 )+(DT (Q4 )+VELO*D (ARF.A4 )  )/GV4 

RETURN 

END 
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APPENDIX  K 


SYSTEM  ARRANGEMENT  DATA 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 

7.0  SYSTEM  ARRANGEMENT  DATA 

The  system  arrangement  data  is  used  to  describe  the  system  configuration 
to  allow  the  steady  state  flow  initialization  necessary  to  begin  the  transient 
simulation.  This  input  data  consists  of  number  coding  that  describes  the  flow 
paths  in  the  system  and  identifies  locations  where  the  flow  divides  (such 
as  a  tee  or  cross)  or  where  there  is  a  flow  disparity  (such  as  an  unbalanced 
area  actuator) . 

NODE  LOCATIONS 

As  a  general  "rule  of  thumb"  every  component  in  a  system ,  except  the 
following .will  require  at  least  one  node  to  be  placed  at  it. 

•  Two-way  Control  Valves  (TYPE  21) 

•  Check  Valves  (TYPE  31) 

•  Priority  Valves  (TYPE  32) 

•  One-Way  Restrictors  (TYPE  33) 

•  Two-Way  Restrictors  (TYPE  41) 

•  Filters  (TYPES  81,  82  &  83) 

The  frictionless  branch  (TYPE  11)  requires  a  node  to  be  placed  at  it  whenever 
there  is  a  division  of  flow  at  that  location.  The  instances  when  a  node  is  not 
required  at  a  branch  (TYPE  11)  are: 

•  The  branch  has  only  two  connections 

•  The  branch  has  three  or  more  connections  but  only  two  of  them 
will  experience  steady  state  flow  (the  other  connections  serve 
as  origin  points  for  "zero  flow"  legs) 


« 


SPECIAL  CASES 

When  a  leg  is  terminated  by  a  constant  pressure  source,  that  constant  pressure 
must  be  input  along  with  the  leg  connection  information.  Only  nodes  serving  a  single 
leg  can  be  a  constant  pressure  termination. 

When  using  the  constant  pressure  node  capability,  there  must  be  at  least  one 
node  in  the  circuit  at  which  the  pressure  is  not  specified. 

Nodes  should  not  be  placed  in  the  center  of  any  component  having  a  pressure 
loss  because  each  leg  connected  to  the  node  will  include  the  pressure  drop 
of  the  component. 

Certain  components  require  special  node  /leg  configurations.  These  components 

are : 

FOUR-WAY  CONTROL  VALVES  (VALV22) 

VALV22  requires  4  nodes  for  its  steady  state  description.  A  node 
is  placed  at  each  port  of  the  valve  and  is  not  considered  internal  to  the  valve. 

Legs  that  connect  the  valve  to  the  rest  of  the  system  originate  or  terminate 
at  the  port  nodes  of  the  valve,  but  must  not  include  the  valve  as  a  component  of  the 
leg.  The  internal  legs  of  the  valve  connect  the  port  nodes  of  the  valve  so  as  to 
describe  the  flow  paths  within  the  valve.  When  assembling  the  internal  legs  of 
the  valve,  it  is  important  that  each  connection  of  the  valve  be  called  out  as  a 
component  connection  once#and  only  once.  Figure  is  a  schematic  representation 
of  a  typical  HYTRAN  VALV22  usage.  Figure  is  the  steady  state  (leg  &  node)  data 
necessary  to  describe  this  valve  installation. 
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UPSTREAM 
NODE  // 


DOWNSTREAM 
NODE  it 


it  OF  ELEMENTS 
IN  LEG 


FLOW  GUESS  (CIS) 


SAMPLE  LEG/NODE  INPUT  DATA  FOR  FIGURE  EXAMPLE  SUBSYSTEM 

FIGURE 


ACTUATORS 

o  ACT101  requires  one  node  (located  internally) 

o  ACTIO 2  requires  one  node  (located  Internally) 

o  ACT108  requires  two  nodes  (one  in  each  independent  half) 

RESERVOIRS 

o  RSVR61  requires  one  node  which  should  not  be  set  as  a  constant  pressure 
node 

o  RSVR62  requires  two  open  ended  nodes  (not  connected  by  a  leg).  One  node 
is  considered  to  be  in  the  high  pressure  (bootstrap)  section,  the  other 
node  is  considered  to  be  in  the  low  pressure  (reservoir)  section, 
o  RSVR63  requires  two  nodes  (open  ended).  One  on  the  bootstrap/RLS 
circuit  side,  and  one  on  the  reservoir  (low  pressure)  side. 

SSI 


7.1  GENERAL  DATA 


On  this  card  input  the  number  of  nodes,  the  number  of  legs,  the  number 
of  constant  pressure  points,  the  number  of  zero  flow  legs  and  the  number  of 
hydraulic  systems. 

A  zero  flow  leg  is  a  dead  ended  line  with  no  steady  state  flow.  The 
pressure  at  the  end  of  the  leg  is  determined  by  the  steady  state  program. 
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GENERAL  DATA  LARD 


!  COLUMN 

FORMAT 

DATA 

jl-7 

15 

Number  f  Nodes 

|  6-1G 

15 

Number  of  Legs 

1 

11-15 

15 

Number  of  Constant  Pressure  Points 

16-20 

15 

Number  of  Zero  Flow  L«(t« 

21-25 

15 

Number  of  Systems  1 

26-30 

15 

1 

i 

31-35 

15 

! 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 

EXAMPLE  CARD 


!2 

t  i 


14 


I  <4  If*  10  If  14  t»  "0  ?l  Tt  a  24  n 


W  H)  Jl  M  l!  M  W  K)M|  )««;«  42  «  44  ft  ♦*  47  4t  4»  »0  5i  O  l<  tt  M  if  «#  ft  W  tl  t«  0)  C4 


|  2  >4  3  4  7  $  V  I?  II  If  I)  14  1%  10  <7  II  *»  70  <■!  «/  IS  i  t  ,.S  H  ✓  »  7i  ^  »0  II  i l  19  14  !9  >0  ST  14  »J  «G  41  4*  4>  44  44  44  47  44  4*  60  91  V  M  M  J)  M  Jf  «  »  W 


oooooiaooooo  o  o  o|;o  0  0  0| 

-  i  :  «  sic  r  •  *  io 

1 1 1|  tit  t  tg  i 

) 

2  2  2  2|j2  2  2  2  2 
3333  0*3  3333 

44444i44<4| 


L 


I  14  tilfi 

t  t  I  I  tjt  t  t  1  1 

[2  2  2  2  2|2  2  2  2  2 
I 

3  3  3  3  3'3  3  3  3  3 

i 

_  1  4  4  4  4'4  (  4  4  4 

7  J  4  '  ;l  7  !  7  t:jl  17  II  11  lilt  I!  II  n  '3 

5555V5  55'  i5  5  5  0  5[5  5  5  5  5 

'  i 

6  S  G  6  G'C  C  6  0  6jS  0  6  b  6jS  0  0  SO 

1 1  n  i\i  1 1 1  hi  i  n  hi  1 1  n 

•  I  i 

» it  s  i‘.z  i  s  i  f  J  s  i  o  n :  s  i : 

1  I  , 

I  5  3  S  J'3  1  M  SIS  ?  ?  9  lil  S4S  •:! 

i  .  i  t  tjt  7  i  «  «}«  /  j  »t  ’..*t 

Ov  1 


oooolooooo 


l?l  77  7]  71  7s'm  71  71 .1  lOj 

1  1  t  t  l|l  1  1  I  I 

|2  2  ?  2  2i2  2  2  2  2 
• 

3333  3*3  3332 

i 

!4  4  4  4  4*4  4  4  4  * 

bi  ti  ?*  >«  ?sft  .i  /f  /n  o 

■>  5  5  5  5‘0  S  5  5  ! 


0  0  0  0  OjO  0  D  0  0  0  0  0  0  O'O  0  0  0  3 

)<  17  I)  X  »|X  77  »  Jl  10  <1 17  I)  M  I'i'lt  <7  II  It 1 :{ 

1 1 1 1 1'l  lit  1 1 1 1 1 1ll  tl  1 1 


3  0  9  0  OjO  0  0  0  0(0  0  0  0  0|0  0  0  0  0|0  0  0  0  OjO  0  0  0  1 

III  S7  il  M  SM»  >1  K  it  lllil  17  II  U  IVU  il  II II  701  71  77  7)  74  75  71  77  7|  t  .0 


2  2  2  2  2,2  2  2  2  2|2  2  2  2  2’2  2  2  2  2 
3  3  3  3  3|3  3  3  3  3|3  3  3  3  3*3  3  3  3  3 


4  4  t  4  4 '4  f  M  4 

71  '/  77  il  i'll  II  ‘I  71 15 

5  S  5  slo  15  5  5 


t  1  I  I  ft  1  I  I  I 

i 

2  2  2  2  2)2  2  2  2  2 


3333  3(3  3333 
>4  4  t.  4  4)4  4  4  4  4-4  i  4  4  4*4  4  4  4  4 

:  V  4)44  I'M  4 1  4«n:(jj‘,«  '•  ?|  U  SsJh  *M#  Wtipi  «  #3  *1  (•  M  ftfj 


|o  6  6  C  6|s  6  G  6  G  $  G  6  6  6‘6  $  6  6  SIS  S  6  6  61S  6  fi  fi  6!G  C  0  6  6|S  fi  S  6  ( 

1  i 

1 1 1 1  ill  1 1 1  i\n  1 1  i‘i  1 1 1 1 


iiiimiiil!tii!ttiii 


9  9  9  0  Si9  9  9  9  ?|9  3  9  5  l  ?  5  5  1 5 


I  I  I  I|1  I  I  I  l|l  t  I  I  tjt  I  I  1  I 

2  2  2  2  2)2  2  2  2  2|2  2  2  2  2'2  2  2  2  2 

I 

3  3  3  3  3]3  3  3  3  3|3  3  1  3  3,3  3  3  3  3 

4  4  4  4  ill  4  4  4  <14  4  4  4  4i4  4  4  4  : 


5  5  5  5  5,5  5  5  5  I 


15  5  5  5  5  5  5  5  5  5 


1 1  1  1  l‘l  1 1  1  1.1  1  11  VI 11  1  1 
'  I  i 

i  m  3[m  i  n|s  1 1 1  >!i  1 1 1 1 


71  1/  7)  74  Ttl'l  il  It  ’I  *0 


IS  5  5  5  5i5  5  5  5  S  5  5  5  5  5|5  5  5  5  5 

i  i 

8  6  6  6  E'6  66666066  G'6  6  C  0  b 

i  i 

’  1  1  1 7jf  7  1  1 1  1  11  1  l\l  1  1  I  1 

I  IIS  ill  Ml  M  2  3  t  S  ’  S  !  :  « 

*  I 


,  _  . . Jlf  9  9  9  9i9  I  9  9  •  §  I  9  9  $■$  9  3  5  9, . .  . 

?o.i  ?ejo  /  4J  a  J.,t:  ti  a  r.  si  *:•  <♦  »v«  «-  «  « •-4SS  *4  M!*  smi  ,.sw>j*ir  *>*4  tv* «?«M  *j 

MAC  WCV  H  »CO  AH 


9  9  :  9  9i9  S  9  3  $|9  9  9  9  Si9  5  9  9  9 

7i  7,  1 7,1  ill. 
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7.2  LEG  INPUT  DATA 


Two  or  more  cards  are  required  to  input  the  data  for  each  leg.  The  first 
card  contains  the  leg  number,  upstream  node  number,  downstream  node  number, 
number  of  elements  in  the  leg,  initial  flow  guess,  constant  pressure  at 
upstream  node  if  applicable  and  constant  pressure  at  downstream  node,  if 
applicable. 

The  second  card  or  cards  contains  the  leg  connection  details.  Starting 
with  the  component  or  line  at  the  upstream  node  and  progressing  along  the  flow 
path  to  the  downstream  node,  the  element  number  and  type  are  input.  Because 
of  the  mixture  of  lines  and  components,  the  need  to  differentiate  between 
the  element  numbering  system  is  as  follows: 

First  Pair  of  Data 

First  value  >0  Component  number 
-0  Element  is  a  line 

Second  value  -  *Component  connection  number  or  line  number 

*Use  upstream  connection  if  the  component  has  upstream  and  downstream  connections 
in  the  same  leg. 

This  is  repeated  N  times  for  the  N  elements  in  the  leg. 

Zero  Flow  Leg  Data  Cards 

The  zero  flow  leg  data  cards  (if  any)  are  entered  after  the  leg  input 
data  cards.  Two  cards  are  required  for  each  zero  flow  leg.  The  first  card 
contains  the  zero  flow  leg  number,  the  component  number  for  the  pressure 
reference  on  the  zero  flow  leg  and  the  number  of  elements  in  the  zero  flow 
leg.  The  upstream  element  must  be  a  branch  component  and  the  zero  flow  leg 
should  not  Include  the  branch  as  the  first  element. 
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The  second  data  card  contains  the  zero  flow  leg  connection  details 
starting  with  the  line  connected  to  the  upstream  branch.  The  data  follows 
the  sequence  specified  on  Card  Number  2. 

The  zero  flow  leg  data  cards  are  repeated  for  the  number  of  zero  flow 
legs  specified  on  the  general  data  card. 
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CARD  NUMBER  1 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

m 

15 

Leg  Number 

— 

6-10 

15 

Upstream  Node  Number  <c°mP™ent  *  pressure 

reference  on  zero  flow  lej 

* 

;) 

11-15 

15 

Downstream  Node  Number  (0  18  zero  slow  leg) 

16-20 

15 

Number  of  Elements  in  Leg 

— 

21-30 

E10.0 

Initial  Flow  Guess 

cis 

31-40 

E10.0 

Constant  Pressure  at  Upstream  Node 

psi 

41-50 

E10.0 

Constant  Pressure  at  Downstream  Node 

psi 

51-60 

E10.0 

. . 

61-70 

E10.0 

71-80 

E10.0 

- - - 

EXAMPLE  CARD  *  The  upstream  component  should  be  a  branch 


rr 


*  T  i  4  5  t 


**  For  a  zero  flow  leg  do  not  Include  the  branch  as  the  first  element. 
£  7  22 

I  IS  >4  r.  IC  IS  14  14  111  /l^  nni  Kir  a  is  SOU  SMI  14  S  SC  Sf  S*  W  4t  42  43  44  «*t  41  4f  «■  49  SO  Gl  "4  US  44  SS  GG  S,  5#  s.  GO  4i  C?  6S  6-» 
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CARD  NUMBER  2 


COLUMN  FORMAT 


11-15 


16-20 


21-25 


26-30 


31-35 


36-40 


41-45 


46-50 


51-55 


56-60 


61-65 


66-70 


71-75 


76-80 


Component  Number  or  Zero  if  Line 


Connection  or  Line  Number 


Repeat  in  Pairs  for 


the  Number  of  Elements 


in  a  Leg  -  Use  as  Man' 


Cards  as  Necessar 
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APPENDIX  L 

OUTPUT  REQUIREMENTS  DATA 
HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 


8.0  OUTPUT  REQUIREMENTS  DATA 

The  program  will  output  in  a  print  plot  form,  any  calculated  system 
variable  versus  time.  The  time  interval  between  plotted  points  is  input 
on  the  first  general  control  card. 

When  using  the  print  plot  routine,  it  should  be  noted  that  101  points 
are  the  maximum  that  can  be  plotted  on  one  page.  When  more  than  101  points 
are  requested,  the  plot  is  continued  on  an  additional  page(s). 

On  the  first  output  data  card  the  user  specifies  the  number  of  line 
plot  data  cards,  the  number  cf  plotted  component  variables  and  specialized 
outputs  which  are  listed  on  the  plot  data  card. 

The  next  set  of  cards  are  the  line  variables  (paragraph  8.1). 

The  line  variables  which  can  be  selected  are  the  pressures  and  flows 
calculated  for  each  line  point. 

The  component  variables  follow  the  line  cards.  The  component  variables 
which  can  be  selected  are  listed  in  paragraph  8.2. 

The  Y  axis  scale  can  be  selected  for  any  print  plot.  The  scale 
data  card  is  explained  in  paragraph  8.3.  This  card  follows  the  component 


variable  cards. 


* 


PLOT  DATA  CARD 


COLUMN 

FORMAT 

DATA 

1-5 

15 

Number  of  Line  Plot  Data  Cards 

6-10 

15 

Number  of  Component  Variables  to  be  Plotted 

11-15 

15 

+1  -  Provides  graphs  that  reflect  all  maximum  values  calculated 

-1  -  Provides  graphs  that  reflect  all  minimum  values  calculated 

• 

0  or  -  Provides  graphs  that  reflect  values  calculated  at 

Default  plot  intervals,  only 

16-20 

15 

+1  -  Provides  a  list  of  all  calculated  values  in  addition  to 

plots 

0  or  -  Does  not  provide  a  list  of  calculated  values 

Default 

21-30 

Blank 

31-35 

15 

+1  -  No  graphs  0  -  Normal  graphs 

36-40 

15 

+1  -  Prints  absolute  value  of  flow  0  -  Normal  graphs 

41-45 

15 

Number  of  scales 
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8 . 1  OUTPUT  OF  LINE  VARIABLES 


To  output  pressures  and  flows  at  any  of  the  calculated  points  along  a 
line,  the  line  If,  number  of  plots  along  the  line,  and  distances  along  that 
line  from  the  assumed  upstream  end  have  to  be  input.  Unfortunately  since  the 
speed  of  sound  varies  with  temperature,  the  line  is  not  always  divided  into 
the  same  number  of  segments. 

Hence,  when  a  distance  along  a  line  is  selected,  it  is  unlikely  to  be  a 
junction  point  between  line  segments.  The  .program  picks  the  nearest  junction 
point  and  outputs  on  the  plot  the  distance  of  this  junction  from  the  upstream 
end  of  the  line.  The  distance  is  input  normally  for  a  pressure  plot  and  as  a 
negative  distance  for  a  flow  plot.  MOTE:  The  number  of  cards  used  must  equal 
the  number  of  "line  plot  data  cards." 


8 . 2  OUTPUT  OF  COMPONENT  VARIABLES 


The  component  variables  to  be  output  are  selected  from  Tables 
8.2-1  through  8.2-102. 

The  total  number  of  component  variables  to  be  plotted  should  equal 
the  number  of  pairs  of  data  on  the  following  cards. 


COLUMN 


FORMAT 


DATA 


1-5 

15 

Component  Number  Assigned 

6-10 

15 

Variable  Number  to  be  Plotted 

11-15 

15 

?  (This  is  repeated  using  additional  cards, 

16-20 

15 

y  if  necessary,  until  all  component  variables 

21-25 

15 

to  be  plotted  have  been  listed.) 

26-30 

15 

31-35 

15 

36-40 

15 

41-45 

15 

46-50 

15 

51-55 

15 

56-60 

15 

61-65 

15 

66-70 

15 

71-75 

15 

76-80 

15 
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TABLE  8.2-11 
BRAN11 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

1 

— 

Cavatatlon  Volume  when 
Multiplied  by  Calculation 

Time  Interval 

in3 

564 


« 


TABLE  8.2-22 
VALV22 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

8 

— 

Cavatation  Volume  - 

When  Multiplied  by  Calculation 

Time  Interval 

in3 

btb 


TABLE  8.2-31 


CVAL31 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

4 

VNEW 

Poppet  Velocity 

in/sec 

5 

ANEW 

Poppet  Acceleration 

in/sec^ 

6 

XNEW 

Poppet  Position 

in. 

5*6 


4 


TABLE  8.2-51 
PUMP51 

PROGRAMMED  VARIABLE  SELECTION 


imber 

Name 

Description 

Units 

7 

PACTU 

Pressure  in  Actuator 

psi 

14 

VELACT 

Compensator  Actuator  Velocity 

in/sec 

15 

DISACT 

Compensator  Actuator  Position 

in 

16 

DISVLV 

Compensator  Valve  Spool  Displacement 

in 

4 

QACTU 

Flow  from  Outlet  to  the  Actuator 

cis 

26 

QOUTLT 

Net  Pumping  Flow  into  Outlet  Volume 

cis 

5 

QACTC 

Flow  from  Actuator  to  the  Case 

cis 

1 

PRPM 

Pump  Speed 

rpm 

2 

PPOWER 

Pump  Horsepower 

hp 

*67 


TABLE  8.2-54 


PUMP54 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Units 

7 

PACTU 

Pressure  in  Actuator 

psi 

14 

VELACT 

Compensator  Actuator  Velocity 

in/se 

15 

DISACT 

Compensator  Actuator  Position 

in 

16 

DISVLV 

Compensator  Valve  Spool  Displacement 

in 

4 

QACTU 

Flow  from  Outlet  to  the  Actuator 

cis 

25 

QOUTLT 

Net  Pumping  Flow  into  Outlet  Volume 

cis 

5 

QACTC 

Flow  from  Actuator  to  the  Case 

cis 

1 

PRPM 

Pump  Speed 

rpm 

2 

TORQUE 

Pump  Torque 

in-lb 

568 


w 


TABLE  8.2-62 


RSVR62 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

9 

P2 

Reservoir  Pressure 

psi 

1 

QNET 

Net  Reservoir  Flow 

3 

in  /sec 

10 

DUN 

Reservoir  Volume 

*  3 

In 

* 


TABLE  8.2-71 
ACUM71 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

4 

PO 

Oil  Pressure 

psi 

6 

PG 

Gas  Pressure 

psi 

8 

IVOLO 

Oil  Volume 

in3 

570 


Number 

3 

4 


TABLE  8.2-81 
FILT81 

PROGRAMMED  VARIABLE  SELECTION 


Name 

Description 

PRESSB 

Pressure 

Outside  of  Element 

PRESSE 

Pressure 

Inside  of  Element 

/ 

; 

t 


Dimension 

psi 

psi 


571 


« 


TABLE  8.2  -  99 
CAD  99 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

3 

- 

Left  Outlet  Elevon  Position 

deg 

4 

- 

Left  Inbd  Elevon  Position 

deg 

5 

- 

Right  Outbd  Elevon  Position 

deg 

6 

- 

Left  Inbd  Elevon  Position 

deg 

7 

- 

Rudder  Command  (rate  limited) 

deg 

8 

- 

Speedbrake  Command  (rate  limited) 

deg 

13 

- 

Angle  of  attack 

deg 

14 

- 

Sideslip  angle 

deg 

S72 


TABLE  8.2-101 
ACT101 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

5 

PP1 

No.  1  Cylinder  Pressure 

psl 

6 

PP2 

No.  2  Cylinder  Pressure 

psi 

1 

X 

Piston  Position 

in 

2 

VEL 

Piston  Velocity 

in/sec 

18 

LOADEX 

External  Load 

lb 

1  % 


TABLE  8.2-102 
ACT102 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

1 

X 

Piston  Position 

in. 

2 

VEL 

Piston  Velocity 

in. /sec 

5 

LOADEX 

External  Load 

lb. 

6 

PI 

No.  1  Cylinder  Pressure 

psi 

7 

P2 

No.  2  Cylinder  Pressure 

psi 

« 


Table  8.2  -  106 
ACT106 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

1 

VC 

Body  Flap  Command 

— 

2 

— 

Body  Flap  Position 

deg 

9 

VRT 

Body  Flap  Motor  Velocity 

rpm 

J75 


Table  8.2  -  107 


« 


ACT107 

PROGRAMMED  VARIABLE  SELECTION 


Number 

Name 

Description 

Dimension 

1 

VC 

Rudder  command 

volts 

2 

VC+1 

Speedbrake  command 

volts 

8 

RPOSL 

Left  panel  position 

deg 

9 

RPOSR 

Right  panel  position 

deg 

12 

VRT 

Rudder  motor  velocity 

rpm 

13 

VSBT 

Speedbrake  motor  velocity 

rpm 

4 


8.3  Selecting  Output  Plot  Scales 

The  user  has  the  option  of  selecting  the  Y  axis  scale  for  any  output 
plot.  The  scale  will  remain  the  same  even  if  the  plot  is  continued 
on  an  additional  page(s).  The  graph  number  must  be  specified  followed 
by  the  minimum  and  maximum  Y  values  as  listed  on  the  scale  data  card.  The 
graph  numbering  is  started  in  sequence  from  the  first  plot  entry  on  the 
first  line  data  card  or  the  first  component  variable  if  there  are  no  line 
data  plots. 

Note:  When  using  this  option,  the  maximum  Y  value  cannot  be  0.0.  If 
Y  max  Is  set  to  zero  the  output  routine  will  automatically  generate  the  scale. 
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SCALE  DATA  CARD 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

B 

15 

Graph  number 

6-15 

F10.0 

Minimum  Y  Value 

16-25 

F10.0 

Maximum  Y  Value 

Repeat  sequence  using  additional  cards 

(if  necessary)  until  the  number  of  graphs 

in  columns  41-45  on  plot  data  card  Is 

reached . 

-  .... 

EXAMPLE  CARD 


1  0.  5000. 

I  2  14  5  6  '  ■  1  10  II  g  IS  U  II  1C  IT  16  19  ?.J  : 


E  0.  £t'C'. 

71  74  75  «  21  S3  75  SO  -I  U  l£«  H  K  M  H  It  40  41  4^1  44  40  40  4 T  44  40  SO  U  U  41  64  61  64  61  SI  14  Cl  Cl  Cl  01  64 


4  6  6  1  I  I  10  II  I!  II  14  1  16  11  13  16  70  71  77  71  74  76  76  7  1  21  : 

I 


SO  II  17  IS  *4  11  1C  11  16  16  40  41  42  41  44  41  4C  41  44  46  SO  61  67  61  64  61  56  51  64  56  60 


0  0  0  0  0,0  0  0  0  0 

1  :  )  4  |t  i  i  i  iij 

1 1 1  ii<i  mi 

i 

2  2  2  2  2*2  2  2  2  2 

i 

3333  5)3  3333 

4  4  4  4  4|4  4  4  '  4 


[0  0  0|0'0  0  0  0  0 

II  V  II  U  I' ‘IS  II  It  ’S  }Q\ 

1 1 1 1  ljl  111  I 
2  2  2  2  2^  ?  2  2  2 

3  3  3  3g>3  3  3  3  3 

i 

4  4  4  4  4'4  I  4  4  4 


olllrooooo 

;i  27  7 . 24  ri'je  ;i  ;»71  >n 

I  1  1  I  l|<  I  1  1  t 


3  3  3  3 1*3  3  3  3  3 

I 

4  4  4  >  4*4  4  4  4  4 


oqooo;oco|oooodc;ooIIo 


0  0  0  0  0,0  0  0  0  0 

Jji  i?  -)  M  IjISS  si  si  s*  If.| 

n  n  l'n  1 1  ill  m  nil  i  n  ill  1 1 !  i*i  1 1  ii 

i  I  i  I  * 


II  U  11  14  )S|76  ; 


2  2  2  2  2i2  2  2  2|  2  2  2  2  2|2  2  2  2  2 


3  3  3  3  3|3  3  3  3  ||3  3  3  3  3)3  3  3  3  | 


4  4  4  4  4*4  4  4  4  4 


i  ?  i  «  .{t  i  •  3  ir  |i*  w  i>  iil  >  ii  »i  » ?i,!^i  ?.*?)  ;*  ii  y*  i\bi  n  u  <8  <i  o;  n« <s|« «i  ■»  k m  r«**t 

5  5  5  5  5*5  b  5  3  8.5  5  5  5  5)i  5  5  5  5|  5  S  5  5)5  5  5  5  5!5  !■  S  5  5|5  5  5  5  5  5  5  5  5  5,5  5  5  5  SIS  5  5  5  t'S 

!  I  i  "  ,  •  i  I  i 

8  8  6  8  5  5  8  6  6  C5  8  6  8  8,8  6  8  6  6  5  n  6  8  6,6  6  6  $  6  8  C  5  8  5*6  8  i  6  6  $  8  6  £  S>6  8  C  8  5>  8  5  t  6:8 


I 


I 


1111111111 


l|V  V  V  V  »  V  « 

I  I  |  | 

7  7  7  7  7,7  1  1  1  7:7  /  7  7  7,77  7  7  7|7  7  7  7  7,7  7  )  1  1\1  1  1  1 1\1 1  1  1  1\1 1  1  1  1  7  1 1  1  T 

1 1 3  u ;  s ; :  :  u  j«»  ciijiu  ig)i  i  mjm  01)99  i  till  o  t  t)i  1 1  tgli  i  e  t  t)i  1 1 i 1 

'ill  i  ' 

9  9  9  9  9,9  0  9  9  :,S  9  9  «  9*9  9  S  9  S 

41  <7  4  44  4  t*  4  4t  »  4*;  >«  ■**  •  SI  SI  SI  Mji 


0  0  *1  0  S'"  *  3  0  9  9  8  5  9  0,1  *,  ^  9  9  9  9  9,9  9  9  9  ®;9  9  9  9  9.9  9  9  9  * 

7  i  4  ,  I"  ■:  i  i  in*  ’  ■  .  :i .  i ,  ■  •  .>  u  i,  it  iiatl 


i|  42  41 44  41,41  47  41  45  1C 


2  2  2  2  2!2  S  2  2  2  2  2  2  2  2)2  2  2  2  2 


4  4  4  4  4,4  4  4  4  4 


oooooloonoo 


i* 

3  3  3  3  3J  3  3  3  3 

I 

4  4  4  4  4|4  4  4  4  4|l  4  4  4  4j4  4  4  4  4 

ti.’SS  >5W|4I  WSJM 


9  1  1  1  i;i  1  1  1  1 
22222)22222 

1 

3  3  3  3  3*3  3  3  3  313  3  3  3  313  3  3  3  3 


.1, 


5  5  5  5  5  5  5  5  5.5  5  5  5  5  5  5  3  5  5)5  5  5  3  5 


1 


C  6:8  6  6  6  6  6  $  6  6  8*8  6  5  8  6 


0  0  0  0  0)0  0  0  0  0 

1  1  II  ill  I  I  II 

1 

2  2  2  2  2*2  2  2  2  2 


I  4  4  4  4,4  4  4  4  4 

lima  llS  T,  ?J  71 16 


5688  £'8  8885 


I  7  7  I  7)7  I  7  I  I  I  7  7  I  7,1 1  1  ?  1 
3  5  I  I  l)t  3  t  i  «  3  !  3  8  5)3  £  8  6  £ 
5999  9.9  59999919  «i3?99T< 

S'  1/  SJ  v4  -  i'SS  «T  II II  L9 


mac  jof**  iftr-.  irr  roi 


578 


I 


« 


APPENDIX  M 
OUTPUT  SUBROUTINES 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL  II) 


7.0  OUTPUT  SUBROUTINES 

The  output  subroutines  comprising,  STORE,  GRAPH,  and  SCALED  produce 
print  plots  of  the  calculated  data. 

Current  options  allow  maximum  or  minimum  calculated  values  to  be 
substituted  for  plot  values  in  event  these  max  or  min  values  occurred  between 
plot  intervals.  This  assures  that  the  max  or  min  values  calculated  are 
reflected  in  the  output  plots.  Other  options  list  all  calculated  values 
for  each  plot  variable,  suppress  printing  of  the  plots,  print  absolute  values 
of  flow,  and  allow  the  user  to  specify  the  Y  axis  scales  for  any  or  all 
printed  plots. 


S7» 


7.1  SUBROUTINE  STORE 


Subroutine  STORE,  which  is  called  by  HYTR,  reads  output  requirements 
and  stores  data  required  for  output  plots. 

7.1.1  Math  Model 
Not  applicable. 

7.1.2  Assumptions 
Not  applicable. 

7.1.3  Computation  Methods 
Section  1000 

Section  1000  reads  in  all  the  plot  information  for  line  and  component 
plots  and  prints  an  index  of  the  line  and  component  nunbern  ocloctc^ 
for  plotting. 

Section  2000 

This  section  first  performs  a  test  to  determine  if  the  current  time 
step  is  also  a  plot  time,  if  so  line  or  component  data  is  stored.  If  it  is 
not  time  to  store  but  the  MAX/MIN  option  has  been  exercised,  teBts  are  made 
to  determine  if  the  current  calculated  value  is  less  than  or  greater  than 
(depending  on  which  option  was  exercised)  the  previous  value  stored,  if  so 
the  stored  value  is  replaced  by  the  current  calculated  value.  If  the  LIST 
option  has  been  exercised  every  calculated  plot  variable  is  printed.  Once  all 
or  a  max  of  101  points  have  been  stored,  GRAPH  is  called  to  plot  the  points. 

A  test  is  then  performed  to  determine  if  more  than  101  points  are  to  be 
plotted,  if  so  the  additional  points  (up  to  101)  are  calculated  and  stored  as 
before.  GRAPH  is  again  called  to  plot  these  points.  This  procedure  is 
repeated  until  all  points  have  been  plotted. 


7.1.4  App roximations 
Not  applicatle. 


7.1.5  Limitations 
Not  applicable. 

7.1.6  Variable  Name 
Variable 

I 

INDEX 

IPLT 

IPTS 

J 

LIST 

LPT 

M 

MXTREM 

N 

NABSQ 

NAS 

N I STEP 
NLPLTC 
NOG RAF 

NOMSG 

NOSTOP 

NPT 


Description 


Counter 

Line  Number  Associated  with  Pressure  and/or 
Flow  Plots 

Number  of  Plots 
Required  along  Line  INDEX 

Dummy  Variable 

Counter 

Input  Integer  Value  0  (No  List)  of  1  (List 
of  all  Points) 

Distance  in  DELX's,  of  Required  Plots  from 
Upstream  End  of  Line 

Counter 

Dummy  Variable 
Counter 

Input  Integer  Value,  0  ■  Normal  Graphs 
1  »  Prints  Absolute  Value  of  Flow  for  all  line 
Flow  Plots 

Number  of  Scales  Specified  by  User 
Counter 

Number  of  Line  Plot  Points 

Input  Integer  Value  0  -  Prints  Graphs, 

1  -  Does  Not  Print  Graphs 

Not  Used 

Not  Used 

Dummy  Variable 


7.1.6  (Continued) 
Variable 
NXTREM 

N1 

Y 

YY(  ) 

YSCAL(  ) 


Description 

Input  Integer  Value  0  (Normal  Plot) , 
+1  (Plot  with  Max  Values)  or  -1  (Plot 
with  Min  Values 

Counter 

Dummy  Variable 

Array  Used  to  Store  Line  Positions  of 
Required  Plots 

Array  to  Store  User  Specified  Scales 


Units 


582 


SUBROUTINE  STORE 
DOUBLE  PRECISION  DD 

COMMON  NTELPL , NTOLPL , I PT , I PO INT , N  PTS , I NEL , KNEL , NTOPL , NLPLT (61,3), 

1  VSTORE(l) 

COMMON/SUB/PARM( 150, 9) ,PM( 1500) ,qM( 1500) ,P(300) ,Q(300) ,C(300) 

1 , Z( 300) ,RHO( 20) , S2ORHO(20) , VI SC (20) , BULK (20) ,TQ1P(20) ,PVAP(20) 

2,  ATPRES,T,DELT,TFINAL, PLTDEL.FI, TITLE(20), LEON, ICON 
3,ICTEMP(99)  ,LSTART(  i50)  ,NLPT(  150)  ,LTYPE(99)  ,NC(99)  ,IN.Y,INZ 

4 , 1 NV , I STEP , NLINE , N  EL , IND , I ENTR , MNLINE , MN  EL , MNLEG , MNNODE , MNPLOT 
5.MNLPTS.MDS , YSCAL (61 , 2) 

DIMENSION  YY( 10) ,DD( 1400) , ITITLE(40) , IN(40) , IY(40) ,IIC(40) ,IC(40) , 
1IITITLE(40) , ICHAR(8) 

COMMON/COMPD/D(4500) ,L( 1500) ,LE(99,  4) 

EQUIVALENCE (DD( 1 ) ,D( 1 ) ) 

DATA  ICHAR/4HLINE ,  411DIST,  4HC0MP ,  4HVAR  .2HIN.2H  P,2H  Q,2H  / 
IF(IENTR)  1000,  1000,2000 
1000  CONTINUE 
IPT-0 
NISTEP-0 
IPTS-NPTS 

IF(NPTS.GT. 101)  NPTS-101 
NTOLPL-O 

READ(5, 270)  NLPLTC ,KTELPL,NXTREM, LIST, NOSTOP, NOMSG,NOGRAF,NABSQ 
+  ,  NAS 

IF ( NLPLTC. EQ.O)  GO  TO  142 
DO  140  1-1, NLPLTC 

READ(5, 320)  INDEX, IPLT, (YY(M) ,M-1 ,IPLT) 

DO  130  M-i.IFLT 
J-l 

IF(YY(M) . LT.0.0)  J—l 
LPT«(YY(M) *J/PARM{ INDEX, 5)  +0*5) 

IF(LPT.GE.NLPT(INDEX))  LPT  -NLPT(INDEX)-1 

NTOLPL-NTOLPL+1 

NLPLT (NTOLPL, 2)  -  INDEX  / 

NLPLT (NTOLPL, 3)  -  LPT 
NLPLT  (NTOLPL,  1)  -  <LSTART(INDEX)+LFT)*J 
130  CONTINUE 

UO  CONTINUE  ! 

142  CONTINUE  / 

NTOPL-NTOLPL+NTELPL 
IF(NTOLPL.GT. MNPLOT)  NTOLPL-MNPLOT 

IF (NTELPL. EQ.O)  GO  TO  144 

READ (5, 270)  ( (NLPLT (I+NTOLPL, 2) , NLPLT (I+NTOLPL, 3) ) , 1-1 .NTELPL) 

144  CONTINUE 

IF (NTOLPL+NTELPL . GT . MNPLOT)  NT EL PL -MNPLOT -NTOLPL 
IF  (NTOLPL^TSLPL . NE.  NTOPL )  WRITE (6 , 520) 

NTOPL-NTOLPL+NTELPL 

IF (NTELPL. EQ.O)  GO  TO  1250 

LPT-NTOLPL+1 


583 


DO  1200  I-LPT.NTOPL 
NPT-NLPLT(I,2) 

N  -NLPLT(I,3) 

IF(N)  1150,1180,1160 
1150  Nl— LE(NPT,3)+N+1 
GO  TO  1170 

1160  Ni-LE(NPT,2)+N-1 
1170  NLPLT(I,1)-N1 
GO  TO  1200 
1180  NLPLT ( I , 1 )-l 
1200  CONTINUE 

1250  IF (NAS  «GT«  0)READ(5, 271 ) (( J , YSCAL( J, 1 ) , YSCAL( J, 2) ) , 1-1 , NAS) 
271  FORMAT(3(I5, 2F10.0) ) 

IF(NTELPL.EQ. 0)G0  TO  1251 
C 

WRITE(6, 1601) 

WRITE(6, 1603) 

IF(NXTREM)  5,12,10 
5  WRITE(6, 1606) 

GO  TO  1220 
10  MRITE(6, 1607) 

GO  TO  1220 
12  WRITE(6, 1608) 

GO  TO  1220 
1220  WRITE( 6 , 1603) 

1251  JJ-0 

II- NTOPL 

DO  1300  1-1,11 
J-I 

JJ-JJ+1 

15  Nl-NLFLT(I.l) 

NPT-NLPLT(I, 2) 

N«NLPLT(I , 3) 

IF ( I . GT . NTOLPL )  GO  TO  2500 
ITITLE(JJ)-1CHAR(1) 

IN( JJ)-NPT 

IY( JJ)-N*PARM(NPT, 5) 

IITITLE( JJ)-ICHAR(2) 

NI-0 

IF(Nl.LT.O)  NI-1 
IC(JJ)-ICHAR(6+NI) 

1IC( JJ)-ICHAR(5) 

GO  TO  1700 

2500  ITITLE( JJ)-1CHAR(3) 

IITITLE(JJ)-ICHAR(4) 

IN(JJ)-NPT 

IY(JJ)-N 

IC(JJ)-ICHAR(8) 

IIC( JJ)-ICHAR (8) 

1700  IF(JJ.LT. IO.AND.I.LT.NTOPL)  GO  TO  1300 

III- I-JJ+1 


WRITE(6, 1500)  (<JJJ),JJJ-III,J) 

IF(I.GT.NTOLPL)  GO  TO  75 

WRITE (6, 1600)  ( (ITITLE( JJJ) , IN( JJJ) ,IC( JJJ) ),JJJ-1,JJ) 

WR ITE ( 6 , 1 6  00 )  ( (I ITITLE( JJJ) , IY( JJJ) , IIC ( JJJ) ) , JJJ-1 , JJ) 
GO  TO  16 

75  WRITE(6, 1604)  ( (ITITLE( JJJ) , IN( JJJ) ,IC( JJJ) ) , JJJ-1 , JJ) 
WRITE(6, 1604)  (( IITITLE( JJJ) ,IY( JJJ) , IIC( JJJ) ) , JJJ-1 , JJ) 
16  WRITE(6, 1605) 

JJ-0 

1300  CONTINUE 

WRITE(6, 1602) 

WRITE(6, 1603) 

2000  CONTINUE 
C 

IF ( ISTEP. EQ.NISTEP)  GO  TO  2010 
IF(NXTREM.EQ.O. AND. LIST. EQ.O)  RETURN 
MXTREM-NXTREM 
GO  TO  2020 

2005  NISTEP-NISTEP-IPOINT 
2010  MXTREM-0 
IPT-IPT+1 

NISTEP**NISTEP+I  POINT 
VSTORE ( I PT ) *T 
2020  NPT-IPT 
Nl-0 

DO  2200  I-l.NTOPL 

NPT-NPT+NPTS 

N-NLPLT(I.l) 

IF ( I . GT . NTOLPL )  GO  TO  2050 
IF (N )  2030,2150,2040 
2030  Y-QM(-N) 

GO  TO  2080 
2040  Y-PM(N) 

GO  TO  2080 

2050  IF (N)  2060,2150,2070 
2060  Y-DD(-N) 

GO  TO  2080 
2070  Y-D(N) 

2080  IF(MXTREM) 2090, 2085, 2100 
2085  IF(ISTEP+IPOINT. EQ.NISTEP)  GO  TO  2110 
GO  TO  2120 

2090  IF(VSTORE(NPT).GT.Y)  GO  TO  2110 
GO  TO  2120 

2100  IF(VSTORE(NPT).GE.Y)  GO  TO  2120 
2110  VSTORE (NPT)-Y 
2120  IF(LIST.EQ.O)  GO  TO  2200 
IF(I.EQ.l)  WRXTE(6, 2211)  T 
Nl-Nl+1 
YY(N1)-Y 

IF(N1.EQ. 10.0R. I. EQ.NTOPL)GO  TO  2130 
GO  TO  2200 


21 30  WRITE(6, 2210) (YY( JJ) , JJ-1 ,N1 ) 

Nl-0 

GO  TO  2200 
2150  WRIT£(6, 2220)  1 
Y-T 

GO  TO  2080 
2200  CONTINUE 

C  IF(N1*LIST.NE. Q)WRITE(6, 2210)  (YY(I) ,1-1 ,N1) 

IF(IPT.NE.NPTS)  RETURN 
INV-NABSQ 

IF ( NOGRAF . EQ . 0 ) CALL  GRAPH 
IF(IPTS-NPTS)  2300,2350,2310 
2300  NPTS-IPTS 
IPT-0 

GO  TO  2005 
2310  NPTS-101 

IPTS-IPTS-100 

IPT-0 

GO  TO  2005 
2350  CONTINUE 
RETURN 

270  FORMAT  (1615) 

320  FORMAT  (2I5.7F10.0) 

520  FORMAT (5X, 4 2HTOO  MANY  PLOTS  REQUESTED  MAX  NUMBER  IS  60  ) 

2210  FORMAT(5X, 10E12. 5) 

2211  FORMAT( 5X, 25HDATA  CALCULATED  AT  TIME  -,F8.4) 

2220  FORMAT (5X.45HVALUE  OF  N  IN  2000  SECTION  OF  COMP  IS  ZERO  I-  ,15) 
1500  FORMAT(5X, 10(6HGRAPH  ,I4,2H  )) 

1600  FORMAT (5X, 10(A4, 14 ,A2, 2H  )) 

1601  FORMAT( 1H1 , 42X, 35HVAR TABLES  SELECTED  FOR  OUTPUT  PLOTS) 

1602  FORMAT ( 1H1 , 53X, 13HHYTRAN  OUTPUT) 

1603  FORMAT ( 1H0) 

1604  FORMAT(5X, 10(A4,I6,A2) ) 

1605  FORMAT ( 1H  ) 

1606  FORMAT(28X, 71HVALUES  PLOTTED  REPRESENT  MINIMUM  VALUES  CALCULATED  I 
IN  THE  TIME  INTERVAL) 

UT7  FORMAT ( 28X,  7 1H VALUES  PLOTTED  REPRESENT  MAXIMUM  VALUES  CALCULATED  I 
2N  THE  TIME  INTERVAL) 

1608  FORMAT (2 IX, 75HVALUES  PLOTTED  REPRESENT  THE  ACTUAL  VALUES  CALCULATE 
3D  AT  EACH  PLOT  INTERVAL) 

END 
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7.2  SU  BROUT INE  GRAPH 


Subroutine  graph  produces  print  plots  of  the  output  data  stored  in 
V STORE  (  ) . 

Most  computers  will  have  their  own  version  of  this  subroutine  which 
could  be  used  if  necessary.  However,  since  the  plotted  output  is  such  an 
integral  part  of  HYTRAN,  this  subroutine  has  been  added  to  avoid  the  problems 
involved  in  changing  from  one  computer  to  another. 

7.2.1  Theory  -  Not  applicable. 

7.2.2  Assumptions  -  Not  applicable. 

7.2.3  Limitations 

The  program  is  executed  once  for  each  plot,  up  to  the  total  number  of 
plots  NTOPL.  The  DO  901  J  =  1,  NTOPL  controls  this  loop. 

The  first  section  which  sets  the  X  scale,  is  only  executed  on  the  first 
pass,  when  J  -  1. 

The  program  currently  uses  TIME  (1)  as  XMIN  and  TIME  (NPTS)  as  XMAS. 

In  the  second  section  a  DO  loop  is  used  to  find  the  maximum  and  minimum 
values  of  the  Y  data  to  be  plotted,  using  the  functions  AMAX1  (YMAY,  VSTORE, 
(I+IADD))  and  AM INI  (YMIN,  VSTORE  (I+IADD)). 

With  the  maximum  and  minimum  values  established,  a  check  is  made  to 
see  if  they  are  equal,  if  they  are,  25  is  added  to  YMAX,  and  YMIN  is  set  at 
50  less  than  that,  to  avoid  a  fruitless  search  for  a  suitable  scale. 

Subroutine  SCALED  is  then  called  to  obtain  a  preferred  scale  for  the 
Y  axis,  and  returns  with  values  for  YMAX  and  YMIN. 

A  check  is  made  to  determine  if  the  user  specified  YMAX  and  YMIN. 

IF  (YSCAL(J,2).NE.O.)  GO  TO  2000 

If  the  above  test  passes,  the  YMIN  and  YMAX  values  are  set  to  the  input  values 
and  the  subroutine  execution  continues. 


The  next  section  finds  the  type  of  plot  and  sets  the  plot  character, 

P,  Q  or  C  and  the  data  to  be  written  at  the  bottom  of  the  output  plot. 

The  routine  starts  the  output  plot  section  by  going  to  the  top  of 
a  new  page,  and  proceeds  to  plot  the  output  data,  line  by  line  until  the 
plot  is  complete. 

At  the  bottom  of  the  plot  a  descriptive  line  is  written  which  gives 
the  line  number  and  distance  along  the  line  for  line  pressure  or  flow  plots 
or  the  variable  number  and  the  component  number  if  it  is  a  component  data 
plot . 

The  next  printed  line  is  the  title  of  the.  run  input  on  the  first 
data  card. 

When  all  the  plots  have  been  completed  program  control  returns  to  HYTR. 
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7.2.4  Approximations  -  Not  applicable. 

7.2.5  Limitations 

The  basic  limitation  of  a  print  plot  is  the  number  of  points  that  can 
be  plotted  on  a  single  page  graph  and  the  resulting  inaccuracy  in  reading 
the  graph.  To  an  extent  these  limitations  can  beovercome  by  use  of  the 


MAX/MIN  and  LIST  options  noted  in  Section  2.4  of  Volume  I  of  this  report. 
7-2.6  Variable  Names 


Variable 

AVS 

DIST 

I 

IADD 
ICHAR 
ICHAR(  ) 
ISP 

I SPACE (  ) 

ITEST 

J 

L 

LINE 

NABSQ 

NCHAR 

NVAR 

SP 


Description 
Absolute  value  of  VS 
Distance  of  Plot  Point  Down  a  Line 
Counter 

Address  J*NPTS 
Plot  character 

X  and  Y  Axis  Write  Characters 
Counter 

Temporary  Variable  for  Writing  X  and  Y  Axis 
Scales 

Counter 

Counter  Indicating  Plot  Number 
Dummy  Variable 

Integer  Counter  for  Plot  Line  Number 

Integer  value  1  or  0 
Used  as  Indicator 

Dummy  Variable  Representing  Plot  Character 

Dummy  Variable  Representing  Point  at  which 
Line  Plot  is  taken  or  Component  Number 

Column  Number  Nearest  to  the  Ith  Value  of 
X-Varlable 


Units 


IN 


VS 


Duasty  Variable 
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Units 


Variabla 

XAX 

XDELTA 

XMAX 

XMIN 

XSCALE 

Y 

YDELTA 

YLAST 

YLO 

YMAX 

YMIN 

YUP 

YSCAL(  ) 


Description 

Teaporary  Variable  for  Writing  X  Axis 
Scale  Values 

Distance  Between  Stored  Points  on 
X  Axis 

Last  (Largest)  X  Axis  Value 
First  (Lowest)  X  Axis  Value 
X  Scale  Range 

Temporary  Variable  (Y  Axis  Scale  Value) 

Distance  Between  Stored  Points  on  the  Y  Axis 

Last  Y  Axis  Scale  Value 

Lowest  Value  in  Search  Range 

Maximum  Value  to  be  Plotted 

Minimum  Value  to  be  Plotted 

Highest  Value  in  Search  Range 

Array  Contain  Input  YMIN  and  YMAX  Values 
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SUBROUTINE  GRAPH 
C  ***  REVISED  APRIL  27,1979 

C  ***  THIS  SUBROUTINE  IS  A  MODIFICATION  OF  THE  STANDARD  HYTRAN  GRAPH 
C  ***  SUBROUTINE.  WITH  THIS  SUBROUTINE,  IF  MORE  THAN  ONE  SET  OF  GRAPHS 
C  ***  IS  PLOTTED,  THE  Y  -  SCALE  REMAINS  THE  SAME  ON  ALL  SETS 

COMMON  NTELPL,NTOF  PL, IPT, IPOINT,NPTS, INEL, KNEL,NTOPL,NLPLT(61, 3) , 
1  VSTORE(l) 

COMMON/ SUB /PARM( 150, 9) , PM ( 1500) ,QM( 1500) ,P(300) ,Q(300) ,C( 300) 

1 , Z( 300) ,RHO(20) ,S20RH0( 20), VI SC (20) ,BULK(20) ,TEMP(20) ,PVAP(20) 

2, ATPRESfT,DELT,TFINAL,PLTDEL, PI .TITLE (20) .LEGN, ICON 

3, KTEMP(99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC(99) , INX.INZ 

4 , INV, ISTEP , NLINE , NEL , IND , I ENTR , MNLINE , MNEL , MNLEG , MNNODE , MNPLOT 
5,MNLPTS,MDS, YSCAL(61, 2) 

DIMENSION  ISPACE( 101) ,XAX(6) , ICHART(8) 

DATA  ICHART/1HQ, 1HP, 1HC, 1HI, 1H-, 1H+, 1H  , 1H*/ 

DATA  ITEST.XSCALE/ 0,0.0/ 

C - BEGIN  OUTER  LOOP.  FIND  X  PARAMETERS  ON  FIRST  PASS  ONLY 

1  DO  901  J-l,  NTOPL 
IADD-J*N~rS 

IF ( J.NE.  1  >  'U  TO  2 
XMAX-VSTORE(NPTS) 

XMIN-VSTORE(l) 

ITEST-ITEST+1 

IF(ITEST.NE.l)  XMAX-XMIN+XSCAIE 
XSCALE-XMAX-XMIN 
C  CALL  SCALED(XMAX.XMIN) 

XD  ELTA- ( XMAX-XM I N ) / 1 00. 

C - FIND  Y  PARAMETERS 

C - TEST  IF  SECOND  SET  OF  GRAPHS 

2  CONTINUE 

IF(YSCAL(J,2) .NE.O.O)GO  TO  2000 
YMAX-VSTORE( 1+IADD) 

YMIN-YMAX 

DO  902  1-2,  NPTS 

YMAX-AMAX1 (YMAX, VSTORE( I+IADD) ) 

902  YMIN-AMIN1(YMIN,VST0RE( I+IADD)) 

NABSQ-0 

IF(J.GT.NTOLPL.OR.NLPLT(J,1).GE.O)  GO  TO  905 
IF(INV.EQ.O)  GO  TO  905 
IF(YMIN.GT.O)  GO  TO  905 
NABSQ-1 

IFCABS(YMIN).GT.YMAX)  YMAX-ABS(YMIN) 

905  IF(YMAX.NE.YMIN)GO  TO  9020 
YMAX-YMAX  +25. 

YMIN-YMAX  -  50. 

GO  TO  9025 

9020  AMAX  -  (YMAX+YMIN)*.OOl 

IF( (YMAX-YMIN) . GT.AMAX)  GO  TO  9025 
YMAX  -  YMAX+AMAX 
YMIN  -  YMIN-AMAX 
9025  CALL  SCALED (YMAX, YMIN) 

GO  TO  2010 
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2000  YMAX-YSCAL(J,2) 

YMIN-YSCAL(J, 1) 

2010  CONTINUE 

YDELTA-(YMAX-YMIN) /5Q. 

C - FIND  LINE/COMPONENT  NUMBER,  TYPE  OF  PLOT,  OUTPUT  DATA 

L-NLPLT( J, 2) 

IF  (J.GT.NTOLPL)  GO  TO  5 
IF (NLPLT ( J , 1 ) )  3,5,4 

3  ICKAR-ICHART(l) 

DIST-NLPLT(J,3)*PARM(L,5) 

GO  TO  6 

4  ICHAR-ICHART(2) 

DIST**NLPLT(  J,  3)  *PARM(L,  5) 

GO  TO  6 

5  ICHAR-ICHART(3) 

NVAR-NLPLT(J,3) 

C - GO  TO  TOP  OF  NEXT  PAGE 

6  WRITE(6, 601 ) 

C - LOOP  FOR  EACH  PLOT  LINE. 

Y-YMAX  +  YDELTA 

7  DO  907  LINE-1,  51 
YLAST-Y 
Y-Y-YDELTA 
YUP-Y+YDELTA/2 . 

YLO-Y-YDELTA/2. 

C - FIRST  +  LAST  CHAR.  ON  LINE  -  *1* 

ISPACE(1)-ICHART<4) 

ISPACE( 101 )-ICHART(4) 

C - FIRST  +  LAST  LINES  ALL  *-*,  EXCEPT  *+*  IN  11,21,31,41 . 81, +91 

IF(LINE.NE. 1  .AND.  LINE.NE. 51 )GO  TO  11 
9  DO  909  ISP-2,100 

IF((ISP-1).EQ.(ISP-1)/10*10)GO  TO  10 
ISPACE(ISP)-ICHART(5) 

GO  TO  909 

10  ISPACE(ISP)-ICHART(6) 

909  CONTINUE 

GO  TO  14 

C - INITIAIZE  COL.  2-100  ON  LINES  2-50  TO  *  *,  OR  *+ - +-*  IF  AXIS 

11  IF(Y.LE. 0.  .AND. YLAST.GT. C. )GO  TO  13 

12  DO  912  ISP-2,  100 

912  ISPACE( ISP)«ICHART( 7) 

GO  TO  14 

13  DO  913  ISP-2, 100 
ISPACE(ISP)-ICHART(5) 

913  IF( (ISP-1 ).EQ. (ISP-1)/ 10*10)ISPACE(ISP)-ICHART(6) 

C -  SEARCH  Y-VALUE  ARRAY  FOR  THOSE  IN  RANGE  YLO.LT. VALUE. GE.YUP 

14  DO  914  1-1,  NPTS 
VS-VSTORE(I+IADD) 

NCHAR-ICHAR 

IF(VS.GT.YLO  .AND.  VS.LE.YUP)GO  TO  145 
IF(NABSQ.NE. 1)  GO  TO  914 
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AVS-ABS(VS) 

IF (AVS » LT . YLO.OR. AVS .GT. YUP)  GO  TO  914 
NCHAR-ICHART(S) 

C - FIND  COLUMN  NUMBER  NEAREST  TO  I-TH  VALUE  OF  X-VARIABLE  WHEN  SCALED 

145  SP-(VSTORE( I )-XMIN) /XDELTA  +  1 

IF(SP-AINT(SP) .GT.O. 50)  SP-SP  +  0.50 
ISP-SP 

C - CHECK  ISP.  IF  LT  0  OR  GT  102,  ERROR;  IF  0,  ADD  1;  IF  102,  SUBT.  1 

IF(ISP)  914,  15,  16 

15  ISP-1 

GO  TO  18 

16  IF(ISP-102)18, 17,914 

17  ISP-101 

18  ISPACE(ISP)-NCHAR 
914  CONTINUE 

C - LINES  1,11, 21, 31, 41, +51  HAVE  Y-VALUES;  THESE  LINES,  PLUS  LINES  6, 

C  16,26,...  ALSO  HAVE  *+*  IN  COL.  1+101  IF  EMPTY 
IF ( (LINE-1 ) -NE. (LINE-1 ) /5*5)GO  TO  19 
IF( ISPACE( 1) .NE. ICHAR)  ISPACE< 1)-ICHART(6) 

IF ( IS PACE ( 101 ) .NE. ICHAR) I SPACE ( 101 )-ICHART(6) 

IF ( (LINE-1 ) .NE- (LINE-1 ) /10*10)GO  TO  19 

C - WRITE  OUT  PLOT  LINE,  CONTINUE 

WRITE(6, 602)Y,  ISPACE 
GO  TO  907 

19  WRITE( 6, 603) ISPACE 
907  CONTINUE 

C - CALCULATE  +  PRINT  X-AXIS  VALUES 

20  DO  920  1-1,  6 

920  XAX(I)-XMIN  +  <I-1)*20.*XDELTA 
WRITE(6, 604)  XAX 

C - WRITE  LOWER  TITLES  +  VALUES,  REENTER  OUTER  LOOP 

IF  (J.GT.NTOLPL)  GO  TO  23 
IF(NLPLT(J,1))21, 23,22 

21  WRI1'E(6, 605)  J.DIST.L 
GO  TO  900 

22  WRITE(6,606)  J,DIST,L 
GO  TO  900 

23  WRITE(6,607)  J,NVAR,L 

900  CONTINUE 
WRITE(6, 608)TITLE 

901  CONTINUE 
1000  WRITE(6, 601 ) 

WRITE(6, 610) 

WRITE(6, 611) 

IF (T.LT.TFINAL-DELT) RETURN 
DO  1250  J-l.NTOPL 
L-NLPLT ( J , 2 ) 

IF (J.GT.NTOLPL)  GO  TO  50 
D IST«NLPLT( J , 3 ) *PARM (L, 5) 
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IF(NLPLT(J , 1) )  25,1250,30 
25  WRITE(6, 605)  J.DIST.L 
GO  TO  1250 

30  WRITE(6,606)  J.DIST.L 
GO  TO  1250 
50  NVAR«NLPLT(J,3) 

WRITE(6, 607)  J,NVAR,L 
1250  CONTINUE 

601  FORMAT (1H1) 

602  FORMAT ( IX, 15X.F12.4, IX, 101A1) 

603  FORMAT (IX, 28X, 101A1 ) 

604  FORMAT( IX, 23X, 5(F9*  3, 1 IX) ,F9.3) 

605  FORMAT ( IX, 28X.6HGRAPH  ,I3,1X,53H  FLOW  (CU. IN/SEC)  VS.  TIME  (SEC.) 
+  FOR  A  DISTANCE  OF  ,F8.2,26il  INCHES  ALONG  LINE  NUMBER  ,15) 

606  F0RMAT(1X, 28X.6HGRAPH  ,I3,1X,53H  PRESSURE  (PSIA)  VS.  TIME  (SEC). 
+FOR  A  DISTANCE  OF  ,F8.2,26H  INCHES  ALONG  LINE  NUMBER  ,15) 

607  FORMAT ( 1 X, 28X , 6HGRAPH  ,13, IX, 18H  VARIABLE  NUMBER  ,I3,21H  OF  COMPO 

+NENT  NUMBER  .I3.38H  VS.  TIME  (SEC.).  THE  VARIABLE  IS  -  ) 

608  FORMAT ( IX, 28X, 20A4) 

610  FORMAT( 1H0, 65X, 27HHYTRAN  PROGRAM  OUTPUT  PLOTS) 

611  FORMAT ( 1H0) 

RETURN 

END 
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SUBROUTINE  SCALED(RMAX,RMIN) 

DIMENSION  SCALE (6) 

DATA  SCALE/. 5,1. ,2. ,5. ,10. ,20./ 

- FIND  THE  RANGE  OF  VAL  JES  *RANGE* ,  AND  PLACE  ACTUAL  MAX  AND  MIN 

- POINTS  IN  *AMAX*  AND  *AMIN* 

RANGE-RMAX-RMIN 

AMAX-RMAX 

AMIN-RMIN 

- FIND  AN  INTEGER  EXPONENT  *IEXP*  AND  BASE  *MANT*  SUCH  THAT  THE 

- VALUE  OF  MANT**IEXP  IS  .GE.  RANGE 

IEXP-ALOGIO(RANGE) 

MANT-RANGE/ 1 0 . *  * I EXP 

IF (RANGE . GT . MANT* 1 0 . *  *IEXP )MANT-MANT+1 

- USING  MANT,  SELECT  ONE  OF  THE  PREFERRED  SCALES 

IF(MANT.GT.10)G0  TO  70 
IF (MANT. LT. 1)  GO  TO  70 

GO  T0(80, 90, 100, 100, 100, 110, 110, 110, 110, 70),  MANT 
70  MANT-1 

IEXP-IEXP+1 
80  J-2 

GO  TO  120 
90  J-3 

GO  TO  120 
100  J-A 

GO  TO  120 
110  J-5 

- SET  *IEMAX*  EQUAL  TO  THE  EXPONENT  OF  10.  CORRESPONDING  TO  RMAX 

120  IF(RMAX.EQ.O.)  GO  TO  121 
I EMAX-ALOG 1 0  ( ABS  (RMAX )  ) 

- USE  AMAX  AND  IEMAX  TO  FIND  A  POSSIBLE  MAXIMUM  VALUE  FOR  THE 

- SCALE.  PLACE  THE  VALUE  IN  RMAX,  AND  COMPARE  WITH  THE  ACTUAL 

- MAXIMUM  POINT. 

RMA X- I NT ( AB S ( AMA X ) / 1 0 . * * I EMA X ) * 1 0 . * * I EMAX * S I GN ( 1 . 0 , AMAX ) 

121  IF(RMAX.GE.AMAX)GO  TO  130 

- IF  RMAX  IS  .LT.  ACTUAL  MAX  POINT,  INCREASE  IT  BY  5 

- PERCENT  AND  RECHECK— REPEAT  AS  NECESSARY 

RMAX-RMAX+. 05*SCALE( J) *10.**IEXP 
GO  TO  121 

- SET  THE  SCALE'S  MINIMUM  BY  SUBTRACTING  SCALE( J ) **IEXP  FROM  RMAX 

- If  THE  ACTUAL  MINLMUM  *AMIN*  LIES  WITHIN  THE  RANGE  NOW  DEFINED 

- BY  RMAX  AND  RMIN,  CONTINUE. 

130  RMI N«RMAX-SCALE (J)*10-**I EXP 
IF (RMIN. LE. AMIN) GO  TO  150 

C - GO  TO  THE  NEXT  LARGEST  SCALE,  RECALCULATE  RMIN,  AND  RECHECK 

J-J+l 

IF(J.LT.5.5)GO  TO  130 
J*1 

IEXP-IEXP+1 
GO  TO  130 
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c - IF  THE  SCALE'S  MIN  IS  .LT.  ZERO,  BUT  THE  ACTUAL  MIN  IS  POSITIVE, 

C - SHIFT  THE  SCALE  UP  SO  THAT  THE  SCALE  BEGINS  AT  ZERO 

150  IF(RMIM*AMIN.GT.O.)GO  TO  170 
RMIN-0. 

160  RMAX-SCALE(J)*10.**IEXP 

C - DUE  TO  THE  SHIFT,  IT  MAY  BE  POSSIBLE  TO  DECREASE  THE  SCALE  TO 

C - THE  NEXT  SMALLEST  SIZE 

IF (AMAX.GT . 1 . 000001 *SCALE(J-1 ) *10. **IEXP)  RETURN 
J-J-l 

IF( J .GT. 1 . 5)  GO  TO  160 
J-4 

IEXP-IEXP-1 
GO  TO  160 

C - IF  RMIN  IS  POSITIVE  AND  NEAR  ZERO,  SHIFT  THE  SCALE  DOWN  TO  0.  MIN 

170  IF(RMIN. LT . 0. )GO  TO  175 

IF (RMIN .GT . . l*RMAX)GO  TO  180 
RMIN-0. 

RMAX-SCALE(J)*10.**IEXP 

C - IF  THE  SHIFT  DOWN  CAUSES  RMAX  TO  LIE  BELOW  THE  ACTUAL  MAX, 

C - INCREASE  THE  SCALE  RANGE  TO  THQ  NEXT  LARGEST 

IF ( RMAX . LT . AMAX ) RMAX- SCALE ( J+ 1 )* 1 0 . **I EXP 
RETURN 

C - IF  RMAX  IS  NEGATIVE  AND  NEAR  ZERO,  SHIFT  THE  SCALE  UP  TO  0.  MAX 

175  IF (RMAX.GE . 0. )  GO  TO  180 

IF (-RMAX.GT . -0. l*RMIN)  GO  TO  180 
RMAX-0. 

RMIN— SCALE(J)*10.**IEXP 

C - IF  THE  SHIFT  UP  CAUSES  RMIN  TO  LIE  ABOVE  THE  ACTUAL  MIN, 

C - INCREASE  THE  SCALE  RANGE  TO  THE  NEXT  LARGEST 

IF ( RMIN. GT. AMIN)  RMIN— SCALE(  J+l  )*10. **IEXP 
RETURN 

C - CENTER  THE  SCALE  ABOUT  THE  ACTUAL  RANGE  OF  POINTS 

1 80  ITOP- (RMAX-AMAX ) / ( . 05*SCALE ( J ) * 1 0 . *  *1 EXP ) 

IBOT-(AMIN-RMIN) / ( . 05*SCALE( J ) *10.**IEXP) 

IDIF-(ITOP-IBOT) /2 
IF(IDIF.EQ.O)  RETURN 

RMIN-RMIN-IDIF* . 05*SCALE( J) M  0.**IEXP 
RMAX-RM I N+SC ALE ( J ) * 1 0 . *  *1 EXP 
RETURN 
END 
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APPENDIX  N 
FUNCTION  SECORD 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL  II) 


8.11  FUNCTION  SECORD 

Function  SECORD  computes  the  time  response  of  a  second  order  function 
to  either  a  unit  step  or  impulse  forcing  function. 

8.11.1  Math  Model 

A  block  diagram  for  a  second  order  system  is  shown  in  Figure  8.11-1. 


FIGURE  8.11-1  SECOND  ORDER  BLOCK  DIAGRAM 


The  closed  loop  transfer  function  C(s)  can  be  written 
2  R(s) 


CD 


C(s)  = 
R(s) 


n 


2  2 
s  +  2 £cd  s  +  CD 
n  n 


(1) 


The  dynamic  behavior  of  a  second  order  system  can  be  described  in  terms 
of  two  parameters,  cd^  -  the  system  natural  frequency  and,  C-  the  damping  factor. 
Unit  Step 

If  R(s)  is  a  unit  step.  Equation  (1)  can  be  written  as 


C(s) 


s  +  2?<d  S  +  CD 

n  n 


Equation  (2)  can  be  expanded  to 

8  +  ClD 

C(s)  ~  ~  ~ 


n 


2  2 
S  +  2CW  S  +  CD 

n  n 


C« 


n 


(2) 


(3) 


2  2 
s  +  2  5cd  s  +  t 
n  n 
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let 


2  ,,  2. 

“n  (1  -  '  > 


Then  Equation  (3)  becomes 


C(s) 


.  s  +  £u) 

1  n 


n 


2  2 

(s  +  Sw  )  +  to, 

n  d 


2  2 

(s  +  £ui  )  +  w, 

n  d 


Taking  the  Laplace  transform  of  Equation  (4)  assuming  zero  initial 
conditions  yields 

c  (t)  =  1  - 


-cu>  t  ,  %r.  2“ 

n - t  +  tan"1  V  ll5 - ) 


(4) 


=^-sin  (w^t 


VTT, 

Where  t  >  0  and  0  <  z,  <  1 


(5) 


Mien  £,  is  equal  to  zero,  the  response  is  undamped  and  the  oscillations  continue 
indefinitely.  A  damping  coefficient  greater  than  or  equal  to  one  results  in  an 
undefined  response.  Equation  (5)  can  be  approximated  and  solved  for  the  critically 
(£,  =  1)  and  overdamped  cases  (C  >  1).  The  response  is  similar  to  that  of  a  first 
order  system. 

Impulse 

For  a  unit-inpulse  input  R(s)  is  equal  to  1  or 
2 

C(s)  ■  _ _  (6) 

2  2 
s  +  2Cw  s  +  ii> 
n  n 

The  inverse  Laplace  transform  of  Equation  (6)  gives  the  time  response 
for  0  <  i;  <  1  as 

c(t)  "  %  e  sin  w  \j  1-4 (7) 

yj  7  TT7 

Where  t  >  0 
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8.11.2  Computation  Method 

The  Impulse  and  unit  step  responses  of  a  second  order  function  are 
initialized  to  zero  by  setting  the  X  argument  to  zero.  When  the  response 
is  desired,  X  must  be  set  to  a  number  in  the  calling  program.  Time  is  in¬ 
cremented  from  zero  by  the  selected  delta  interval  (DT)  on  subsequent  calls 
to  the  SECORD  function. 

Equation  (5)  is  used  to  compute  the  time  response  of  a  second  order 
function  to  a  unit  step.  Equation  (7)  calculates  the  response  to  an  Impulse 
input. 

8.11.3  Variable  Listing 


NAME 
A,  B  ,C 
ARR 
DT 
J 


OMECA 

WD 

X 


ZETA 


DESCRIPTION 
Dummy  Variables 
Current  Time 
Time  Step 

Input  Forcing  Function 
J  *  1  Unit  Step 
J  *  2  Impulse 

Undamped  Natural  Frequency 
Damped  Natural  Frequency 
Response  Indicator 
X  ■  0,No  Response 
X  NE  0,  Response 
Damping  Factor 


DIMENSIONS 


Sec 

Sec 


RAD/SEC 
RAD/ SEC 
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8.11.4  Subroutine  Listing 


FUNCTION  SECORD< J,X, OMEGA ,  Z ETA, DT,ARR) 
IF ( X . EQ . 0 . ) GO  TO  5 
ARK*AKK  +  L)T 
It'(  J  .EU.i)GO  TO  1U 
I F ( J . EQ . 2 ) GO  TO  2U 
D  t>ECUKU*U. 

AKK*  U  . 

RETURN 
1U  CONTINUE 

A=OrtLGA*ZETA*ARR 
B*SQRT ( 1 . -Z  ETA*Z  ETA ) 

«D=OM£GA*B 

C=EXP ( -A)/B*3IN( «D*ARR+ATAN ( S/ZETA ) ) 
SEC0RD=1 .-C 
RETURN 
20  CONTINUE 

A=SQKr< l.-ZETA*ZETA) 

B=biN(  OMEGA *A* ARK) 

C  =  EXP(  -Z  ETA "OMEGA *ARR) 

SECORU* ( 1 ./A) "B*C 

RETURN 

ENU 
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APPENDIX  0 

BLOCK  DATA  AND  COMP  SUBROUTINES 
HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  II) 


BLOCK  DATA  SUBROUTINE 


BLOCK  DATA 

C  ***  REVISED  MARCH,  1979  *** 

COMMON/oUB/PARM( 150,9) ,PM( 1500) , QM( 1500) ,P( 300) ,0(300) ,C( 300) 

1 ,  Z( 300) , RHO ( 20) ,S20RHO( 20 ) , VISC( 20 ) , BULK( 20) ,TEMP( 20) ,PVAP( 20) 

2 ,  AT PRES , T , DEL  f , TFINAL , PLTDEL , PI, TITLE (20) , LEGN , ICON 

3 , KTEHP(  99) ,L$TART(15Q) , NLPTf 150) , LTYPE ( 99 ) , NC ( 99 ) , INX,INZ 

4  ,  I  MV,  IST’tP  ,NLIi\lb,  NEL,  IND ,  I ENTR ,  MNLI NE  ,  MNEL  ,  MN.LEG  , MNNODE , MNPLOT 
5 , MN  LPTS , MDS , YSCAL( 61,2) 

COMMON  / COMPD/  D(  4500) ,LT( 100) ,  Ll  K 10) ,L1220(90) ,L21( 10) ,L22( 10) 
+  L23( 10 ) ,L24( 10 ) , L25( 10) ,L2630(  50) , 

+  L31( 10) ,L32I 10) ,L33I10) ,L34f 10) ,L3540( 60) ,L41( 10) ,L42f 10) , 

+  L4 350(80) ,L51( 10) ,L52f 10) ,L53( 10) ,L54( 10) , 

+  L55( 10) ,L56( 10) ,  L57  f 10) ,L5860(  30) , 

+  LblllO)  ,L62U0),L63(10)  ,L6470< 70)  ,L71(  10)  ,L72(  10)  ,L73(  10)  , 

+  L7  48  0' 70) ,L81(10) ,L82( 10) ,L83( 10) ,L8490(70) ,L9K 10) ,L9293(  20)  , 

+  L9  4  9  5 (  20) ,L9697( 20) ,  L98  f 10) , L99100  f  20)  , 

+  LI 01( 10),L102(10),L103(10),L104(10),L105(10) , LI  06 ( 10 ) , L107 ( 10 ) , 
+  LI  08 (10) ,L109( 10) ,L110( 10) ,LEND(  400) ,LE<99,4) 

DATA  MN LI NL , MNEL , MH LEG , MNNODE , MNPLOT , MNLPTS , MDS , YSCAL 
+  /1 50, 99, 80, 60, 60, 1500,4 500, 122*0./ 

DATA  LT/ 100*0/ 

DATA  Ll 1/0, 4, 0,4, 0,0, 4, 1,0,0/ 

DATA  Ll 220/90*0/ 

DATA  L2 1/2 4, 2, 0,7 ,0,3, 2, 2 ,1,0/ 

DATA  L2 2/ 32, 8, 0,7, 0,4, 4, 2, 0,0/ 

DATA  L23/10*0/ 

DATA  L24/24 , 3  0,5, 0,3, 2, 2, 1,0/ 

DATA  1.2  5/10*0/ 

DATA  L2630/50*  0/ 

DATA  L3 1/7, 6, 0,3, 0,1, 2, 2, 1,0/ 

DATA  L3 2/ 6, 5.0, 4, 0,0, 3, 3, 1,0/ 

DATA  1,33/10,20,0,3,0  i  ,  2 , 2 , 1 , 0/ 

DATA  L3 4/ 20, 20,0,3,0, 2, 2, 2, 1,0/ 

DATA  L3 9 40/ 6 0*0/ 

UA i A  L4 A/ 4, 3, 0,4, 0,1, 2, 2, 1,0/ 

DATA  L4  2/1U-U/ 

DATA  L435U/ 8U*  0/ 

DATA  L5 1/37, 43, 0,10, 0,5, 3, 3, 1,0/ 

DATA  L52/1 24, 24, 0,10, 0,6, 4,4, 1,0/ 

DATA  L5 3/ 37, 43, 0,10, 0,5, 3, 3, 1,0/ 
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BLOCK  DATA  (Continued) 


DATA  L54/37,43,0,10,0,5,3,3,l,0/ 

DATA  Lb  5/ 10*0/ 

DATA  Lb 6/10,10,0,5,0,1,3,2,0,0/ 

DATA  Lb// 20, 30, 0,5, 0,1, 1,1, 0,0/ 

DATA  Lb 660/ 3 0*0/ 

DATA  L6 1/2, 0,0, 12/0, 1,10, 1,0,0/ 

DATA  L62/6, 10,0,7,0,2,5,2, 0,0/ 

DATA  L6 3/ 18, 18,0,9,0,2, 7, 2, 0,0/ 

DATA  L6470/70*0/ 

DATA  L7 1/5, 11, 0,2, 0,1, 2, 1,0,0/ 

DATA  L72/10*0/ 

DATA  L/ 3/ 10*0/ 

DATA  L7480/70*0/ 

DATA  L81/8 ,8,0,2,0,12,2.1,0/ 

DATA  L8 2/ 24, 25, 0,8, 0,2, 8, 6, 0,0/ 

DATA  L8 3/ 8, 5, 0,4, 0,14, 2, 0,0/ 

DATA  L8490/  /  U*  0/ 

DATA  Ly 1/1 0*0/ 

DATA  Ly2y 3/81,1,0,5, 0,3, 0,0, 0,0, 24, 3, 0,5  0,3, 0,0, 0,0/ 
DATA  L9 49 5/ 10*0, 112, 15, 0,7, 0,2, 0,0. 0,0/ 

DATA  L9 69 7/ 2 0*0/ 

DATA  L9  8/ 81, 1,0, 13, 0,2, 0,0, 0,0/ 

DATA  L99100/0, 50, 0,12, 16*0/ 

DATA  LI 01/ 32, 20, 0,12, 0,2, 2, 2, 1,0/ 

DATA  LI 0  2/ 12, 15, 63, 32, 0,2, 2, 2, 1,0/ 

DATA  LI 0  3/ 40, 100, 0,12, 0,2. 6, 2, 0,0/ 

DATA  L10 4/ 5, 13, 0,5, 0,1, 2, 2, 1,0/ 

DATA  LI 0  5/ 40, 100, 0,12, 0,2, 6, 2, 1,0/ 

DATA  LI 06/ 0,25, 0,15, 0,0, 6, 6, 1,0/ 

DATA  LI  0 // 2, 56, U, 15, 0,1, 6, 6, 1,0/ 

DATA  LIU 8/ 46, 40, 0,14, 0,2, 4,2, 0,0/ 

DATA  LI U9/ 1 U* 0/ 

DATA  LI  10/ 10*0/ 

DATA  LLND/400*0/ 
bND 
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COMP  SUBROUTINE 


SUBROUTINE  COMP 

C"»»*  REVISED  DECEMBER  19 /9  «»** 

DOUBLE  PRECISION  DU 

COMMON  NTELPL , NTOLPL , I PT , 1 PO I NT , NPTS , I NEL , KNEL , NTOPL , NLPLT( 6 1 , 3 ) , 
1  PULEO( yu, 12) ,ND(  lbU, 1U) 

CUMHUN/SUB/PAKMUSU,y)  ,  PM  (  IbUU)  ,  QM  (  IbUU)  , P( 300)  ,  Q(  3UU)  ,  C(  3UU) 

1, Z( 3UU) , RHO( 2U) ,  S20KHQ( 20 ) , VISC( 20) , BULK ( 20 ) , TEMP( 20) ,PVAP( 20) 

2 ,  ATPRES , T , DELT , TFI NAL  ,  PL'l’DEL ,  PI , TITLE( 20 ) , LEGN , ICON 

3  /  KTeMP (  99)  ,  LSTART(  1 50 )  ,  NLPT( 1  50  )  , LTYPE(  99 )  ,  NC(  99 )  ,  INX  ,  I NZ 
4 , 1NV,1STEP,NLINE,NEL,IND,I ENTR , MNLINE , MN  EL , MNLEG , MNNODE , MN  PLOT 
b , MN  LPTS , MDS , YSCAL (61,2) 

COM  MON/ COM  P  D/ D ( 4bUU) ,L(  1500) ,LE( 99,4) 

DIMENSION  DU( 14UU) ,LT( 1U, lbU) , LC ( 1 ) 

EQUIVALENCE  ( L( 1 ) , LT( 1 , 1 ) ) , ( D< 1 ) ,DD( 1) ) , ( C ( 1 ) , LC ( 1 ) ) 

DATA  LI, L4, NX/ 1,1 ,2/ 

JINU*1 

if  (  1 ENTR)  1UUU, /UUU, 2U0U 
1UUU  CONTINUE 

DO  1001  1*1,10 
DO  1002  J=1 ,150 

1002  ND(J,I)«LT(I,J) 

1001  CONTINUE 

1003  CONTINUE 
NCI  =  0 

THIS  READ  STATEMENT  INPUTS  THE  FOLLOWING  DATA 
I  ’INDIVIDUAL  COMPONENT  NUMBER 

LTY  PE  ’COMPONENT  TYPE 

READ( b, 1 /U)  1 ,LTYPE( 1) , LUATAC , ( L( L4-1+U ) , J«l, 12) , KTEMP ( I ) 

WK1TE( b, bOU)  1 , 1 , LTY  PE ( 1) , LDATAC , ( L( L4-1+J ) , J«1 , 1 2 ) ,KTEMP( 1) 
NUATAC’ LDATAC/ 1 U  U  U 
L  DA  TA  C*  L  DA  TAC-  N  DATAC  *  1 0  0  0 
I P ( KTEMP (I)  )  1 1 ,  12 , 1 3 

11  KTEMP(I)»10-KTEMP( I) 

GO  TO  13 

12  KTEMP ( I ) ■ 1 
iJ  CONTINUE 

NLIM’LDATAC*  B 

C**»  LDATAC  EQUALS  THE  NUMBER  OF  ELEMENT  REAL  DATA  CARDS 
KT Y  PE*  LTY  PE ( I ) 

NC ( 1 ) *ND( KTYPE , 7 ) 

IF ( NC( I ) . EQ . 0 )  GO  TO  7 
KK-L4 

NN-L4+NC( I)-l 
DO  4  N«KK,NN 
I P ( L ( N )  )  1,2,3 
1  L(N)--L(N)*2-1 
LC ( L ( N ) )»U 
NCI-NC1+1 
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COMP  (Continued) 


GO  TO  4 

2  L( N ) =MNL1  NE*  2-NUI  KTY  PE  ,  9  ) 

GO  TO  4 
i  LIN)=LIN)*2 
L 01  LI N)  )=U 
NCi=NCi+i 
4  CGNTiNUE 

b  if(L(NN) . LT.MNL1NL*2-1)  GO  TO  6 
NC ( 1 )=NC( I ) - 1 
NN=NN-1 
GO  TO  5 
6  CONTINUE 
InZ=NCI 

I E ( MCI .NE . NC ( I ) . AND. ND( KTKPE , 10 ) . NE . 0 )  GO  TO  4  20 
it'(NGU)  .  LT.ND(  KT¥  PE ,  b  }  )  NC  ( I )  =ND(  KTifPE  ,  b  ) 

/  Ni=NU( KTY  PE, 1 ) 

Ni  =  rtUI  RT  I  PE  ,  £  ) 

N J=NU|  RTX  PL  ,  J  ) 

N4=NU| RTXPE.4  ) 

it INL1M.EU.U)  GU  TO  lb 

Hlau (  b ,  4  b  U  )  ( D( Ll+N-1 ) , N=1 , NLIM ) 

I  ft iND .Mb. 1 )  GO  TO  4 10 
NN=Li 

DO  iU  RR  =  i , LUATAC 

WKiTEI  b , blU) RR, ( U( NN+N-1 ) , N=1 , b ) 

NN=NN+b 
iU  CONTI  MU E 
ib  i  N  X  s  U 

ir  | nuai AC . Nt . U )  GO  TO  20 
if  (  LUATAC  .GT  .  NU(  RT5£PE  ,  b  )  )  M=NLIri 
LE(  i  ,  .1)  =L1 
Lti i , 2) =L1+N1 
GO  TO  JU 
£U  CONTINUE 

LL( 1,1) SLE( NUATAC, 1 ) 

LE (i , 2 ) =L1 
iMA-i 

JU  if  I  NX"NJ  L.t.1)  GO  TO  4 U 
Ltl i, J)=( Lt( i,2)+N2+J)/2 
Li =  <  LEI  i , J ) +  N  J )  »2  +  i 
GO  TO  bU 

4  U  LEI  i , J) =  LEI  i , 2}+N2 
Li=UE|  i  ,  J)  +NJ 
b  U  LE|  i,4)=L4 
L4=L4+N4 
EN'i’KI  CONPE 
4 UUU  CONTINUE 

XTXPE-LTYPEI 1NU) 

NT*  PE  “RTXPE/iU 
Ni»LE( iNU , i ) 

N2«LET  iNU,  2  ) 

N  J*  UE  I  iNU  ,  J  ) 

N4*Lt< iNU , 4 ) 

GO  TO  I 2iU,22U,2JU,24U,2bU,2bU,2/U,2bU,2yU,JUU) , NTY PE 
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COMP  (.Continued) 


C  360  GO  TO  400 
210  CONTINUE 

CALL  UKANll  I  ll(Ni)  ,D(  N2)  ,DD(N3)  ,L(N4)  ) 

GO  TO  400 

CONTINUE 

M'  Y  PE  =  KT  Y  PE-2  U 

GO  TO  (221,222,400,224)  KTYPE 
221  CALL  VALV21  (  0  ( I'll  )  ,  D  (  N2  )  ,  DD(  N3  )  ,  L  <  N4  )  ) 

GO  TO  400 

ill  CALL  VALV22  ( Of N1 ) , D< N2 ) , DC( N3 ) , LI N4 ) ) 

GO  TO  4  0  U 

ilH  CALL  VALV 24 ( b I N1 )  , L( N2 )  , DC( N 3 )  , L ( N4 ) ) 

GO  TO  4  00 
2JU  CONTINUE 

KTYPE=KTYPE-3U 

GO  TO  (231,232,233,234), KTYPE 

231  CALL  CVAL31  (,  U  (  N1  )  ,  D  (  N  2  )  ,  D  D(  N  3  )  ,  L  (  N  4  )  ) 

GO  TO  400 

232  CALL  CKEL32  (0(Ni),D(N2)  DD( N3 ) , M N4 ) ) 

GO  TO  4  0  U 

233  CALL  CVAL33(U(N1) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  4 00 

234  CALL  cVAL34(U(Nl)  ,U(N2)  , 00 ( N 3 ) , L ( N 4 )  ) 

GO  TO  4  UU 

2 4 U  CONTINUE 

CALL  KEET41  (U(N1) ,  D(  N2  ) , DD( N 3 )  ,L(N4) ) 

GO  TO  4  OU 
230  CONTINUE 

M  Y  EE- KT Y EE- 3 U 

GO  TO  (251,252,253,254,400,256  257),KTYPE 

251  CALL  PUMP51  ( D(Nl) ,D( N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 

252  CALL  PUMP52  ( D( N1 ) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 

253  CALL  PUMP5 3  (D(N1) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 

254  CALL  PUMP54(D(N1) ,D(N2) , DD(N3) ,L(N4) ) 

GO  TO  400 

256  CALL  MTk5o(D(N1) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 

25/  CALL  PUKP57(D(N1) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 
2 bO  CONTINUE 

KT  Y  Pe*KTYPe-6U 
GO  TO  (  201,26  2, 26  3)  ,KTY’PE 
261  CALL  KGVK61  (  D  (  N 1 ) , 0 ( N 2 ) ,DD(N3) , L ( N 4 ) ) 

GO  TO  400 

262  CALL  RSVK62  ( 0( N1 ) , D( N2 ) , DO( N3 ) , L< N4 ) ) 

GO  TO  400 

26  3  CALL  K3VR6 3  ( D( Nl ) , D( N2 ) , OD( N3 ) , L( N4 ) ) 

GO  TO  4  U0 
270  CONTINUE 

KTYPE-KTYPE-70 
GO  TO  ( 271 ) , KTYPE 
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COMP  (Continued) 


271  CALL  ACUi'l/l(  D(N1)  ,  D(N2)  ,  DD(  N3) ,  L(N4  )  ) 

GO  TO  400 
200  CONTI NUE 

KTYPb= KTYPE- 80 

GO  TO  ( 281,282, 283) , KTYPE 

281  CALL  FILT81  (D(N1)  ,  D  (  N  2  ) ,  D  D  ( N  3  ) ,  L  ( N  4  ) ) 

GO  TO  400 

282  CALL  FILT82  ( D( Nl ) , D( N2 ) , DDf N3 ) , L( N4 ) ) 

GO  TO  400 

283  CALL  FILT83(D(N1) ,D(N2) ,DD(N3) ,L(N4) ) 

GO  TO  400 

290  CONTINUE 

KTYPE=KTYPE-90 

GO  TO  (400, 292, 293, 400, 295, 400,400, 298, 299), KTYPE 

292  CALL  CAD92  ( D( Nl ) , D( N2 ) , uD( N3 ) , L( N4  )  ) 

GO  TO  400 

293  CALL  CAD93  (D(Wl),D(N2), DD( N3 ) , L( N4 ) ) 

GO  TO  400 

295  CALL  APU95  (D(N1) , 0( N2 ) , DD( N3 ) , L( N4 ) ) 

GO  TO  400 

298  CALL  CA098  ( D< Nl ) , D( N2 ) , DD( N3 ) , L( N4 ) ) 

GO  TO  400 

299  CALL  CAD99  (D(N1),D(N2),DD(N3),L(N4) ) 

GO  TO  400 

300  CONTINUE 

KT Y PE = KTYPE- 100 

GO  TO  ( 301 ,302,303, 304 ,305, 306,307,308) , KTYPE 

301  CALL  ACT101  ( D( Nl ) , D( N2 ) , DD( N3 ) , L( N4 ) ) 

GO  TO  400 

302  CALL  ACT102  ( D( Nl ) ,D(N2) , DDf  N3 ) , L( N4 ) ) 

GO  TO  400 

303  CALL  ACT103  ( D( Nl ) , D( N2 ) , DDf  N3 ) ,L(N4) ) 

GO  TO  4U0 

3u4  CALL  ACT1U4  ( D( Nl ) , Df N2 ) , DD( N3 ) , L( N4 ) ) 

GO  TO  400 

305  CALL  ACTIO 5  ( D( Nl ) , D< N2 ) , DD< N3 ) , L( N4 ) ) 

GO  TO  400 

306  CALL  ACT 106  f 0( Nl ) , D( N2 ) , DDf N3 ) , L< N4 ) ) 

GO  TO  400 

307  CALL  ACT 107  ( D(  Nl ) , D( N2 ) , DU( N3 ) , L( N4 ) ) 

GO  TO  400 

308  CALL  ACT108  ( D( Nl ) , D( N2 ) , DD< N3 ) , L( N4 ) ) 

400  CONTINUE 

IF ( INLL . NE.0.OK. I NO. GL.NLL)  KETUKN 
IND-IND+1 

IF(Ic,NTR)  1003,2000,2000 
410  *»R1TE  (6,180) 
wRITE( 6,999) 

999  FORWATf  10X ,  3  lriPROGRAM  STOP  IN  SUBROUTINE  COMP) 

STOP  6001 

4  20  wSITt.(6,190)  IND 

190  FORMAT* 5X, 42HTHERE  ARE  MISSING  CONNECTIONS  IN  CO.-1P  NO 
WRITE( 6,999) 

STOP  6001 
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17 U  FORMAT  (1615) 

130  FORMAT  (  35H  THE  ELEMENT  CARDS  ARE  OUT  OF  ORDER  ) 

450  FORMAT  (8E10.0) 

5  00  FORMAT ( 1  HO , 5X , 6HCOMP# , I  5 , 2X , 1 2HINTEGER  DATA , 2X , 1 61 5 , ) 
510  FORMAT*/, 5X, 16HREAL  DATA  CARD  #  , I  5 , 2X,  8E1 2 . 4 ) 

END 
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APPENDIX  P 
LINE  DATA 

HYTRAN  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  I) 

5.0  LINE  DATA 

The  number  of  cards  used  in  this  group  is  equal  to  the  number  of  lines 
entered  on  Card  3,  and  though  they  can  be  stacked  in  any  order  within  the 
group,  it  is  advised  that  the  numerical  order  be  used.  An  error  message  will 
be  written  when  this  condition  is  encountered  but  the  program  will  continue. 

A  line  number  may  not  be  omitted  or  used  twice.  An  error  message  will  also 
be  written  if  this  condition  is  encountered,  however  the  run  will  not  stop. 

A  type  #  is  used  to  differentiate  between  hard  lines  and  hoses.  As  noted 
in  Section  3.0,  one  line  number  can  be  used  to  represent  any  number  of  lines 
in  series  provided  the  diameter  wall  thickness  and  modulus  of  elasticity 
(effective  bulk  modulus  if  a  hose)  of  each  line  are  identical. 

Two  or  more  lines  with  different  parameters  may  be  joined  together 
without  using  a  branch  or  other  component  as  a  connection.  These  lines  must 
be  numbered  consecutively,  otherwise  a  6002  error  will  be  written  and  the  run 
will  stop. 

Dead  ended  lines  must  have  a  10  written  in  the  type  column  of  the  line 
data  card.  Dead  ended  lines  must  indicate  flow  away  for  the  component  it  is 

connected  to. 

5.1  RIGID  LINES 

Type  number  zero  is  a  rigid  line.  The  majority  of  aircraft  lines  will 
fall  under  this  category.  True  bend  angles  less  than  90°  are  summed  and 
input  in  columns  26  through  30.  Angles  equal  to  or  greater  than  90  are 
summed  and  input  in  columns  31  through  35. 
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CARD  NUMBER  1 


COLUMN 

FORMAT 

1-5 

15 

6-10 

15 

11-15 

15 

16-20 

15 

21-25 

15 

26-30 

15 

31-35 

15 

36-40 

15 

41-50 

E10.0 

51-60 

E10.0 

61-70 

E10.0 

71-80 

E10.0 

DATA 


Line  Number 


Type, number  =  0  or  10  for  dead  ended  line,  2  for 
Lossless  Ilne_ 


Percentage  Increase  in  Fitting  Friction 


Number  of  45°  Elbows 


Number  of  90°  Elbows 


Total  of  Bend  Angles  Less  than  90° 


Total  of  Bend  Angles  Greater  Than  or  Equal  to  90° 


Temperature /Pressure  Code  (See  Page  4.0-2) 


Total  Length  Including  Fittings 


Outside  Diameter 


Wall  Thickness 


Modulus  of  Elasticity 


DIMENSIONS 


EXAMPLE  CARD 


111 


.1 


« 


Card  3.  This  card  inputs  the  total  number  of  lines,  the  number  of  components, 

fluid  type  number,  optional  fluid  parameters  (viscosity,  density,  bulk  modulus 

and  vapor  pressure).  Note:  If  a  vapor  pressure  is  not  input  the  program  will 

use  a  value  of  2  psia.  The  fluid  type  number  selects  the  fluid  data  to  be 

used  from  tabulated  data  stored  in  the  program  and  adjusts  the  fluid  properties 

to  the  maximum  and  minimum  pressures.  The  program  is  set  up  to  run  with  either 

of  the  following  fluid  types  at  any  temperature  from  -650F  to  300°F: 

Type  Itl  MIL-H-5606B 

Type  If 2  MIL-H-83282 

Type  It 3  Skydrol  500B 

In  addition,  the  user  can  input  fluid  data  for  any  fluid  (for  the  maximum 
temperature  specified  on  Card  2)  by  using  a  Type  ItO  and  by  inputting  viscosity, 
density,  and  bulk  modulus,  and  vapor  pressure.  This  fluid  data  is  not 
'pressure'  adjusted  and  is  used  as  input.  Note:  Columns  21  through  50 
can  be  left  blank  if  fluid  type  It  1,  1t2,  or  1t3  are  used. 

Two  or  more  lines  with  different  parameters  may  be  joined  together 
without  using  a  branch  or  other  component  as  the  connection.  These  lines 
must  be  numbered  sequentially,  otherwise  a  6002  error  will  be  written  and 
the  run  will  stop. 

Dead  ended  lines  must  have  a  10  written  in  the  type  column  of  the 
line  data  card. 
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CARD  NUMBER  3 


6-10 


11-15 


16-20 


21-30 


31-40 


41-50 


51-60 


61-80 


FORMAT 

DATA 

15 

Total  Number  of  Lines'^ 

15 

Total  Number  of  Components 

15 

Fluid  Type  Number 

15 

This  value  is  set  to  0,  +N,  -N  to  depressurize 
a  system.  See  Page  6.54-2  for  a  description 
of  this  ftinr.Mnn. 

E10.0 

Fluid  Viscosity 

E10.0 

Fluid  Density 

E10.0 

i 

Fluid  Adiabatic  Bulk  Modulus 

E10.0 

Vapor  Pressure 

E10.0 

Not  Used 

DIMENSIONS 


ln/sec 


2 .  4 

lb-sec  /In 


EXAMPLE  CARD 


16  13  1 

I  5  4  %  *  7  •  1  ID  ;i  il  I)  <4  it  i|  i'  ||  utori  II  UMnNimZIMSI  V  UMHMP  4*  4f  4»  44  so  91  M  »  M  J*  97  WWW  «i  II  93  *4 


<  7  J  *  9  t  r  I  I  ID  II  n  l>  14  II  II  ir  l|  if  N  II  It  IS  14  II  M  17  i*  19  so 

I  I  I  I 


SI  S7  I)  >4  IS  M  >7  S*  SV  40  4i  47  «J  44  45  44  47  49  49  90  II  91  SS  94  94  94  97  94  99  40 


0  9  •  I  MIO  fl  9  9  I  0  •  1 10 1 1 1 1  0  I  •  1 1*1  M  1 1  II  1 1 1  III  1 1 1 1  «  1 1 1  0!i  1 1 «  1 1  U  I  9  (  I  1 1 


i  i  i  \  1 1  i  i  %  *  ti  imi  il  i»  il  il  >«  n  v  n  )<  njn  nun  an  11  11  u  »,»  it  m  n  «i  u  u  u  k  *m<  ihi  n  h  v  u  u  m  imih  n|4t  m  h  m  u,m  ii  m  ii  <•  ii  n  11  u  nm  n  ti  ii  m 

1  1  1 1  l)l  II I  f  M  I  1|>i  l  I  I  II  I  I  I  H  I  111  I  II  I  Ijli  II  I  I  II  I  l|l  I  I  I  I  I  II  ll;l  I  I  Mil  II  I  III  I  I  I  l|l  I  I  I  III  II  II 


4  4J4  4  4  4 


7‘7  17727222  2*1  7  2 

i  I 

3^3  3  3  3  3  1  1  3  3  3*3  3  3 


4-4  4  M  <14  4  4  4  4'4  4  4 


I  >4  VI, M  HHH  Mill  U  II  M  IV|U  I’  M  M  Uhl  I?  I)  14  IV|*  H  H 


1  2  2  7  M  2  7  2  7  2  7  7  7  3.2  7  2  2  2  2  i  2  t  M  2  2  2  2  t  7  l  2  l\7  ?  7  i  7  7  7  7  2  1'7  2  ?  2  2  t  ?  7  2  2*7  2  l  7  7  3  2  2  2  V7  2  7  7  2  ?  2  2  2  2*2  7  l  1 1 

I S  )  J  ijn  J  }|  I  n  3  3;3  J  3  II  J  11 1  ijj  J  3  J  11 1  J  I  Ijl  3 1  J  J 1  J  ,1  JJ'JJ  1J  J  J  J  I  J1;J  J  1 1 1 1 II  Jl;l  1 1 1 11  I  1 3jjj  1J  1 . 

14  4  4  4*4  44444444  4*4  44444444  4*4  44444444  4<4  44444444  4*4  44444444  4J4  44444444  4*4  44444444  4'4  4  4  4  4 

i  i  <  t  ji  i  i  i  n  ii  b  ii  u  iiJh  ii  ii  ii  n  ii  n  ii  i<  njx  iiimmnna  it)*  »  ■  ■  >: «  n  n  «  iiju  h  « ■!  a  ii  u  n  v  m'h  ii  u  h  m  ii  u  ii  w  iiiH  i’ m  h  ii  n  r  n  u  u)n  n  ii  n  » 

5  $  i  S'S  5  5  5  5  5  J  5  5  Si  S  5  5  5  $  5  5  5  5'$  5  5  5  5  5  5  5  3  5*5  5  5  S  5  5  3  S  5  S'S  5  5  5  5  5  5  5  J  3  5  5  5  5  5  5  5  5|5  5  5  5  5  5  J  5  5  5|5  5  5  S  5 

« i  i|  c 1 1 1 1 1  s 1 1 M 1 6 1 1 1 m i'i 1 1 1 1 1 1 1 isle 1 1 1 1 s  s  e  i i!i s 1 1  ( si  1 1  s  1 1 i 1  i  i  s  vt  i ( i  •  m  i  i  •  1 1 
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APPENDIX  P 
SUBROUTINE  LINE 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL.  II) 

5.1  SUBROUTINE  LINE 

LINE  divides  each  line  into  segments ,  the  length  of  each  segment  being 
greater  than  or  equal  to  the  velocity  of  sound  in  fluid  multiplied  by  the 
time  step,  DELT.  LINE  then  calculates  the  flows  and  pressures  for  all  the 
interior  line  points  as  well  as  the  end  point  characteristics.  These 
characteristics  are  subsequently  used  by  component  subroutines  to  calculate 


pressures  and  flows  at  the  ends  of  each  line  where  the  lines  and  components 
interface. 

5.1.1  Math  Model 

The  equation  of  motion  and  the  continuity  equation,  describing  the 
one-dimensional  unsteady  flow  of  a  compressible  fluid  in  an  elastic  fluid 
line,  equations  (1)  and  (2),  involve  the  actual  distributed  parameters 
and  include  the  nonlinear  viscous  terms.  These  partial  differential  equations 
are  transformed  into  total  differential  equations  by  use  of  the  method 
of  characteristics.  A  finite  difference  method  is  then  used  to  place  the 
total  differential  equations  in  a  form  suitable  for  numerical  solution  on 
a  digital  computer. 

Basic  Equations 

The  equation  of  motion  is: 


3P  ,  RHO  . 

-  4-  -  it 

ax  a 


14 

at 


+  F(Q> 


0 


(1) 


The  condition  of  continuity  yields: 


-ifi  + - A -  *  ap 

ax  RHO*  a**2  at 


0 


(2) 


where 

P  ■  Pressure 

psia 

Q  “  Flow 

cis 

A  *  Flow  area  of  line 

in2 

t  ■  Time 

sec 
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RHO  -  Fluid  mass  density  (lb-sec**2)/in.**4 

F(Q)  ■  Pressure  loss  as  a  function  of  flow  psi 

a  -  speed  of  the  wave  propagation  -  (BULK/RH0)*l/2  in. /sec 
BULK  -  Bulk  modulus  of  the  fluid  psi 

X  ■  Distance  along  line  in. 

Method  of  Characteristics 

The  basic  equations  (1)  and  (2)  can  be  transformed  into  a  pair  of  total 
differential  equations,  the  validity  of  which  is  restricted  to  certain  lines 
in  the  x-t  plane  called  the  characteristics.  Integration  along  the 
characteristics.  Fig.  5.1-1,  yields  the  following  algebraic  equations. 


For  convenience  let 


RHO*a 

A 


(the  number,  Zc,  is  the  characteristic  impedance  of  a  frictionless  line)  and 


C  left:  C  -  Pvw  -  Z*Qvw-t-£-|-£-  [F(Qwt)  +  F((>  )J<3) 


C  right:  C„  -  Pwx-Z*Qwx  + 


a  A  t 


[FCQwt)  +  F(Qot)  ] (4) 


P  +  ZQp  -  CR  -  0 

cr  -  Pwt  -  z  *  Qvrr 

Pp  -  Z-Q-  -  Cl  -  0 


CL  “  PWT  +  2  *QWT 
PWT  ■  + 

0 _  -  CL  '  CR 
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4 


UPSTREAM  FIRST  INTERIOR  SECOND  INTERIOR  DOWNSTREAM 

END  OF  TUBE  LINE  POINT  LINE  POINT  END  OF  TUBE 


FIGURE  5.1-1  GRID  OF  CHARACTERISTICS  WITH 
INTERPOLATION 

Equations  (7)  and  (8)  apply  only  to  the  interior  sections  of  the  fluid 


line.  Points  at  the  boundary  use  only  one  of  the  characteristic,  equations 
to  be  solved  simultaneously  with  the  boundary  condition.  CR  and  CL  are 
still  functions  of  the  unknown,  QyT.  Therefore,  an  iteration  is  used  to 
calculate  QyT.  Cr  and  Cl  are  first  determined  using  only  a  rectangular 
rule  to  approximate  the  friction. 

CL  -  PW  +Z*QW  _  a*At*F(Qw)  (3a) 


CR  “  Pwx  -  Z*Qwx+a*At*F(Qwx)  (4a) 

This  gives  a  very  close  approximation  of  Qp,  which  then  can  be  improved 
by  using  the  trapezoidal  rule  to  evaluate  CR  and  C^. 

There  are  two  ways  to  apply  these  equations  to  a  line  system:  either 
one  has  to  modify  the  wave  speeds  slightly  to  make  n  -  L/(a*At)  an  integer 
in  each  individual  line  (L  is  the  length  of  a  line) ,  or  one  has  to  use  the 
interpolating  grid  of  Fig.  5.1-1  which  has  been  applied  in  HYTRAN  and  is  discussed 
in  more  detail  by  Streeter  and  Wylie  (5), 
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FIGURE  5.1-2  CHARACTERISTICS  IN  X,t  PLANE 

5.1.2  Assumptions 

1.  Transition  from  laminar  to  turbulent  flow  is  assumed  to  occur  at  a 
Reynolds  number  of  1200. 

2.  Friction  factors  used  are  based  on  circular  cross-section,  smooth 
I.D.,  drawn  tubing. 

3.  See  Appendix  A  for  assumptions  associated  with  method  of  character¬ 
istics. 

5.1.3  Computation  Methods 
Section  1000 

The  type  of  line  N  is  Isolated  and  the  3peed  of  sound  and  characteristic 
impedance  are  calculated 

IF(LDN(N,l).EQ.l)  GO  to  70 
A  -  1. 8*(PARM (N, 3)+PARM(N,2)/2.0)*BUlK(IT) 

A  -  BULK  (IT )  /RH0  ( IT)  *  ( 1 . 0+A/  (PARM (N ,  4)  *PARM  (N ,  3)  )  )  ) 

GO  to  75 

70  BULKH  -  BULK(IT)*PARM(N,4)/(BULK(IT)+PARM(N,4)) 

A  -  BULKH/RH0(IT) 

75  A-SQRT(A) 

PARM(N,6)  -  RHO(IT)*A*4.0/(PI*PARM(N,2)**2) 
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If  the  speed  of  sound  is  not  large  enough  to  produce  two  line  points,  a 
fix-up  is  taken  and  the  percent  error  in  the  adjusted  speed  of  sound  is 
printed 

CONST  -  PARM(N, 1)/DELT 

IF (CONST. GE. A)  GO  to  78 

PC  -  100. -C0NST*100. /A 

WRITE  (6, 300)N,PC 

A  -  CONST 

78  PARM(N, 7)  -  A 

NLPT(N)  -  CONST /A+l. 01 

DELX  is  then  calculated 

PARM(N, 5)  -  PARM(N, 1)/ (NLPT (N)-l) 

Equivalent  line  length  of  bends  and  fittings  is  calculated  for  line  N 
EQUIVL  -  PARM (N, 2)* (LDN  (N, 3) *12+ 

LDN (N,4)*57.0+LDN(N,5)/45.* 

4.65  (LDN(N,b) /90.+1 . )*3. 75 

The  equivalent  line  length  is  then  added  to  the  actual  line  length  and 
is  used  to  calculate  the  laminar  and  turbulent  flow  constants 
PARM(N, 8)  -  128./PI*VISC  (IT) *RH0(IT)/ (DIA**4 . )* 

(PARM (N , 1 ) +EQU I VL ) 

PARM (N, 9)  -  . 213*RHO  (IT) *(VISC**. 25) / (DIA**4 .75) 

* (PARM (N, 1)+EQUIVL) 

The  laminar  and  turbulent  flow  constams  are  set  to  1.0E-6  for  a  lossless  line 
(LDN(N,l)+2) .  The  above  steps  are  repeated  until  the  data  for  all  lines  are  calculated. 
The  data  is  then  printed.  A  constant  for  subsequent  interpolation  calculations, 
transition  flow  and  address  of  line  points  are  calculated  and  stored  for  each  line. 
Finally,  variables  used  for  plugged  and  open  connections  are  initialized. 

Dynamic  friction  entry  DYFRI  is  called  to  calculate  and  store  line  constants 
for  the  dynamic  pressure  loss  equation.  The  returned  value  of  DYFRI  is  multiplied 

times  two  and  stored  in  the  DYF(  )  array. 
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Section  2000 

The  laminar  and  turbulent  flow  constants  are  updated  to  allow 
calculation  of  pressure  drop  for  velocity  of  sound  *  DELT  length  of 
each  line. 

PARM(IND,8)=PARM(IND. 8)*PARM(IND. 7)*DELT/PARM(IND,1) 

PARM  (IND ,  9 )  -PARM  ( IND ,  9 )  *PARM  (  T.ND ,  7  )  *DELT/PARM  ( IND ,  1 ) 

The  pressure  and  flow  differences  for  each  line  are  divided  by  the  number 
of  line  increments  (number  of  line  points  -1) . 

DELP  =  (PPM1  -  PPM2) / (N-l) 

DELQ  *  (QQM1  -  QQM2)/(N-1) 

The  pressures  and  flows  are  next  calculated  and  stored  for  each 
interior  line  point.  Pressures  and  flows  on  the  upstream  and  downstream 
sides  are  interpolated  then  upstream  and  downstream  end  point  characteristics 
are  calculated  and  stored  for  all  lines 

C(LUP)  =  PPI-ZC*QPI+FRIC(QPI) 

C(LDWN)  -  PMI+ZC*QMI-FRIC(QMI) 

Section  3000 

A  DO  loop  is  used  to  calculate  the  values  for  each  line. 

DO  140  IND  -  1,  NLINE 

Pressures  and  flows  on  the  upstream  and  downstream  sides  are  interpolated  . 

PPI  -  PM (M)-PARM(IND, 3)* (PM(M)-PM(M+1)) 

QPI  -  QM (M) -PARM (IND ,  3)  *  (QM (M)  -QM (M+-1)  ) 

PM  I  -  PM  (M+N-l)  -PARM  (IND ,  3)  *  (PM  (M*-N-l)  -PM  (M+N-2)  ) 

QMI  -  QM  (M+N-l)  -PARM  (IND  (  3)  *  (QM  (M+N-l)  -QM  (M+N-2)  ) 
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Upstream  and  downstream  end  point  characteristics  are  calculated  and 
stored. 

C(IND*2-1)  -  PPI-ZC*QPI+FRIC (QPI) 

C(IND*2)  -  PMI+ZC*QMI-FRIC(QMI) 

If  there  are  only  2  points  for  the  given  line,  control  then  passes  to  the 
end  of  the  DO  loop. 

IF  (N.LE.2)  GO  to  140 

If  there  are  interior  points,  the  flows  and  pressures  at  these  points  are 
then  calculated.  Pressures  and  flox*s  on  the  upstream  and  downstream  sides 
of  interior  point  NPT  are  interpolated  and  steady  state  friction  for  each 
of  these  flows  is  calculated  by  calling  FRIC. 

FRICM  -  FRIC(QMI) 

FRICP  -  FRIC (QPI) 

The  decayed  dynamic  friction  value  is  calculated  by  calling  DFRICD . 

DYFRIC  -  DFRICD (QMI, MPT, JJ.JTEMP) 

The  characteristics  are  now  calculated  for  interior  point  NPT  . 

CL  -  +PMI+ZC*QMI -FRICM -DYFRIC 
CR  -  +PP I -ZC *QP I+FR ICP+DYFRIC 

The  first  approximation  of  the  pressure  and  flow  at  point  NPT  are  calculated  . 
P  (NPT)  -  (CR+CL)/2. 

Q  (NPT)  -  (CL-CR-K)M(MPT)*DYF(IND))/(2.*Z6+DYF(IND)) 

Friction  is  recalculated  using  the  new  flow  . 

FRICR-FRIC  (Q(NPT)) 

Dynamic  friction  is  updated  using  the  difference  between  new  and  old  flows. 
DYFRIC  *>DFRICU(DELQ,  MPT,  JTEMP) 
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^  ®  line  segment  is  cavitated,  the  dynamic  friction  terms  and  the  updated 
terms  are  set  to  zero  until  pressure  returns  to  the  line. 

Once  the  pressures  and  flows  for  all  points  have  been  calculated,  they 
are  stored  in  the  PM  and  QM  arrays. 

DO  130  I  =  2,  NPLINE 
PM(M+I-1)  =  P(I) 

QM(M+I-1)  -  Q(I) 

130  CONTINUE 

5.1.4  Approximations 

See  Section  III,  Paragraph  4  of  AFWAL-TR-80-2039 

5.1.5  Limitations 

See  Section  III  Paragraph  4  of  AFWAL-TR-80-2039 

5.1.6  Variable  Names 


A 

Velocity  of  Sound  in  Fluid 

IN/SEC 

BULKH 

Equivalent  Bulk  Modulus  of  Hose 

PSI 

CL 

Left  Running  Characteristic 

PSI 

CONST 

Constant-Line  Length/DELT 

IN/SEC 

CR 

Right  Running  Characteristic 

PSI 

DELP 

Pressure  Drop  for  DELX  Length 

PSI 
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DELQ 
DIA 
DYF(  ) 

DYFRIC 

EQUIVL 

FRICM 

FRJ.C? 

?RICR 

lx 

I  NO 
JJ 

.ITKMP 


Flow  Difference  for  DELX  Length 
Line  I.D. 

Dynamic  Friction  Constant  Array 

Dynamic  Friction 
Equivalent  Length  of  Line 

Pressure  Drop  for  DELX  Length  Using  Flow  QMI 
Pressure  Drop  for  DELX  Length  Using  Flow  QPI 
Pressure  Drop  for  DELX  Length  Using  Flow  Q  (N?T) 

Fluid  Temp/Pressure  Number 
Counter 

LSTART(IND)+NLPT(IND;-1 

LINE  CAVITATION  INDICATOR 


Cl  s 

IN 


PSi 

IN 


PUT 


PSI 


PFI 


LDWN 

LLPT 

LUP 

M 

MPM1 

MPP1 

MPT 

N 

NPLINE 

NPT 

PC 

PL  AST 

PM1 

PP1 

PPM1 

PPM2 


Downstream  Line  End  Address 
NLPT(IND)-! 

Upstream  Line  End  Address 
Dummy  Variable 

Address  of  Current  Upstream  Line  Point 
Address  of  Current  Downstream  Line  Point 
Address  LSTART(IND)+1 
Counter 
NLPT(IND) -1 


Current  Interior  Line  Point  PSI 

Percent  Error 

Past  Pressure  Value  PST 

Interpolated  Pressure  on  the  Upstream  Side  PSI 

Interpolated  Pressure  on  the  Downstream  Side  PSI 

Dummy  Variable 
Dummy  Variable 
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QLAST 

Past  Flow  Value 

— * 

QMI 

Interpolated  Flow  on  the  Upstream  Side 

CIS 

QPI 

Interpolated  Flow  on  the  Downstream  Side 

CIS 

QQM1 

Dummy  Variable 

— 

QQM2 

Dummy  Variable 

— 

REN 

Reynolds  Number 

— 

ZC 

Dummy  Variable 

-- 
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5.1.7  Subroutine  Listing 


SUBROUTINE  LINE 

COMMON  NT ELPL.NTOLPL , I PT , IPO INT , NPT  S , INEL , KNEL , NTOPL , NLPLT (61,3), 

1  PQLEG(90,12),LCS(90,10),ILEG(1400),PN(90) ,QN(90) 

COMMON/SUB/PARM( 150,9),PM(1500),QM( 1500) ,P( 300) ,Q(300) ,C(300) 

1 , Z( 300) ,RHO( 20) ,S2ORH0(20) , VI  SC ( 20) , BULK(20) ,TEKP(20) ,PVAP( 20) 

2 ,  ATPRES , T , DELT , TF INAL , PLTDEL , PI , TITLE ( 2  0) , LEGN , ICON 

3, KTEMP(99) ,LSTART( 150) ,NLPT(150) ,LTYPE(99) ,NC(99) ,INX,INZ 

4, INV, ISTEP,NLINE,NEL, IND, IENTR,MNLINE,MNEL,MNLEG ,MNNODE,MNPLOT 
5.MNLPTS.MDS 

THIS  SUBROUTINE  SIMULATES  LINES  AS  DISTRIBUTED  PARAMETER  SYSTEMS 

USING  THE  METHOD  OF  CHARACTERISTICS 

DIMENSION  LDN( 150, 7) ,LC ( 300) , DYF ( 1 50) ,LTEMP(150) 

EQUI VALENC  E ( ILEG ( 1 ) , LDN ( 1 ) ) , ( C ( J ) , LC ( 1 ) ) 

IF(IENTR) 1000,2000, 3000 
1000  CONTINUE 

TI'rr  no  iDS  LINE  DASH  NUMBERS  (LDN)  AND  LINE  PARAMETERS  (PARM) -SEE 
N  ..-.DIVIDUAL  LINE  NUMBER 

LDN (.,1) -LINE  TYPE 

LDN(. ,2)-PERCENTAGE  INCREASE  IN  LINE  LOSS 
LDN (. ,3) -NUMBER  OF  45  DEG  ELBOWS 
LDN (. ,4) -NUMBER  OF  90  DEG  ELBOWS 
LDN (. ,5) -TOTAL  OF  BEND  ANGLES  .LT.  90  DEG  DEG 

LDN (. ,6) -TOTAL  OF  BEND  ANGLES  .GE.  90  DEG  DEG 

LDN ( . , 7 ) -  FLUID  TEMPERATURE/PRESSURE  NUMBER 
C***  PARM(. ,1)-LENGTH 
C  PARM( . ,2)-LINE  OD  IN. 

C  PARM(. ,3)-WALL  THICKNESS/CCNSTANT 

C  PARM (. ,4) -MODULUS  OF  ELASTICITY  PS I /TRAN SIT ION  FLOW  FOR  GIVEN 

C  REN.DIA  +  DENSITY  IN**3/SEC 

DO  1100  I-l.NLINE 

READ(5, 1300)  N, (LDN(N, J) , J-l , 7) , (PARM(N, J) , J-l ,4) 

1300  FORMAT  (  8I5.4E10.0) 

IF  (LDN  (N,  7) )  10,  20, 30 
10  LDN(N, 7)-10-LDN(N, 7) 

GO  TO  30 
20  LDN (N , 7)-l 
30  CONTINUE 

LTEMP(N)«LDN(N, 7) 

IF(I.NE.N)  WRITE(6, 430)  N 

430  FORMAT  (  43H  THE  LINE  CARDS  ARE  OUT  OF  ORDER  AT  NUMBER  ,  15) 

1100  CONTINUE 


“it 
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C  REN  -REYMOLD*S  NUMBER 

C  EQUIVL-EQUIVALENT  LENGTH 

C ***  PARM(. ,5)«DELX 

C***  PARM(.  ^-CHARACTERISTIC  IMPEDANCE 
C***  rAKil(.  ,7)-VEL0CITY  OF  SOUND  IN  THE  LINE 

PAIL1(  .  ,8)-LAMINAR  FLOW  CONSTANT  FOR  GIVEN  DIA.VISC  +  DENSITY 
PARM( . ,9) -TURBULENT  FLOW  CONSTANT  FOR  GIVEN  DIA.VISC  +  DENSITY 
PAi<ii(  •  ,2)  IS  INPUTED  AS  LINE  OD  AND  CONVERTED  TO  LINE  ID 
REN- I 200 
N-l 

DO  SO  N-l, KLINE 
IT— LDN( N ,7 ) 

M-N*2 
LC(M)-1 
lc(:i-i)-i 

IF ( LDN ( N , 1 ) . LT . 1 0 )  GO  TO  65 
LC(rf)— 1 

LDN(N , I )-LDN( N, 1 )— 10 
65  I F ( LDN ( K , l ) . KQ . 1 )  GO  TO  70 

PAitM(  N ,  2  ) -PARM(  N  ,  2  )-PARM(  N ,  3  )  *  2 . 0 
A- 1 . 8* ( PaRM(N , 3 )+PAKM( N , 2 )/ 2 . 0) *BULK( IT) 

A*BULK(  IT ) /  (  RHO(  IT) *  ( 1 . CH-A/ (  PARM(  N ,  4 )*?ARM( N .  3 )  )  )  ) 

1F(LDN(N , 1 ) -EQ .2 )A-BULK( 1T)/RH0( IT) 

GO  TO  75 

70  iiULKll-BULK(IT)*PARi'I(N,A)/(BULK(IT)+PARM(N,4)) 

A-BULKH/RHO( IT) 

75  A-SQRT(A) 

PARM(N ,6)-RH0(  IT)*A*4 .0/ (PI*PAR!i(.N,2)**2) 

CONST-PARH( N , 1 )/OELT 
I F ( CONST . GE . A )  GO  TO  78 
PC- 100. -CONST* 100. /A 
WRITE ( 6 ,300)N , PC 
A-CONST 

78  PARM(N,7)-A 
NLPT(N)»C0NST/A+1 .01 
PAR*i(.N , 5)-PARH(N ,  1 )  /  (NLPT(N)-l  ) 

IF ( LDfi( N ,  1 )  . EQ . 2  )G0  TO  79 
JJ-1 

IF(LDN(N,6).EQ.0)JJ-0 

EQU1VL-PARM(N,2)*(LDW(N ,3)*12+LDN(N,4)*57.0+LDN(N,5)/45.*4.65+ 

1  (LDN(N,6)/90.+l .)*3.75*JJ)+PARM(N,l)*LDN(N,2)/100 

DIA-PAKM(  *«  ,  2  ) 

PARM(N,8)-128./PI*VISC( IT) *RUO( IT) /(DIA**4 . )*(PARH(N , 1)+EQUIVL) 
PAtlM(  N ,  9  )- .  2 1 3*RH0(  IT)  *  (  VI  SC  ( IT  )  ** .  2  5  )  /  (  DIA**4 . 7  5)  *  (  PARM(  N ,  1 ) 
l+L’^UIVL) 

CO  TO  80 

79  PAKM(N,8)-i .0E-6 
PARM(N,9)— 1 .OE-6 

80  CONTINUE 
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WRITE(6, 340) 

WRITE(6,350)((I),(PARM(I,J),J-1,7),I-1,NLINB) 

M— 1 

LSTART(1)-1 
DO  90  N-l.NLINE 
IT-LDN(N,7) 

PARM(N, 3)-PARM(N, 7)*DELT/PARM(N, 5) 

PARM(Nf  4)-. 7854*REN*PARM(N, 2)*VISC(IT) 

M-M+2 

IF(LSTART(N)+NLPT(N) .GT.MNLPTS-2)  GO  TO  252 
LSTART (N+l ) -NLPT ( N )+LSTART ( N ) 
DYF(N)-DYFRI(DELQ,IT,I,N)*2. 
IF(LDN(N,l).EQ.2)DYF(N)-0.0 
Z(M)-PARM(N,6) 

Z(M+1)-Z(M) 

90  CONTINUE 
C*** 

C  INITIALIZE  VARIABLES  USED  FOR  PLUGGED  AND  OPEN 
C  CONNECTIONS,  (MNLINE) -PLUGGED,  (MNLINE-1 )-OPEN 
LSTART (MNLINE) -MNLPTS-I 
NLPT (MNLINE )-2 
N-MNLINE*2 
C(N)-0.0 
C(N-I)-ATPRES 
Z(N)-1,0E25 
Z(N-1)-1. OE— 10 

C***  JUNK  WILL  BE  STORED  IN  PM(MNLPTS-4)  THRO  PM(MNLPTS-l) 
C***  LIKEWISE  FOR  QM( ) 

IF(NLINE.GT. MNLINE-1)  GO  TO  252 
RETURN 

252  WRITE(6,475)  NLINE.LSTART(NLINE) .NLPT(NLINE) 
WRITE(6,999) 

999  FORMAT ( 1 OX , 3 1HPROGRAM  STOP  IN  SUBROUTINE  LINE) 

STOP  5101 

475  FORMAT ( 5X , 9HERROR  #5  ,3110) 

2000  CONTINUE 

DO  2020  INO-l.NLINE 
IND-INO 

PARM 'IND , 8) -PARM ( IND , 8 ) *PARM< IND , 7 ) *DELT/PARM ( IND , 1 ) 
PARM(IND,9)-PARM(IND,9)*PAKM(IND,7)*DELT/PARM(IND,1) 
ZC-PARM(IND, 6) 

N-NLPT(IND) 

M-LSTART(IND) 

PPMl-PM(M) 

PPM2«PM(M-1+N) 

DELP-(PPM 1-PPM2) / (N-l ) 

QQMl-QM(M) 

QQM2-QM(M-l+N) 

DELQ-(QQH1-QQM2)/(N-1) 

LLPT-N-1 
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DO  2010  I-2.LLPT 
PPM1-PPM1-DELP 
QQM1-QQM1-DELQ 
PM(M-1+I)-PPM1 
QM(M-1+I) -QQM1 
2010  CONTINUE 

LUP-IND*2-1 

LDWN-IND*2 

P(LUP)-PM(M) 

Q(LUP)— QM(M) 

P(LDWN)-PM(M+N-1) 

Q(LDWN)-QM(M+N-1) 

C*** 

C  CALCULATE  CR  FOR  UPSTREAM  ENDPOINT 

PPI-PM(M)— PARM(IND, 3) * <PM(M)-PM(M+1 ) ) 

QPI-QM(M) -PARM (IND, 3) *(QM(M)-QM(M+1 ) ) 

PM I -PM ( M+N- 1 ) - P ARM ( I ND , 3 ) * ( PM ( M-rtl - 1 ) -PM ( M+N - 2 ) ) 

QMI -QM (M+N- 1 ) -PARM ( IND , 3 ) * (QM (M+N- 1 ) -QM (M+N-2 ) ) 

C ( LUP ) -PPI -ZC*QPI+FRIC ( QPI ) 

C  CALCULATE  CL  FOR  DOWNSTREAM  END  POINT 
C(LDWN)  -PMI+ZC*QMI-FRIC.  (QMI) 

2020  CONTINUE 
RETURN 

3000  CONTINUE 

DO  140  INO-1 , NLINE 
IND-INO 

ZC-PARM(IND, 6) 

N-NLPT ( IND) 

M-LSTART ( IND ) 

JJ-M+N-1 

JTEMP-JJ 

NPLINE-N-1 

IF (PM(M) . LE. PVAP (LTEMP ( IND) ) .OR. PM( J J) <LE. PVAP (LTEMP (IND) ) 
+)  JTEMP— 1 

C  CALCULATE  CR  FOR  UPSTREAM  ENDPOINT 

PPI-PM(M)— PARM(IND, 3)*(PM(M)-PM(M+1) ) 

QPI-QM (M) -PARM ( IND, 3)*(QM(M)-QM(M+1 ) ) 

PMI-PM(M+N-1 ) -PARM ( IND , 3) * (PM (M+N- 1 ) -PM (M+N- 2 ) ) 
QMI“QM(M+N-1)-PARM(IND, 3)*(QM(M+N-l)-QM(M+N-2) ) 
C(IND*2-l)-PPI-ZC*QPI+FRIC(QPI) 

C  CALCULATE  CL  FOR  DOWNSTREAM  END  POINT 
C ( IND*  2 ) -PMI+ZC*QMI-FRIC ( QMI ) 

IF(N.LE. 2)  GO  TO  140 
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ALGORITHM  FOR  INTERIOR  POINTS  OF  LINES 
NPT-2 
MPT  -M4l 
100  CONTINUE 
MPP1“MPT+1 
MPM1-MPT-1 

INTERPOLATION  ROUTINE 

PPI  -  INTERPOLATED  PRESSURE  ON  THE  PLUS (DOWNSTREAM)  SIDE 
PM I  -  INTERPOLATED  PRESSURE  ON  THE  MINUS (UPSTREAM)  SIDE 
SIMILAR  NOTATION  IS  USED  FOR  FLOWS 
QPI -QM (MPT ) -PARM ( I ND , 3 ) * (QM (MPT ) -QM (MPP 1 ) ) 

PPI“PM(MPT)~PARM(IND, 3)*(PM(MPT)-PM(MPP1) ) 

PMI«PM(MPT ) -PARM ( IND , 3 ) * (PM(MPT ) -PM (MPM1 ) ) 

QMI»QM(MPT)-PARM(IND , 3) *(QM(MPT)-QM(MPM1) ) 

C  FIRST  APPROXIMATE  CL  4  CR 
FRICM-FRIC(QMI) 

FRICP-FRIC(QPI) 

DYFRIC-DFRICD ( QMI , MPT , J J , JTEMP) 

IF(FRICM.£Q.O.O)DYFRIC-O.0 

CL-PMI4ZC*QMI-FRICM-DYFRIC 

CR«PPI-ZC*QPI4FRICP+DYFRIC 

C  CALCULATE  PRESSURE(P)  AND  FLOW(Q)  USING  THE  ABOVE  APPROXIMATIONS 
P(NPT)-  (CR4CL) /2 • 

Q (NPT ) -  ( CL-CR4QM(MPT )  *DYF  ( IND )  ) /  (  2 .  *ZC4DYF ( IND )  ) 

DELQ-Q ( NPT ) -QM (MPT ) 

DYFRIC-DFRICU (DELQ , MPT , JTEMP , M) 

MPT  -MPT41 
NPT-NPT41 

IF(NPT.LE.NPLINE;  GO  TO  100 

C  AFTER  FINDING  P  4  Q  FOR  THE  WHOLE  LINE,  PUT  THESE  VALUES  INTO  PM  4 
DC  130  I-2.NPLINE 
PM(M4I-1)-P(I) 

QM(M4I-1)-Q(I) 

130  CONTINUE 
1  AO  CONTINUE 


300  FORMAT (/ , 5X, 44HFIX-UP  TAKEN  AT  LINE  18.VFL  OF  SOUND  IN  LINE, 14, 2X, 
12HIS.F8. I, 17HPER  CENT  IN  ERROR) 

340  FORMAT ( / / , 1 OH  LINE  DATA,/ , 9H  LINE  NO. , 8X, 6HLENGTH, 9X, 8HINTERNAL 
1 • 7X, 4HWALL, 1 IX, 10HMODULUS  OF , 5X, 4HDELX, 1 IX, 1 4HCHARACT ERISTIC , 

212H  VELOCITY  OF  ,/,32X, 

3  3HDLA, 12X.9HTHICKNESS, 6X, lOHELAS^ICITY, 20X, 9HLMPEDANCE 

4.11H  SOUND) 

350  FORMAT (/ IX, 15, 10X,F8.4, 7X.F8.4, 7X,F8.4,7X,  E10. 3, 5X, F8. 4, 7X, F8. 4, 

16X.FU.4) 

360  FORMAT ( IX, 5X, I5.6E12.5) 

RETURN 

END 


i 
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C  REN  -REYNOLD*S  NUMBER 

C  EQUIVL-EQUIVALENT  LENGTH 

C***  PARM(. ,5)-DELX 

C***  PARM ( . , 6 ) -CHARACT ERI STIC  IMPEDANCE 
C***  PARM ( • , 7 ) - VELOC IT Y  OF  SOUND  IN  THE  LINE 

C  PARM(\  ,8)-LAMINAR  FLOW  CONSTANT  FOR  GIVEN  DIA.VISC  +  DENSITY 
C  PARM( • , 9) "TURBULENT  FLOW  CONSTANT  FOR  GIVEN  DIA.VISC  +  DENSITY 
C  PARM (  . ,  2 )  IS  INPUTED  AS  LINE  OD  AND  CONVERTED  TO  LINE  ID 
REN-1200 
N-l 

DO  80  N-l.NLINE 
IT«LDN(N, 7) 

M-N*2 
LC(M)-1 
LC(M-1 )-l 

IF (LDN(N , 1 ) .LT. 10)  GO  TO  65 
LC(M)— 1 

LDN(N, 1)-LDN(N, 1)-10 
65  IF (LDN (N , 1 ) .EQ. 1)  GO  TO  70 

PARM(N, 2)-PARM(N, 2)-PARM(N, 3)*2.0 
A-1.8*(PARM(N,3)+PARM(N,2)/2.0)*BULK(IT) 

A-BULK(IT) / (RHO(IT) * ( 1 . 0+A/ (PARM(N, 4) *PARM(N , 3) ) ) ) 
IF(LDN(N,l).EQ.2)A-BULK(IT)/RHO(IT) 

GO  TO  75 

70  BULKH-BULK(IT) *PARM(N,  4) / (BULK( IT)+PARM(N , 4) ) 

A-BULKH/RHO(IT) 

75  A-SQRT(A) 

PARM(N , 6)-RHO( IT) *A*4 . 0/ (PI*PARM(N, 2) **2) 

CONST-PARM(N, 1)/DELT 
IF (CONST. GE. A)  GO  TO  78 
PC- 1 00 . -CON  ST* 1 00 • / A 
WRITE(6, 300)N,PC 
A-CONST 

78  PARM ( N , 7 ) -A 
NLPT(N)«CONST/A+1.0! 

PARM(N, 5)-PARM(N, i)/(NLPT(N)-l) 

IF(LDN(N, l).EQ.2)GO  TO  79 

EQUIVL-PARM(N, 2)*(LDN(N, 3)*1 2+LDN (N, 4) *57. 0+LDN(N , 5) /45. *4 . 65+ 

1  (LDN(N, 6) /90.+1 . )*3. 75)+PARM(N, l )*LDN(N, 2)/ 100 

DIA-Pi.RM(N,2) 

PARM(H,8)-128./PI*VISC(IT)*RHO(IT)/(DIA**4.)*(PARM(N, 1)+EQUIVL) 
PARM(N, 9)*. 213*RHO(IT)*(VISC(IT)**.25)/(DIA**4.75)*(PARM(N,l) 
1+EQUIVL) 

GO  TO  80 

79  PARM(N,8)-i.0E-6 
PARM(N,9)-1.0E'-6 

80  CONTINUE 
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APPENDIX  Q 
SUBROUTINE  DPRICD 

HYTRAN  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  II) 


5.3  SUBROUTINE  DFRICD 

Function  DFRICD  is  used  by  LINE  to  calculate  pressure  loss  due  to 
dynamic  friction  caused  by  local  fluid  acceleration.  The  theory  used  (see 
Reference  paragraph  9.4)  provides  an  efficient  method  for  determining 
dynamic  friction  that  gives  close  correlation  with  experimental  results. 

5.3.1  Math  Model 

The  theory  used  for  the  basis  of  this  subroutine  is  described  in  the 
paper  noted  in  Reference  paragraph  9.4.  Equation  (29)  of  the  referenced 
paper  is  the  expression  used  to  describe  the  combined  steady  state  and 
dynamic  pressure  losses  under  laminar  flow  conditions. 

f  (t+At)  -  V  (t)  +  (y^  +  y2  +  y3) 

a  a 

Substituting  equation  (35)  into  equation  (33)  produces  the  following  expressions 
for  y^  y2  and  y3 

-8000*A*v/a2 

yx  (t  +  At)  -  yx  (t)  *e  +  40.*  (V  (t  +  At)  -  V  (t)) 

-200*  At*v/a2 

y2  (t  +  At)  -  y2  (t)  *e  +  8.1*  (V  (t  +  At)  -  V  (t)) 

-26.4*At*v/a2 

y3  (t  +  At)  -  y3  (t)*e  +  (V  (t  +  At)  -  V  (t)). 

Each  expression  for  y  at  time  t+At  contains  a  decayed  pressure  at  t 
added  to  a  pressure  loss  caused  by  a  change  in  fluid  velocity. 

Converting  velocity  to  volumetric  flow  rate  and  I.R.  to  I.D.  yields 
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f (t+At) 


128  *p*v*Q  (t)  16  *p*v  * 

.  4  2 

v  *  D  D 


[y1  (t)*e 


-8000  *  «***«/!>'  +  ,  {Q  (t+it)  .  q  (t))  ] 


+  [y2  (t)*e 


-200  *At  *  v*4/D  4*8.1 

+  1T*D2 


(Q  (t  +  At)  -  Q  (t))  ] 


-26.4  *At  *v*4/D' 


+  [y3  (t)*e 


+  n^2  (Q  (t  +  At)  -  Q  (t))  ]  J 


Since  the  first  term  in  the  equation  is  steady  state  pressure  drop  for 
laminar  flow,  it  is  omitted  in  this  subroutine.  The  dynamic  pressure  drop 
equation  can  tnen  be  written 


f  ( t+A  t )  =  *y  (t)*e 

D* 

16  *  160 


-8000*At*v*4/D 


ir*D 

16*p*v 


*  (Q  (t+At)  -  Q(t) ) 


-200*At*v*4/D" 


*  y2  (t)*e 


16  *  32.4 


7T*D 

16*p*y 


*  (Q  (t+At)  -  Q  (t)) 


-26 . 4*At*v*4/D 


D 

16*4 


*  y3  (t)*e 


T  *  (Q  (t+At)  -  Q  (t)) 
ir*D 

This  equation  is  used  to  calculate  turbulent  as  well  as  laminar  flow  pressure 
drops  under  dynamic  conditions  since  little  is  known  about  the  effects  of 
dynamic  friction  under  turbulent  flow  conditions. 

In  the  subroutine,  pressure  loss  at  time  T  to  be  decayed  is  expressed  by 
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16*o*v 


*  Y 


1,2,3 


and 


is  actually  the  latest  Y  value  calculated  by  entry  DFRICU.  The  first  time 
through  the  3000  section  of  line  (i.e.,  T  =  DELT),  the  decayed  pressure  values 
are  set  to  zero. 

5.3.2  Assumptions 

See  Reference  (4) . 

5.3.3  Computation  Methods 

Entry  DYFRI  is  called  from  the  2000  section  of  LINE.  The  purpose  of  this 
entry  is  to  calculate  and  store  the  dynamic  pressure  loss  equation  constants 
for  all  lines.  The  constants  are  summed  and  return  to  the  line  subroutine, 
where  the  value  is  stored  for  later  use.  DFRICD  is  next  called  from  the  3000 
section  of  LINE.  New  Y  values  are  calculated  using  past  Y  values  multiplied 
by  their  decay  factors.  Yl,  Y2  and  Y3  are  summed  and  set  equal  to  YTOTAL . 

This  decayed  value  of  pressure  loss,  YTOTAL,  at  program  time  T  -  DELT  is 
returned  to  LINE  which  uses  it  in  the  first  iteration  of  each  time  step  to 
calculate  flows  and  pressures  at  a  given  interior  line  point.  DFRICU  entry 
Is  made  from  the  3000  section  of  LINE  and  is  used  to  update  the  Y  values  of 
DFRICD  using  changes  in  flow.  YTOTAL  is  set  equal  to  Y0LD  and  all  Y  values  are 
updated.  Yl,  Y2  and  Y3  are  next  summed  and  set  to  YTOTAL.  Y0LD  is  subtracted 
from  YTOTAL  and  the  resulting  value  is  returned  to  LINE. 

Whenever  the  LINE  segment  is  cavitated  the  appropriate  decay  factors 
and  DFRICD  are  zeroed. 

5.3.4  Approximations 

The  method  of  calculating  frequency  dependent  friction  is  in  itself 
an  approximation  of  the  exact  expression.  The  method  was  chosen  to  conserve 
computer  core  and  computation  time. 

5.3.5  Limitations 


See  Reference  (4). 
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DFRICD 


ENTRY  DFRICU 


DFRICD  FLOW  DIAGRAM 
FIGURE  5.3-1 
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5.3.6  Variable  Names 


Variable  Description  Units 


CONST 

Constant  In  dynamic  pressure  loss 

equation 

— 

DELQ 

New  flow  -  Old  flow 

CIS 

DFRlCD 

Dummy  variable 

— 

DIA 

I.D.  of  tube 

IN 

EX1 

Constant  In  dynamic  pressure  loss 

equation 

— 

EX2 

Constant  In  dynamic  pressure  loss 

equation 

— 

EX3 

Constant  in  dynamic  pressure  loss 

equation 

— 

JJ 

Address  LSTART(N)  +  NLPT(N)  -1 

— 

M 

Address  LSTART(N) 

— 

MM 

Address  LSTART(N) 

— 

MPT 

Address  LSTART(N)  +1 

— 

M 

Counter  indicating  assigned  line  number 

— 

YOLD 

Dummy  variable 

— 

YTOTAL 

Decayed  value  of  pressure 

PSI 

Y1  (  ) 

Array  for  Y1  valves 

— 

Y2  (  ) 

Array  for  Y2  values 

— 

Y3  (  ) 

Array  for  Y3  values 

— 
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5.3.7  Subroutine  Listing 


FUNCTION  DFRICD(DELQ,MPT, JJ,M) 

C  ***  REVISED  AUGUST  5.  1975  *** 

COMMON/ SUB/PARM( 150, 9),PM(I500),QM(1500),P(300) , Q( 300) ,C (300) 

1, Z(300) ,RH0(20) ,S2ORHO(20) ,VISC(20) ,BULK(20) ,TEMP(20) ,PVAP(20) 

2, ATPRES,T,DELT,TFINAL, PLTDEL.PI ,TITLE(20) ,LEGN, ICON 

3,  KTEMP(99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC (99) , INX,INZ 

4, INV,ISTEP,NLINE,NEL,IND, IENTR,MNLINE,MNEL,  MNLEG.MNNODE.MNPLOT 

5,MNLPTS,MDS 

DIMENSION  Y1 ( 1500) ,Y2( 1500) ,Y3( 1500) 

DATA  Yl,Y2,Y3/4500*0.0/ 

IF (M.LT. 0)GO  TO  10 
Y 1  (MPT )  -Y 1  (MPT  )  *Y  1  (  J  J ) 

Y2(MPT)-Y2(MPT)*Y2(JJ) 

Y3(MPT)-Y3(MPT)*Y3(JJ) 

YTOTAL-Y 1 (MPT )+Y2 (MPT ) +Y3 (MPT ) 

DFRICD-YTOTAL 
C  DFRICD-0.0 
RETURN 

10  Y 1 (MPT)-O . 0 
Y 2 (MPT) “0.0 
Y3(MPT)“0 • 0 
20  DFRICD-0.0 
RETURN 
ENTRY  DFRICU 
IF(JJ.LT.O)GO  TO  20 
YOLD-YTOTAL 

Y1 (MPT)-Yl (MPT)+DELQ*YI (M) 

Y2 (MPT ) -Y2 (MPT ) +DELQ* Y2 (M) 

Y3 (MPT ) -Y3 (MPT ) +DELQ*Y  3 (M) 

YTOTAL-Y 1 (MPT ) +Y  2 (MPT ) +Y  3 (MPT ) 

DFRICD-YTOTAL-YOLD 
C  DFRICD-0.0 

RETURN 
ENTRY  DYFPvI 

C  IBM  360  -  ZERO  Y1,Y2,Y3  ARRAYS  HERE 

RAD-PARM (M , 2 ) / 2 • 0 
MM-LSTART (M) 

JJ-MM+NLPT (M)-l 

CONST-PARM (M , 7 ) *DELT*RHO (MPT ) *VISC (MPT ) / ( PI*RAD**4 • ) 

Y1 (MM)-160-*CONST 
Y2(MM)-32.4*CONST 
Y3(MM)-4.*CONST 
C0NST-DELT*VISC(MPT)/RAI)**2. 

EX1— 8000.*CONST 
EX2— 200.*CONST 
EX3--26. 4*C0NST 
Y 1  (JJ)-EXP(EXl) 

Y2(JJ)-EXP(EX2) 

Y3(JJ)-EXP(EX3) 

DFRICD-Y1 (MM)+Y2(MM)+Y3(MM) 

RETURN 

END 


638 


« 


APPENDIX  R 

TYPE  #61  CONSTANT  PRESSURE  RESERVOIR 
HYTTHA  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  VII) 


FIGURE  6.61-1 

TYPE  NO.  61  CONSTANT  PRESSURE  RESERVOIR 


The  Type  #61  constant  pressure  reservoir  which  is  used  for  test  simula¬ 
tion  purposes,  requires  only  the  connection  information  the  reservoir 
pressure,  fluid  and  wall  temperatures.  Any  of  the  four  connections  not  used 
are  blanked  off.  The  temperatures  are  considered  to  be  constant. 

The  user  may  input  a  variable  fluid  temperature  profile  by  specifying 
the  number  of  data  points  in  columns  56-60  of  card  number  one.  The  fluid 
temperature  at  a  particular  time  will  be  derived  from  the  tabulated  input  data 
input  on  the  third  and  fourth  data  cards. 
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TRSVR61 

CARD  NUMBER  1 


66-70 


71-75 


76-80 


Component  Number 


Type  Number  **  61 


Number  of  Real  Data  Cards  =  ; 


Line  Number  (with  sign)  attached  to  Connection  1 


Line  Number  (with  sign)  attached  to  Connection  2 


Line  Number  (with  sign)  attached  to  Connection  3 


Line  Number  (with  sign)  attached  to  Connection  4 


Enviro 


Number  of  Temperature  Data  Points 


16  61  1  v  -10 


6  ’  «  1  H  I1M  »  ;a  71  W  l>  U  11  U  P  lb  U  H  15  40  61  •  »  4.1  44  46  4€  *'  ••  45  60  *•  '  ?  V  64  56  If.  V  N  ij  t  6?  • 


<4  .S  «T  I«  <h  70  /I  7/  »i  i*  16  ?*  ?r  »•  ?»  jo  i-  »?  1J  ' 


ST  *, *  i»  56  ST  5*  59  60 


1 1  o  a  o;i  o  1 1  i|o  1 1 1  m  1 1 1  o  t  o  3 1  |;i  1 1 1 1 1 1 1 1  tit  m  1 1 1 1 1 1  i;m  1 1  m  t  m  •  1 1  ijg  3 1 1  i  o  o  1 1 1  o  t  i;i  1 1 1 1 


!  i  ’  »  t  n  ii  if  •)  n>  Jh  i*  i  if  ii  i>  jr  ;i  it  n  ini  h  ii  m  n  m  »,m  imhikimhim  uim  imi  hm  h  w  d  u  r  iinui'  »*  m  ij,»  v  m  n  >i  In  17  u  i«  um  imi  n  n 

1  I  iB  ijl  I  I  ij  I  I  I  15.11  II  M  1  l»  l|l  II  I  II  •  I  IIM  I  II  I  I  II  I  i;m  I  II  I  I  I  I  IM  II  I  I  I  M  I  PI  I  H  i'll  I  I  l|M  I  I  I 
7  7  7  7  7;7  7  7  ?  7  7  7  7  7  7  7  7  2  7  7  7  7  ?|?  7  7  }  7  7  7  1  7  ?;?  7  2  7  ?  7  7  ?  7  ?■?  7  7  7  7  ?  7  7  7  ?|?  7  7  7  7  7  7  7  7  7j2  7  7  7  2j7  7  7  3  ?;2  7  7  7  7 

3  3  3  3  3;3  3  3  3  3  3  3  3  3  3;3  3  •  3  3  1  3  i  3  3^3  3  ‘  3  3  3  3  3  3  3;3  3  3  3  3  3  3  3  3  3'3  3  3  3  3  3  3  3  3  3;3  3  3  3  3  3  3  3  3  3;3  3  3  3  3^  1  3  3  3|3  3  3  3  . 

4  4  4  4  4<4  4  4  4  4  4  4  4  4  4'4  4  4  4  4  4  4  4  4  4'4  4  4  I  I  4  4  4  4  4'4  4  4  4  4  4  4  4  4  4U  •  4  4  4  4  4  4  4  4'4  4  4  4  4  4  4  4  4  4,4  4  4  '  '[4  4  4  4  4'4  I  4  4  4 

i  j  *  1  j»  ■  •  i  »•  "  imi  m  *i|il  <mi  11  n  r  ?>  n  n  ?){n  n  in  a  ji  m  ii  u  n[i»  v  u  n  *:  «i  »?  11  m  *i  u  «i  *  n  >;  \«  m  a,*  v  m  »*  m  i  i:  »i  (4  n,u  *■  u  u  t  ><  *  ;i  n  i»J •«  >c  r«  n 

5  5  5  5  5-5  5  $  5  5  5  5  5  5  S'S  S  S  5  5  5  5  5  5  S'S  5  5  5  b  S  5  5  5  S'S  5  5  S  5  S  *  S  5  S'5  5  5  5  5  S  S  5  5  S'S  5  S  S  S'S  S  5  5  S  5  5  5  S  5  5  5  S  5  5*5  5  5  5  5 

*  ;  1  '  ;  I  ]  * 

J  8  4  el'l  4  (|  9  t  t  $  I  M  5  I  i  I  i  (5  (  (  S  6  I  i  lit  6  6  I  !•«  i  I  I  I  i  i  3  I  M  I  II I  i  t  9  I  il  4  f  i  I1!  f  li  I  S'S  i  I  h  i  I  I  6  F.  S'S  M  9  6 

MCOOWfU  AUTOMATON  COMPANY  [  J  |  ! 

I  7  I  7  7  7  7  I  I  I  I  I  I'l  '  I  7  J)  I  I  7  I'l  7  7  |  ,.M  •  j  f'J  7  7  7  III  7  I  7  IP  :  I  I  7  .  I  I  7  7'7  7  7  I  I  I  I  I  I  I'l  I  I  I  11  J  I  I  |.|  I  1  I  7  *1 

,  .  .ii  .  .  .  r  j 

I  *  !  4  II  II  I  I  I  I  I  I II  I  I  I  1 1  I  I  4  II  I  1 1  I  jl  1 1 1  14  1 1  4  ill  I  I  I  It  I  1 1 1  I  I  I  I  i'i  I  I  II  I  I  I  I  II  I  I  I  I  I  I  I  |  I  'l  1 1  |  I 

1 1 ii m m 1 1|« 1 1 ii!m i il i ii iiin ii i|ii ii i,’i i » i tit 1 1 1 i|i m i ijn 1 1 tit 1 1 1 1 1 1 1 1 i|i 1 1 ii 1 1 1 1 ill n ii  * 

'  I  I  .  .  I  •  .  HU  I  ’  .1  -I  '•  '  >1  1  II  I.  'Ill  I.  M  I.  H  M  I  II  «  U  U  It  I  |.  »  H  4  11  I*  .1  H  .1  M  i  <1  il  mill  Hu  .1  V  li  UUU  I  «  I)  M  II  H  i’  U  H  'I  .  ..  'I  ■<  >1  '■  I1H 


3  3  3  3  3|3  3  3  3  3;3  3  3  3  3  7  1  3  3  3|3  3  3  3  . 

4  4  4  4  4>4  4  4  4  4,4  4  4  '  ‘‘4  4  4  1  44  <  4  4  4 

M  11  II  il  MU  (  Vi  £4  13, U  *'  U  81  7»j"  ■’  ;)  II  uj'l  'I  1*  n 

5  S  S  S  S|S  S  S  S  S'S  S  S  S  5  5  S  S  5  S'S  S  5  5  S 


nm|n!ii|Tnn|niiPi)!M«; 
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TRSVR61 
CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Reservoir  Pressure 

PSI 

11-20 

E10.0 

Fluid  Temperature 

mam 

21-  30 

E10.0 

Wall  Temperature 

1 

°F 

31-40 

E10.0 

41-50 

E10.0 

51-60 

El  0.0 

61-70 

E10.0 

| 

71-80 

_ 

E10 . 0 

EXAMPLE  CARD 


i  S  5  0 , 


2  i  •  S  *  T§8  » 


IPS. 


1*5, 


I  17  ij  l«  15  1 


it  >5  20  >i  ft  f»  l*  I  H  r  n  »  JO  SI  JP  U  U  >5  W  Jl  VI  Vj  40  41  4f  44  44  45  44  *i  48  4*  50  5'  5f  5J  54  »»  M  V  58  5»  80  fti  It  |!  |« 


1  >456  T  4  •  IO  II  It  IS  14  15  I*  If  l«  19  fO  tl  22  fj  24  2ft  74  27  2ft  2ft  SO  il  J?  U  >4  45  V>  J7  Jft  M  * 0 


OMOMIISI 

«  i  i  «  1 1  •  i  i  » ti| 

1  i  i  i  iji  i  i  m 

2  2  2  2  2P  2  2  2  2 

m:ioijj§ 

4444  4<4  4444 

I  I  <  t|t  111! 

5  5  S  5  5|5  5  5  5  5 
II  Mljl  II  H 
m  1 1  i;i  1 1 7 1 

1 1 1 1  in  1 12 


I  M  I  I'M  II  I 

ii  ir  it  n  n 

'em 


M  I?  ii  H  ti 

Mill 
7  2  2  2  2 


4  4  4  4  4 

n  ii  ii  ii  ii 

5  5  5  5  5 


i  tin 


4  4  4  4  4 

II  II  l|  II  Hi 


lllll'MIll 

r  ii  n  1 1  n|n  ii  n  n  »| 
I  1  I  I  I'l  1  I  1  I 


2  7  7  2  7i2  7B2  2(2  7  7  2  2'2  ?  7  7  2 


i  n  i;t  i 

it  u  h  iiiu  ii 

1  I  I  l|l  I 

2  7  2  7'7  7 

)  )  I  I'l  1 

I 

|4  4  4  4  4i4  4 

41  41  41  44  Itjft  41 

5  b  5  5  S'*  5 

III  M  M  M  Mid  (  I  I'M  M  ill  M  M'H  M  III  i  M  lilt 

MCDONNELL  AUTOMATION  COMPANY  | 


1  3  1  )  10  1  3  1  1  3  3  3  3  10  1  3  1  1  3  1  1  1  ]jl  1  1 1  1 


4  4  4  4  414  4  4  4  4 

In  11 11  h  ti[a  11 11  m  *| 

5  5  5  |  5)5  5  5  5  S'S  5  5  |  5 


4*  50  5i  52  51  54  5ft  5ft  ST  5ft  59  50 


Mlll'llttl 

Ir  n  11  h  n|n  11  »  H  *j 

mii'iim 


4  4  4  4  4'4  4  4  4  4 

|n  11  a  h  bJh  h  »  11 1: 

555550555V 


n  m;?  1  n  1 

Ii  mi  it  hi; 


7  7  7  7  7'7  7  I  7  7 


I  III  III  li:i  II  Mill  II 

1  i  ■  !  ! 

I  M  lt|l  1 1  *  III  1 1 1  till  1 1  ill  1 1 1  Ml  1 1  l(ll  1 1  III  1 1 1 1 


1  1  I  3  3'7  7  7  7  7  17  7  7  7  7 


III  I  II  III  I 
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CARD  NUMBER 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

First  Time  Value  —  Should  be  0.0 

SEC 

11-20 

£10.0 

(Enter  as  Many  Time  Values  as  Required 

21-30 

E10.0 

Using  as  Many  Columns  and  Cards  as  Necessary 

31-40 

E10.0 

-  Final  Tims  Should  be  Greater  than  or 

41-50 

E10.0 

Equal  to  the  Final  Calculation  Time) . 
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61-70 

E10.0 
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71-80 

E10.0 
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CARD  NUMBER 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

Initial  Temperature  @  T  -  0.0 

DEG  F 

11-20 

E10.0 

(Enter  as  Many  Temperatures  as  Time 

21-30 

E10.0 

Values) . 

31-40 

E10.0 

41-50 

E10.0 
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51-60 

E10.0 

61-70 

E10.0 

j 

71-8C 

E10.0 
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APPENDIX  R 


SUBROUTINE  TRSVR61 

HYTTHA  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  VIII) 

6 . 61  SUBROUTINE  TRSVR61 

TRSV61  models  a  hypothetical  constant  pressure,  constant  temperature 
reservoir  that  can  be  used  in  test  simulation  work  as  sketched  in  Figure 
6.61-1.  The  input  pressure  is  maintained  without  fluctuation  while 
the  flow  rates  are  adjusted  to  meet  the  line  requirements.  A  maximum 
of  four  connections  can  be  used. 

This  subroutine  calculates  the  fluid  and  wall  temperatures  of 
the  component  at  each  connection. 


FIGURE  6.61-1 

TYPE  NO.  61  CONSTANT  PRESSURE  RESERVOIR 
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6.61.1  Math  Model 

The  thermal  math  model  for  the  reservoir  includes  heat  transfer 
to  and  from  one  to  four  connecting  line  segments.  They  can  be  either 
downstream  or  upstream  of  the  reservoir.  To  understand  TRSV61  we  shall 
look  at  a  hydraulic  system  with  two  reservoirs  connected  by  a  line  as 
shown  in  Figure  6.61-2.  The  line  is  downstream  of  reservoir  one  and 


FIGURE  6.61-2 

RESERVOIR  NODE  REPRESENTATION  FOR  SAMPLE  SYSTEM 


upstream  of  reservoir  two.  As  Is  discussed  in  subroutine  TLINEA,  the 
line  is  divided  into  equal  segments.  In  Figure  6,61-2  the  temperatures 
of  the  fluid  and  wall  of  reservoir  1  are  D(ITF),  and  D(ITC) ,  the  temperature 
of  the  fluid  and  wall  of  the  line  segment  connecting  reservoir  1  are  TLFi 
and  TLWp  the  temperatures  of  the  fluid  and  wall  of  the  line  segment  connecting 
reservoir  !’  are  TI.FJ  and  ThW.,,  and  the  temperatures  of  the  fluid  and  wall  of 


reservoir  2  are  D(ITF>2  and  D(ITC)2  .  For  downstream  connecting 
line  segments,  such  as  these  similar  to  segment  1  in  Figure  6.61-2, 
the  subroutine  assigns  the  temperatures  of  the  reservoir  fluid  and 
wall  as  end  conditions  of  the  reservoir,  and  boundary  conditions  of 
the  first  line  segment, 

TF(L1)  =  D(ITF)1 

TW(L1)  =  D (ITC)  1 

For  upstream  connecting  line  segments,  such  as  those  similar  to  segment 
2  in  Figure  6.61-2,  the  subroutine  assigns  the  temperatures  of  the 
reservoir  wall  to  the  reservoir  connection,  or  the  boundary  condition 
of  the  line  segment 

TW(L2)  =  D(ITC)2 

and  also  assigns  the  temperatures  of  the  fluid  entering  the  reservoir 
to  the  temperature  of  the  line  segment,  TF(L2)  =  TLF2.  Note  however 
that  the  temperature  of  the  fluid  in  reservoir  2  is  D(ITF>2  and  eventually 
the  fluid  entering  reservoir  2  will  equal  TLF2>  In  the  hydraulic  math 
model  the  input  constant  reservoir  pressure  is  assigned  to  the  reservoir 
node  number. 

6.61.2  Assumptions 

1.  Fluid  and  wall  temperatures  of  the  reservoir  remain  constant, 
except  the  fluid  entering  a  reservoir  makes  the  reservoir  fluid 
the  same  temperature  as  the  fluid  in  the  connecting  line. 

2.  The  reservoir  is  assumed  to  have  an  infinitely  large  gas  volume 
so  that  the  pressure  remains  unchanged. 

3.  The  interface  conductance  between  the  reservoir  walls  and  the 


line  walls  is  infinite. 


6.61.3  Computation  Methods 


« 


SECTION  1C00 

The  number  of  active  reservoir  connections  is  determined  from  the 
NC(  )  array.  A  DO  loop  is  then  set  up  to  initialize  all  the  connecting 
linn  wall  and  fluid  temperatures. 

SECTION  2000 

The  node  number  of  the  reservoir  is  determined  and  the  flow  into 
and/or  out  of  the  reservoir  is  summed  for  each  active  connection. 

D(4)  =  D (4)  +  QR 

Counter,  L(6) ,  is  incremented  by  1  each  time  an  entry  is  made  until  the 
counter  is  equal  to  the  number  of  active  connections.  Once  the  total 
net  flow  has  been  determined,  QN(N)  is  calculated 

QN(N)  =  D (PRESS)  *  10000. -D(4) 

An  external  pressure  array  is  set  co  a  constant  value 

PEX(N)  -  10000. 

The  total  flow  and  counter,  L(6),  are  then  set  to  zero. 

SECTION  3000 

The  number  of  connecting  line  segments  and  flow  direction  are 
first  determined.  Property  values  are  assigned.  The  exiting  fluid  and  all 
wall  connection  temperatures  are  assigned.  The  assigned  values  are  put  into 
arrays  TC  and  TF  in  /TRANS/. 

If  the  user  has  specified  a  variable  fluid  temperature,  a  call  is  made 
to  the  INTERP  subroutine. 

IF(L(9),GT,0)  CALL  INTERP (TIME, D (9) ,D(L(10)) ,10,L(9) ,TF(N) ,IERR) 

INTERP  will  perform  a  linear  interpolation  between  the  data  points 
and  return  the  fluid  temperature,  TF(N)  values.  If  the  flow  is  entering  the 
reservoir,  INTERP  will  not  be  called. 
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6.61.4 

Variable  Listing 

Variable 

Description 

Dimension 

D(ITC) 

Initial  temperature  of  the  reservoir  walls 

°F 

D(ITF) 

Initial  temperature  of  the  reservoir  fluid 

°F 

Q(LI) 

Flow  in  connector  I 

CIS 

N 

Reservoir  node  number 

— 

D (PRESS) 

Pressure  of  reservoir 

PSI 

TF (LI) 

Temperature  of  fluid  leaving  reservoir 

°F 

TC (LI) 

Temperature  of  reservoir  wall  connected  to 
connec  t ion  I 

°F 

648 


I 


« 


.v 

•  <~visK? 

.>*'*■  S  ~<vMS 


r-.3T.Dr  _ 
’ .  ;  9  ’  s 


w  * 

-  *et 

,  a. 

L  F  ' 


.  K  'W 
M- 


3  00 


,T» 


rxr  3cc  . r iai  del:.?: .v.ise.xel 
r.-n  *?  .v  49  .cratF  *•»  .:jc.  r-v:*.  *.*«.» 
•  . Q#  -»  "•  S£.f.  9C  .  ?ts LEO  90  _  'K 

-s  .*»or* .  «  .Ev.  ac**  tfjw, 

>’V  .  ISX,  I  HZ,  SUM  *J  !  .*>* NUO)  .NELQli  - 
IA. 


*L  *  TPRES  ,  C  K  .  PFV  ,r«P,  ?*OPi  13.3),)  DAT.  AT  ,  IDS  IT  ,  S  T  T  , 
TS>'  .jr.T.FLT 

.OKMON EN v I .-w.%  SEN V,  VaTv  >)  .  VSTT(  5) .  WT (  6) 
i  nt  e  t  e  a  ??r  s 


DIMENSION  D  (  1 0  ,  DT  (  1  ) ,  .0(11,1,18' 

.MTa  i KESS/  1/  ,  ITF/2/ , LTC/ 3/ 
iF (  IEN .  1000,2000,3000 

1000  CONTINUE 

I F ( I DTEMP  .EQ.  0  -OR.  L(S)  .EQ.  0)  GOTO  1100 
LFtiOFLT  •  fe.Q.  I  t  0 (  ft  ;«FLT 
I F ( I DWT  .EQ.  1)  D(3)-WT 
1100  1F(L(6) .EQ.O) GOTO  333 
C  ***  SET  DATA  TO  PROPER  ENVIRONMENT  **** 
D(ITC)-VWT(L(6) ) 

C 

333  D(4)-0.0 
NCI-NC(IND) 

L ( 5 ) “NCI 
L(6)-0 

C  L(7)»  NUMBER  OF  TIME  VALUES 

LL-um+^/s 

L(8)-9+LL*8 
DO  1010  1-1, NCI 
N-L(I) 

TF(N)-D(ITF) 

TC(N)«D(1TC) 

1010  CONTINUE 
RETURN 


fi 
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2000  CONTINUE 

N-NDWN(INEL) 

QR-QI 

C  INX  -  ELEMENT  NUMBER  IN  LEG 
IF (INX.NE. 1)  GO  TO  1600 
QR— QR 
N-NUP(INEL) 

1600  D(4)«D(4)+QR 
L(6)-L(6)+l 

C  WRITE (6, 900)  INEL  ,N ,  Q1 ,  PUP 

900  FORMAT ( 10X,*RSVR*, 2110, 2E 12. 5) 

IF(L(G).NE.L(5) ) RETURN 
QN(N)-D (PRESS) *10000.-D(4) 

PEX(N)- 10000. 0 

D(4)-0.0 

L(6)-0 

C  PN (N)-D(PRESS) 

RETURN 

3000  CONTINUE 
NCI-L(5) 

DO  3009  I-l.NCI 
N-L(I) 

IF(Q(N) .GT.0.0)  GO  TO  3006 
TF(N)-D(ITF) 

3006  TC(N)-D(ITC) 

IF (L( 7 ) .GT • 0)CALL  INTERP (TIME, D( 9) ,D(L(8)), 10, 
+  L( 7) ,TF(N ) , IEPR) 

3009  CONTINUE 
RETURN 
END 
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APPENDIX  S 
TYPE// 51  PUMP 

HYTTHA  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL.  VII) 
6.51  TYPE  //51  -  PUMP 


Connection 
No.  1 


Rotating  Group PumP  Port  Manifold-^ 


Volume 
of  Inlet 
Chamber 


Connection  No.  2 

Volume  of 

Outlet 

Chamber 


-Compensator  Valve 


Pump  Case 
Mass 


Connector  No.  3- 


FIGURE  6.51-1 

TYPE  NO.  51  PRESSURE  REGULATED  VARIABLE 
DISPLACEMENT  PUMP 


The  pump  subroutine  TPUMP5I  is  a  simulation  of  a  pressure  regulated  variable 
displacement  pump.  The  pump  model  computes  values  of  outlet  and  case  drain  flows 
and  pressures. 

In  the  thermal  model  large  masses  have  been  grouped  together  to  simplify  the 
simulation.  Three  large  masses  are  used,  the  internal  moving  parts,  the  walls  of 
the  pump  around  the  case  volume,  and  the  pump  wall  at  the  port  manifold.  The  cal¬ 
culated  variables  are  the  rotating  group  and  case  temperatures,  and  three  fluf^ 
temperatures;  the  exit  fluid,  the  case  drain  fluid,  and  the  inlet  fluid. 
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TPUMP51 
CARD  NUMBER  1 


COLUMN 

FORMAT 

DATA 

1-5 

15 

Component  Number 

6-10 

15 

Type  Number  =  51 

11-15 

15 

Number  of  Real  Data  Cards  =■  4 

16-20 

15 

Line  Number  (with  sign)  attached  to  Connection  1 

21-25 

15 

Line  Number  (with  sign)  attached  to  Connection  2 

26-30 

15 

Line  Number  (with  sign)  attached  to  Connection  3 

31-35 

15 

Not  used 

36-40 

15 

Leg  Number  Containing  Connection  1 

41-45 

15 

Leg  Number  Containing  Connection  2 

46-50 

15 

Leg  Number  Containing  Connection  3 

51-55 

w 

Number  of  Data  Points  in  Table 

56-60 

15 

Default  Temperature  Indicator 

61-65 

15 

Environment  Number 

66-70 

15 

71-75 

15 

76-30 

15 

EXAMPLE  CARD 


1  51 


15  -1 


S  11 


16  '  C  9  lO  ■  I  12  H  14  H  lb  '7  .fl  <1  t'}  ;’i  :«•  .'5  ?9  50  L  32  !1  54  15  K  11  M  \t  40  4(  4«  45  44  45  46  -*2  48  49  50  N  52  51  54  55  56  5>  58  50  65  Cl  6?  65  64 


!.)  I  \?  I)  II  15  16  12  ’9  ,'n  ilj?  25  ;*4  ?5  !*t  ?t  ?*  9  40  41  5. 


;■  53  34  55  '6  32  •?'  59  4  0  4i  4?  45  44  45  4t  42  41  49  50  51  52  53  54  53  56  52  56  39  00 


o  o  o  o  o.o  o  o  o  o  o  o  o  o  o*n  o  o  o  o  o  o  o  o  o;q  o  o  o  o  o  o  o  o  o;o  Q  0  0  0  0  0  o  o  q;q  0  0  0  0  0  0  0  0  o!o  G  0  0  0  0  0  0  0  o|u  0  0  0  0  0  0  0  o  o;o  0  0  0  0 

i  ?  4  S  |t  /  a  %  1C  HI?  IJ  M  W  M  13  Jli  71  3?  J ’  ?4  is'/t  17  18  ’4  30  M  V  1)  1»  J1  )l  14  *3  (1  41  41  44  4y&  4>  4k  44  5?  51  54  ''I’.S  5)  51  99  fO  M  *2  8J  (4  85i66  6  2  64(3  10  M  V  13  14  T5j’'>  11  lg  74  10 

;  i  1 1|<)  1 1  J  1 1 1  i  i'i  1 1|  i  1 1 1  iili  i  1 1 1 1 1 1 1  i'!  i  1 1(  1 1  i||i  n  1 1 ;  i  i  i  I'm  1 1 1 1 1  i  i'i  1 1 1  n  1 1  i  iii  i  n  i 

i  ;  ,  1  *  1  i 

?  2  2  2  7‘i  2  !  2  2  7  ?  ?  2  2,2  2  ?  7  2  7  ?  ?  7  2i2  2  2  ? |  ?  1 7  7  ?j?  2  1  2  2  2  2  2  2  2'?  2  7  2  1  2  2  2  2  2;?  2  2  2  1  2  7  2  2  l|2  2  2  2  7  2  2  2  2  2'2  2  2  2  2 

1  !  <  ,  '  ;  i  ; 

3  3  3  3  jj3  3  3  3  3|3  3  3  3  3^3  33333333  3<3  3  3  3  3j3  3  3  3  2|3  33333333  3|3  33  3  33333  3i3  33333333  3J3  33333333  2,3  3  3  3  3 


4  4  4;4  4  4  4  4  4  4  4  4  4'4  4  4  4  4  M  4  *  <  4  4  4  4  ijl  4  4  4  4'4  4  4  4  i  4  4  4  4  4^4  4  4  4  414  4  4  4  4'4  4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  44  4  4  4  4 

I  .  ;  4  5  j  ■  1  I  9  >''};»  I)  14  lj|t«  !7  «  i&  ?4  ;  *1.4  ■  I  .  i  ? .  JOj-  1.  :•<  >4  i‘)U  •’  U  V.  4;  41  4?  »i44  I5J4*  4MI49 'r|5i  5?  4’5«  51M  61  62flM6yS  t’ fSU  TO  1  7?  71  M  *  !  i  ”  ■;  89 


.  ,  I  f|.  I  |  9  l^j:t  1,  1)  14  I3U  W  II  Ifa  2J^-  ;  *1.4  >8'  .•  30j»  L  ;  ■  >4  I'.bi  1*  V  4:141  4?  *1  44  t'.j4t  4;  4l4»'rj5i  5i  5J  5»  Oi!'"  1’ s;  5186J6I  61  f1  84  6yi  t’ '5  8J  26  1  7?  71  M  *  1  i  ”  .7  ;5  O 

.  L  S  5  :  5  5  5|5^  5  5  5  5 '5  5  5  5ljb  5  5  5  b'b  5  5  5  5  5  5  5  5  5^5  5  b  bl5  5  5  5  5;5  5  5  5  5  5  5  5  5  5*5  5  5  5  5  5  5  5  5  5*5  5  5  5  5  5  5  5  i  sj5  5  5  5  5 


6  5  G  6  B'b  G  6  6  6'b  6  6  C|,6  6  6  6  6  6  6  6  6  ■ ’5  6  6  &  6 '6  b  G  6  6>G  6  6  &  fe‘3  6  6  6  &<6  G  6  6  6jG  6  6  5  |B  6  «  6  6iG  5  S  >.  G-C  G  6  G  E  C  6  G  G  6'5  C  C  &  E 

7  7  >  7  7,7  7  7  7  7  /  7  7  7  7,7  7  7  7  7  7  7  7  7  7.7  7  7  7  Jil  7  7  7  7.7  7  7  7  7  7  7  7  7  7'7  7  7  7  7|7  7  7  7  7'7  7  7  7  1.7  7  7  7  7-7  7  7  7  7  7  7  7  7  7,7  7  7  7  7 

.  '  j  j  i  I  1  j  ' 

3  8  ci  3  i  *  ?  8  88  8  8  8  8  8  8  8  8  8  S  l  0  8  3  5,3  8  C  8  c[‘)  6  &  £  S  5  ?  3  8  8  3  8  8  8  c!8  S  B  6  &'j  8  8  l  :  'a  8  8  8  ";8  8  fi  3  8J  6  8  S  5  3  8  &  ft  C:-  33  8  £ 

1  f  1  *  1  i 

'll  '  1  1  ;  !  i  1  I  I 

*■  n  5  *•  1  9  5  *]  9  9  9  *)  9  5.5  9  5  i  M  0  S  ;  <5  9  9  5  5  9  9  1  9  ;  9  5  9  ?  9  9  9,4  3  2  5  c| J  5  9  9  0*1  3  «»  9  9;9  9  S  5  Si9  9  %  9  p;  9  fl  r;  0  .•  C  'J  9  5 

L  •  ,  *••«!;•}  .  S  ..  4.  4  4.4)t4t.  4'  4*4«  ..l|  .  «  ••  -  ‘  '  -ftj  .  '  *  j  4 


CARD  NUMBER  2 


— - 

COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-3.0 

E10.0 

PUMP  WALLS  MATERIAL  TYPE 

— 

11-20 

E10.0 

ROTATING  GROUP*  MATERIAL  TYPE 

— 

21-30 

E10.0 

PUMP  PORT  MANIFOLD  MASS  (SURROUNDING  VOL  1&VOL2 

1  LBm 

31-40 

El  0.0 

ROTATING  GROUP  MASS* 

LBm 

41-50 

E10.0 

PUMP  CASE  MASS 

LBm 

51-60 

E10.0 

PUMP  INLET  VOLUME 

IN.3 

61-70 

E10.0 

PUMP  OUTLET  VOLUME 

IN.3 

71-80 

E10.0 

PUMP  CASE  VOLUME 

L_— ______________________ 

IN.3 

_  _ 

*  The  rotating  group  consists  of  all  moving  parts,  as  the  pistons,  yoke, 
drive  shaft,  etc. 


EXAMPLE  CARD 


I 


9.  9.  9.  IP.  30.  15.  18.  IT'S. 

12  5  4,,  9  II,  II  12  I|  14  15  Ji  IT  !•  19  23  21  22  25  24  %  2*  22  *1  2,  50  I  52  5  i|l  4  15  52  51  54  59  40  41  4^5544  45  4,  42  44  19  50  92  55  94  44  94  52  54  ,»P>  5-1  62  55  04  | 

2  5  4  5  4  2  0  9  10  li  12  15  14  15  14  12  14  19  20  21  22  25  24  25  25  2  2  24  29  ,  3  5  <  52  55  54  55  56  52  51  59  40  -51  42  45  44  45  46  42  44  46  50  51  52  55  54  55  60  5  2  54  59  60 

i* 


0  0  0  0  0,0  0  0  0  0 

I  2  2  4  5 15  I  I  1  10 

1 1 :  i  M  1 1 1 1 

i 

222?  2'2  2222 
i 

3  3  3  3  3|3  3  3  3| 


I  1  t  I  Ijl  I  I  1  1 
2222  2|2  2222 
3333  3>3  333S 


0  0  0  0  0‘0  0  0  0  0  0  0  0  0  O’OD  0  0  0 

M  I?  1)  14  Ifil't  1>  ’»  11  70|71  ?;  .3  ;4  ?5*2S  2t  2 3  Jll| 

1  111  ill  I  111 

1 

2  2  2  2  2 12  2  2  22 
I 

3  3  3  3  3'3  3  3  3  8 

I 

4  1  \  t  4'4  4  4  4  4 

?]  ?i  :4  r»fi  7>  •’i  jo  | 

5  5  5  5  5|5  5  5  5  5 

6  6  E  6  6)6  B  G  6  6 

7  ;  11  hi  mi 


4  4  4  4  4,4  4  4  4  4[4  4  4  4  4'4  4  4  4  4 

t  i  2  i  s  |«  ill  io  Ju  i:  ii  ) j  lie  i/  ii  n  ;o 

!;  5  5  5  5-5  5  5  5  5  5  5  5  5  5*5  5  5  5  i 

' 

6  C  6  r,  6  5  6  E|6  6  6  6  s)o  5  6  6  6 

7  7  7  /  7,7  7  7  7  7 

5  4  0  I  8,3  8  8  8  |jl  a  U  a!s  8  3  ss;a  8  S  e  3^3  S  8  3 

»  9 4  7  39 9  9«  9 


o  o  o  o  o;o  o  o  |  o 

111  17  33  34  JijK  )7  11  J5  40 J 

n i nh i I n 

i 

2  2  2  2  2|2  2  2  2  2 


4  4  4  4  4'4  4  4  4  4 

li  ,2  I  t  i.l",  ,|  !,  .5  56 

55  5  5515  5  5  5  5 

5  G  6  C  6>8  6  S  6  S 

i 

7  7  7  7  7  7  7  7 


o  o  o  o  o;o  o  o  |  o 

I,  22  62  62  25,64  61  2,  2|  ■  flj 

1  1  I  1  HI  1  1  1  1 

I 

2222  2*2  2222 


3  3  3  3  3|3  3  3  3 1|  3  3  3  2  3|j  7  I  ?| 


0000  0,0  0000 

|il  57  53  31  5315*  57  51  39  C0| 

i  i  1 1  ri  1 8 1 ; 

7  2  2  2  2j2  2  2  2  2 


0000  010  0000 
(7  Ut4  I VI 8  { 7  II II  >o| 

1 1 1 1 1jl  1  31 1 

2  2  2  2  2, '2  2  2  2  2 

1 


3  3  3  3  3iJ  3  3  3  83  3  3  3  3*3  3  3  3  13  3  3  3  3  3  3  3  3  | 


0  a  0  0  0  0  0  0  0  0 

,1  II  n  16  75,16  77  II  71  I, 

1  II  Mil  |l  11 

1 

2  2  2  2  2'2  2  2  2  2 
1 

U 


4  4  4  4  4,4  4  4  4  4  4  4  4  4  4'4  4  4  4  4 

1;  i|6l  6'j!-;  67  Ij  Ii,:],!  67  57 16  JljlO  51  51  65  6D| 


4  4  4  4  4,4  4  4  4  4 

III  II U  66  15,51  6  7 14  II  II 


8  1888.88  8  I  !|  I  I  !  8  flu  8  8  8 


■  i  i 

9  9  9  9  30  3  9j  9  9  9  9  9  9i9  9  SB  9  9  9  9  9  9i9  5  9  5  9 

II  ,,  II  ,  9  70  71  I’fc  .  *  v  ,6  -Ii.,1  i  960 


5  5  5  5  5,5  5  5  5  5  5  5  5  5  5,5  5  5  1  5  5  5  5  5  5-5  5  5  5  5 


B  G  6  6  SiS  B  8  6  6|B  6  B  6  6)6  S  S  B  B 


7  7  7  7  7-  7  7  7  7  7 


9  601 

MW.SW 


I 

9  9  9  9  sja  9  9  9  9 

61  6.  6  66  ••..I,  I  «6',i:| 


7  7  7  7  7'7  7  7  7  7 


6  6  6  6  6-6  E  6  6  6 


7  7  7  7  7j7  7  7  7  71/  7  7  7  7|7  7|7  7 

!  8  5  8  l|l  8  8  8  |js  6  II  s|j  B  8  |gt  6  !  3  5|J  8  8  £  || 

9  9  9  9  9i9  9  9  9  9)9  9  9  9  9!?  9  !  9  9  9  9  5  9  sis  5  3  3 

v  .. -,i  m  ’  -ri  .(  i  .1 

mac  ;ov  k  (rtrv  ?  .  1  r  - 


4444  4;4  4444 

71  ?  71  14  T‘1'1  77  7|  ?J  80 

5  5  5  5  j[5  5  5  |5 

1 

(  6  6  G  6-6  G  S  6  6 
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CARD  NUMBER  3 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

&X8§£GE  CR0SS  SECTI0NAL  AREA  0F  THE  rotating 

IN.2 

11-20 

E10.0 

CONTACT  AREA  BETWEEN  THE  ROTATING  GROUP 

AND  THE  PUMP  WALLS 

IN.2 

21-30 

E10.0 

HEAT  TRANSFER  COEFFICIENT  BETWEEN  EXIT  FLUID 
AND  ROTATING  GROUP 

watts/in2-°f 

31-40 

E10.0 

HEAT  REJECTION  AT  RATED  FLOW 

WATTS 

41-50 

E10.0 

DISTANCE  FROM  INLET  TO  OUTLET  THRU  PORT  PLATE 

IN. 

51-60 

E10.0 

EXTERNAL  SURFACE  AREA  OF  PUMP  PORT 

MANIFOLD 

IN.2 

61-70 

E10.0 

EXTERNAL  SURFACE  AREA  OF  PUMP  CASE 

IN.2 

71-80 

E10.0 

HEAT  TRANSFER,  COEFF.  FROM  ATMOSPHERE  TO 

PUMP  CASE 

WATTS / IN2 -°F 

EXAMPLE  CARD 


8.  3.  .7  367 5.  7.  169.  27.  .0069 

i  i  i  «  i  t  |||  I  10  II  II  nu»  |n  K»«iiiiii|nH!riin!OMi  u|i  »  k  sr  m  w  w  «  «£i  M  <9  «  «  *0  *•  ■»  |  ci  «  **  n  si  it  at  »£>  ««o»| 


r  2  S  4  »  «  r  I  «  10  II  II  U  14  H  II  IT  II  If  10  21  *2  H  W  n  If  IT  2I  M  X>  Jl  9*  53  3«  55  M  SMI  »  40  41  42  49  44  49  46  47  4|  49  90  91  92  93  94  99  94  »/  5*  9*  60 


OOOOOtOOOOO 

I  1  1  4  l|l  1  I  •  Itl 

II  11  HI  I  1  11 
2222  2'2  2222 


3  3  3  3  3l3  3  3  3 1  3  3  3  3  3*3  3  J  ||  3  3  3  3  3*3  3  3 1 3 


4  4  4  4  4i4  4  4  4  4  4  4  4  4  4'4  4  4  4  4 


I  3  3  4  ]  |l  7  I  I  It 

5  5  5  5  5'5  5  5  5  5|5  5  5  5  5J5  5  5  5  5 

6  5  6  6  S!b  6  6  6  6[&  6  6  6  e!s  6  6  6  6 


7  7  7  7  7,7  7  7  7  2 

i 

8  3  3  3  Sit  I  8  85 

i 

9  9  9  9  9'0  3  9  9  9 

I  3  1  I  Hi  i  4  I  III 


0  0  0  0  Q'O  0  0  0  0 

in  u  i3  ii  islit  ii  m  n  n| 

1  T  1  1  ijl  1  1  1  1 

2  2  2  2  2[2  2  2  2  2 


OOOOO'OOOOO 

i|ll  3?  33  31  ll'll  31  3«  3«  30 

1  1  1  1  l',1  1  t  1  1 

I 

|2  2  2  2  2i2  2  2  2  2 
i 


4  4  4  4  4*4  4  4  4  i 


L  w  ii  m  it  fit  ini  n  jopi  ??  » i *  apt  vnn  jo 


7  7  17  7J7  7  7  7  7 

8  1 8 1  l|l  1 1  «4 

9  9  9  1  9  9  9  9 

11  13  11 11  1,11  ii  «  n  n| 


|5  5  5  5  5*5  S  5  5  5 


7  7  7  7  7,7  7  7  7  || 

I 

9  9  9  9  9i3  9  9  9  J 

31  II I)  14  31(11  31  It  31  4 


0  0  0  0  0|0  0  0  0  0 

31  33  33  34  ]5pl  33  31  31  4I| 

1  I  11  i'll  1  11 

I 

2222  212  2222 


0  0  0  0  0,0  0  0  0  0 
|4I  43  43  44  I'll  43  41  II  30(31  33  1  3  34  ’ill  51  31  11  S| 


3  3  3  3  3|3  3  3  3  ||3  3  3  3  3*3  3  3  3  H3  :  3  3  3t3  3  3  3  |3  3  3  3  3*3  3  3  3  ■ 


4444444444 

]l  13  11 II  life  11  Hit  40 


7  7  7  7  7j7  7  I  7  7 
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CARD  NUMBER  4 


« 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

INTERFACE  CONDUCTANCE  BETWEEN  THE  CASE  AND 

THE  ROTATING  GROUP 

WATTS/IN2-°F 

11-20 

E10.0 

HEAT  TRANSFER  COEFF. ,  INLET  FLUID  TO  MANI¬ 
FOLD  WALLS 

watts/in2-°f 
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SURROUNDING  STRUCTURE  TEMPERATURE 

°F 

31-40 
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SURROUNDING  ATMOSPHERIC  TEMPERATURE 
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INITIAL  TEMPERATURE  OF  THE  FLUID 
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INITIAL  TEMPERATURE  OF  THE  WALLS 
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RATED  FLOW 

CIS 

71-80 

E10.0 

- . . J 

PUMP  RPM  AT  RATED  FLOW 

-  — 

RPM 
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CARD  NUMBER  5 


« 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

PUMP  SPEED 

RPM 

11-20 

E10.0 

RATED  OUTPUT  PRESSURE  AT  ZERO  FLOW 

PSI 

21-30 

E10.0 

RATED  OUTPUT  PRESSURE  AT  FULL  FLOW 

PSI 

31-40 

E10.0 

MINIMUM  INLET  PRESSURE 

PSI 

41-50 

E10.0 

MAXIMUM  PRESSURE  DIFFERENCE  BETWEEN  PUMP 

CASE  AND  INLET 

PSID 

51-60 

El  0.0 

CASE  FLOW  AT  RATED  FLOW  AND  PRESSURE 

CIS 

61-70 

E10.0 

CASE  PRESSURE  AT  RATED  FLOW  AND  PRESSURE 

PSI 

1 

71-80 

—j 

E10.0 

DEPTH  OF  PUMP  CASE 

- - - 
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CARD  NUMBER 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

First  Pump  RPM  Time  -  Should  be  0.0 

SEC 

11-20 

E10.0 

(Enter  as  Many  Time  Values  As  Required 

SEC 

21-30 

E10.0 

Using  As  Many  Columns  and  Cards  as  Necessary 

31-40 

E10.0 

-  Final  Time  Should  3e  the  Final  Calcula- 

41-50 

E10.0 

tion  Time) . 

51-60 

E10.0 

61-70 

E10.0 

] 

71-80 

.  . 

E10.0 

— — 

- . — 
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APPENDIX  S 
SUBROUTINE  TPUMP51 

HVTTHA  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VOL.  VIII) 

6 • 51  Subroutine  TPUMP51 

Subroutine  TPUMP51  simulates  a  variable  displacement  inline  piston 
pump  sketched  in  Figure  6.51-1.  The  subroutine  calculates  the  temperatures 
of  the  exit  fluid,  the  inlet  chamber  fluid,  the  case  fluid,  the  internal 
moving  parts  (assumed  one  node),  and  the  pump  walls. 
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inlet  volume  temperature  is  DT(TFPl) ,  exit  volume  temperature  is  DT(TFP2) , 
the  case  drain  fluid  volume  temperature  is  by  DT(TFP3),  the  pump  wall 
temperature,  around  the  inlet,  is  denoted  by  DT(TBN),  the  wall  temperature 
around  the  exit  is  DT(TCN) ,  the  wall  temperature  around  the  case  drain  is 
DT(TDN) ,  and  the  pistons  temperature  denoted  by  DT(TPN). 

Seven  heat  balance  equations  are  written  to  solve  for  the  seven  pump 
noae  temperatures,  using  the  pump  and  line  segment  material  properties 
and  dimensions,  the  atmosphere  and  structure  temperatures  external  to 
the  pump,  and  TF(L1) ,  TW(Ll) ,  TW(L1) ,  TW(L2)  and  TW(L3) .  (Note  TF(L2)  = 

DT (TFP2)  and  TF(L3)  =  DT(TFP3) ,  see  assumptions). 

The  first  equation  represents  three  modes  of  heat  transfer  relative 
to  the  pump  inlet  fluid  volume  (the  volume  within  the  wall  node  DT(TBN)). 

1.  Heat  transfer  due  to  mass  transfer  into  the  pump  volume  from  the 
upstream  line  segment. 

MCp* (TF (Ll)-DT (TFP1) ) 
where  MCp  is  equal  to  Q(L1) *RHOIL*CPFN 

2.  Convection  to  or  from  the  pump  walls  around  the  inlet  volume 

B1*(DT(TBN)-DT(TFP1) ) 

where  B1  is  equal  to  D(UP1B)*ASP1B,  a  convection  coefficient. 

3.  Conduction  to  or  from  the  upstream  fluid  line  segment 

R1*(TF (Ll)-DT (TFP1) ) 

R1  is  the  conduction  coefficient  equa]  to 

CF/ (DXF(Ll) /ACF (L1)+DXP1/ACP1+(RMFL1*DELT) / (ACF(Ll) **2*RH0IL) ) 
where  RMFLl-Q(Ll) *RHOIL 

These  three  heat  transfer  modes  then  combine  to  produce  the  heat 
balance  equation  for  the  pump  inlet  fluid  node. 


« 


MCp  * (DT (TFPl)-DT (TFP1) m  )  =  (Rl+MCp) * (TF(Ll)-DT(TFPl) )+ 

DELT  0L 

Bl* (DT (TBN) -DT (TFP1) ) 

with  MCp  equal  to  FMASS1*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  exit  volume  two  (the  volume  within  wall  node  DT(TCN)  of  the  pump  manifold) 

la.  Convection  to  or  from  the  piston  node. 

33*(DT(TPN)-DT(TFP2) ) 

where  B3  is  the  convection  coefficient  equal  to  D(UP2P)*ASP2P. 

lb.  Convection  to  or  from  the  pump  walls  at  the  exit  chamber  of 
the  pump  manifold,  node  DT(TCN) 

B8* (DT (TCN) -DT (TFP2) ) 
where  B8  is  equal  to  UP2C*ASP2C 

2.  Heat  transfer  due  to  mass  transfer  into  the  fluid  volume  from 
the  inlet  volume. 

MCp* (DT (TFP1) -DT (TFP2) ) 
where  MCp  is  equal  to  Q (L2) *RHOIL*CPFN 

3.  Heat  added  directly  to  the  fluid  due  to  compression,  friction, 
and  the  piston  moving  parts. 

D(HTREJ) *. 323 

where  D(HIREJ)  is  defined  in  the  Technical  Summary. 

These  heat  transfer  modes  are  combined  to  produce  the  heat  balanace 
equation  for  the  pump  exit  fluid  node. 

MCp  .  *(DT(TFP2)-DT(TFP2)  )  .  B3*(DT(TPN)-DT(TFP1) )  +  MCp*  (2) 

DELT  OuD 

(DT (TFP1)-DT(TFP2))  f  .323  *  D(HTREJ) 
+B8* (DT(TCN) -DT (TFP2) ) 

The  third  equation  represents  three  modes  of  heat  transfer  relative  to 
volume  three  within  the  pump  case. 
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1.  Heat  transfer  due  to  mass  transfer  into  the  case  volume  three 
from  the  inlet,  and  exit  volumes  respectively-  (Leakage  flows). 
DT (QLEAK1) *CPFN* (DT (TFPl) -DT (TFP3) )  and 
DT (QLEAK2 ) *CPFN* (DT (TFP2) -DT (TFP3) ) 
where  DT(QLEAKl)  is  equal  to  D(C0ECIN)*(P(Ll)-P(L3))  and 
DT(QLEAK2)  is  equal  to  D(COEPLK) * (P (L2)-P (L3) ) . 

2a.  Convection  to  or  from  the  pump  mass  node  around  the  case. 

B5* (DT (TDN) -DT (TFP3) ) 
and  B5  is  equal  to  UP3D*ASP3D 
2b.  Convection  to  or  from  the  piston  mas3  node 

B2* (DT (TPN) -DT (TFP3) ) 
where  B2  is  equal  to  UP3D*ASP3P 
3.  Heat  added  to  the  fluid  due  to  the  heat  rejection  term 

. 24*D(HTREJ) 

where  D(HTREJ)  was  defined  previously. 

These  heat  transfer  terms  combine  to  produce  the  heat  balance 

equation  for  the  fluid  volume  3  in  the  case  drain. 

MCp  *(DT(TFP3)-DT(TFP3)QLD)  -  DT (QLEAKl) *CPFN* (DT (TFPl) -DT (TFP3) ) 
DELT 

+DT (0LEAK2) *CPFN* (DT (TFP2) -DT (TFP3) ) 
+B2  * (DT (TPN) -DT (TFP3) ) +B5* (DT (TDN) - 
DT(TFP3) )  +  . 24*D(HTREJ) 

where  MCp  is  equal  to  FMASS3*CPFN 

The  fourth  equation  represents  four  modes  of  heat  transfer  relative 
to  the  pump  wall  mass  (inlet  manifold  mass)  around  the  inlet  volume. 


(3) 
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la.  Conduction  to  or  from  the  pump  wall  node  around  the  exit  volume. 


« 


(manifold  node  DT(TCN)) 

R9* (DT (TCN) -DT (TBN) ) 

wnere  R9  is  equal  to  COB/(DXB/ACB+DXC/ACC) 

lb.  Conduction  to  or  from  the  upstream  line  wall  segment 

R3* (TW(L1) -DT (TBN) ) 

where  R3  is  the  conduction  coefficient  equal  to 

1 . 0/ (DXF(Ll) / (ACW(Ll) *C (Ll) )+DXB/ (ACB* COB) 

lc.  Conduction  to  or  from  the  pump  wails  around  the  case  fluid  volume. 

Rll* (DT (TDN) -DT (TBN) ) 

where  Rll  is  equal  to  C0B/((DXB/ACB+DXD/ACD)*2.0) 

ld.  Conduction  to  or  from  the  piston  node 

R5* (DT (TPN) -DT (TBN) ) 

where  R5  is  equal  to  1. / (2. *(DXP/ (D(ACP) *C0P)+DXB/ (ACB*C0B)+ 

1.0/ (D(ASPB) *D(CBP) ) ) ) . 

2a.  Convection  to  or  from  the  pump  fluid  in  inlet  volume,  fluid 
volume  one. 

B1*(DT(TFP1)-DT (TBN)) 
with  B1  defined  previously. 

2b.  Convection  to  or  from  the  surrounding  atmosphere 

B6* (D(TA)-DT(TBN) ) 
where  B6  is  equal  to  D(UAB) *D(ASAB)*D1 
D1  is  equal  to  D(VOLl)/(D(VOLl)+D(VOL2)) 

3.  Heat  added  due  to  the  heat  rejection  term 

. 125*D(HTREJ ) 

D(HTREJ)  has  been  defined  previously  . 
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4.  Radiation  exchange  with  the  surrounding  structure 

C2*(D(TST)-(DT(TBN)+460)**4) 

where  C2  is  a  radiation  coefficient  equal  to  C1*D1  where 

Cl  equals  SIGMA*EPSION*SHAPF*D(ASAB)  and  Dl  defined  previously. 

These  heat  transfer  terns  combine  to  produce  the  neat  balance  equation 

for  the  pump  wall  (manifold  wall  node  B  around  the  inlet  volume) . 

MC£_*(DT(TBN)-DT(TBN)  )  «  R3+ (TW (LI) -DT (TBN ) )+R9* (DT (TCN) -DT (TBN) ) 
DELT 

+  Rll*(DT(TDN)-DT(TBN) )  +  R5*(DT(TPN)- 

DT (TBN))  +  Bl* (DT (TFP1) -DT (TBN) )+ 

B6* (DLTA) -DT (TBN) )  +  . 125*D(KTREJ) 

+C2* (D (TST) )-C2* (DT (TBN)+460 . ) **4 

where  MCp  is  equal  to  D(TPMASS)*CPBN*D1. 

The  fifth  equation  represents  three  modes  of  heat  transfer  relative  to 
the  piston  node. 

la.  Convection  to  or  from  the  fluid  in  the  exit  chamber 

B3* (DT (TFP2)-DT (TPN) ) 
with  B3  described  previously 

lb.  Convection  to  or  from  che  case  fluid 

B2* (DT (TFP3) -DT (TPN) ) 
with  B2  being  defined  previously. 

2.  Conduction  to  or  from  the  pump  manifold  walls 

R5* (DT (TBN) -DT (TPN) ) 

R8* (DT (TCN) -DT (TPN) ) 
when  R5  is  as  defined  previously, 
and  R8  equals  1 . / ((DXP/ (d(ACP)*COP)+DXC/ (ACC*COB) 

+1. / (D(ASBP)*D(CBP) )*2. ) 

3-  Heat  added  to  the  piston  mass  from  the  heat  rejection  term 

. 187*D(HTREJ) 


(4) 
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These  heat  transfer  terms  combine  to  produce  the  heat  balance  equation 
for  the  piston  node. 

MCp  *(DT(TPN)-DT(TPN)  )  -  B3*(DT(TFP2)-DT(TPN))  + 

DELT 

B2*(DT (TFP3)-DT(TPN) )  + 
R5+(DT(TBN)-DT(TPN) )+. 187*D(HTREJ) 
+R8*(DT(TCN)-DT(TPN)> 
where  MCp  is  equal  to  D(PMASS) *CPPN 

The  sixth  equation  represents  four  modes  of  heat  transfer  relative  to 
the  pump  manifold  wall  node  surrounding  the  exit  volume,  Node  C. 

la.  Conduction  to  or  from  the  downstream  connecting  line  segment 

R4* (TW(L2) -DT (TCN) ) 

where  R4  equals  1.0/(DXF(L2)/(ACW(L2)*C(L2>)  +  DXC/(ACC*COB)) 

lb.  Conecution  to  or  from  the  piston  mass 

R8* (DT (TPN ) -DT (TCN) ) 
where  R8  was  defined  previously. 

lc.  Conduction  to  or  from  the  two  pump  wall  node  manifold  E 
(inlet,  volume  wall) 

R9* (DT(TBN)  -  DT(TCN)) 

ld.  Conduction  to  or  from  the  case  wall  node 

RIO* (DT (TDN) -DT (TCN) ) 

where  RIO  is  equal  to  COB/ ( (DXC/ACC+DXD/ACD)*2. ) 
and  R9  was  defined  previously. 

2a.  Convection  to  or  from  the  exiting  fluid  node 

B8*(DT(TFP2)-DT(TCN)) 
where  B8  was  defined  previously. 

2b.  Convection  to  or  from  the  surrounding  atmosphere 

B9* (D (TA) -DT (TCN) ) 

where  B9  is  equal  to  D(UAB)*D(ASAB)*D2 


(5) 
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3.  Heat  added  to  the  walls  due  to  a  heat  rejection  term, 

. 125*D(KTR£J) 

where  D(HTREJ)  was  defined  previously. 

4.  Radiation  exchange  with  the  surrounding  structure. 

C2*  (D  (TST)  -  (I>T  (TCN)  >460. )  **4} 

where  C3  equals  C1*D2  and  Cl  was  defined  previously,  and  D2 
equals  D(V0L2) / (D(V0L1)+D(V0L2) ) . 

These  heat  transfer  terms  combine  to  produce  the  heat  balance  for  the 

pump  wall  around  the  exit  volume,  manifold  wall  node  (DT(TCN) . 

MCp  ^(DT(TCN)-DT(TCN)riT_)  =  R4*(TW(L2)-DT(TCN))+R9*(DT(TBN)- 

DELT  0LD  (6) 

DT (TCN))+R8*(DT(TPN)-DT(TCN))-K  125* 

B(HTREJ)+R10* (DT(TDN)-DT (TCN) )  + 

B9* (D (TA) -DT (TCN) ) +B8* (DT (TFP2 ) -DT (TCN) ) 

+C3*D(TST)-C3*(DT(TCN)+460.)**4 

where  MCp  is  equal  to  D(TPMASS)*CPBN*D2. 

The  seventh  equation  represents  three  modes  of  heat  transfer  relative 

to  the  pump  walls  surround  the  case  fluid. 

la.  Conduction  to  or  from  the  case  drain  connecting  line  wall  segment. 

R7*(TW(L3)-DT (TDN) ) 

where  R7  is  equal  to  1.0/(DXF(L3)/(ACW(L3)*C(L3))+DXD/(ACD*COB)) 

lb.  Conduction  to  or  from  the  two  other  pump  manifold  wall  nodes, 
around  the  inlet  and  outlet  respectively. 

Rll* (DT (TBN) -DT (TDN) ) 

RIO* (DT (TCN)-DT (TDN) ) 

where  RIO  and  Rll  were  defined  previously. 
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2a.  Convection  to  or  from  the  fluid  in  the  case  volume 

B5*  (DT  (TFP3)  -DT  fON)  ) 
with  B5  defined  previously. 

2b.  Convection  to  or  from  the  external  surrounding  atmosphere 

BIO* (D(TA)-DT(TDN) ) 

where  BIO  is  a  convection  coefficient  equal  to  D(UAD)*D(ASAD) . 

3.  Radiation  exchange  with  the  surrounding  structure. 

C4*(D(TST)-(DT(TDN>+460)4) 
where  C4  ia  equal  to  SIGMA*EPSION*SHAPF*D(ASAD) 

These  heat  transfer  terms  combine  to  produce  the  heat  balance 
equation  for  the  case  wall  node. 

MCp  * (DT (TDN) -DT (TDN)  )  ■=  R7*(TW(L3)-DT(TDN))+R11*(DT(TBN)- 

DELT  (7) 

DT(TDN))  +  RIO* (DT (TCN) -DT (TDN) ) 

+B5* (DT (TFP3) -DT (TDN) )+B10* (D (TA) 

-DT(TDN) )+C4*D (TST)-C4*(DT(TDN)+ 

460)**4 

where  MCp  is  equal  to  D(PDMASS)*CPBK. 

A  thermal  model  of  the  above  heat  transfer  terms  for  the  pump  is 
shown  in  Figure  6.51-3. 

Equations  (1)  thru  (7)  are  solved  for  the  appropriate  temperatures. 

In  the  hydraulic  math  model  the  variable  delivery  pump  generates  fluid 
flow  in  response  to  system  flow  demand.  The  output  pressure  is  a  function 
of  outlet  flow.  The  steady  state  pump  simulation  models  the  pump 
characteristic  flow  versus  pressure  out  curve  (Figure  6-5-4\the  characteristic 
leakage  from  high  pressure  to  pump  case,  the  leakage  from  pump  case  back  to 
inlet  and  the  pump  outlet  flow  versus  inlet  pressure  curve. 
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The  inlet  pressure  is  determined  from  the  pump  node.  When  inlet  pressure 
falls  below  the  minimum  value,  a  warning  message  is  printed. 

On  entry  into  the  case  drain  section  the  leakage  flow  from  high  pressure 
to  the  pump  case  is  calculated  as 

DT (QLEAK2 )  *  DT(IRCDL)-(. 3*(DT(QOUT)/DT(IRQ) 

The  flow  that  leaks  back  to  the  inlet  from  the  case  is  a  function  of 
the  case  flow  out  the  port  and  DT(QLEAK2).  The  case  pressure  is  computed  based 
on  this  flow  difference. 

DT(PcASE)  '  D(RCDP)*(1. -DT(QCD) /DT(QLEAK2)  +  DT(PINLET) 

Two  equations  are  used  to  define  the  pump  operating  characteristics 
in  Figure  6.51-4.  When  the  outlet  flow  is  less  than  DT(Q2R)  the  pump  outlet 
pressure  is  calculated  as 

DT(POUTLT)  -  DT(IRPOQ)  -  (DT(IRP0Q)-DT(IRPFQ))*DT(Q0UT)/DT(Q2R)  (1) 
If  the  outlet  flow  is  greater  than  DT(Q2R) 

DT(POUTLT)  *  DT (IRPFQ)* (1. -(DT (QOUT)-DT (Q2R) ) / (DT (Q3)-DT (Q2R) ) )  (2) 

The  actual  pump  outlet  pressure  is  calculated  using  DT(POUTLT)  from 
the  characteristic  curve  and  adjusting  this  to  account  for  the  actual  pressure 
in  the  case  less  the  case  pressure  at  which  DT(POUTLT)  was  set. 

DT(POUT)  -  DT(POUTLET)  +  DT(PCASE)  -  D(PSET) 
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FIGURE  6.5-4 

Pump  Outlet  Flow  vs  Outlet  Pressure  Curve 


The  I FLAGG  indicator  is  set  in  TCALC  to  control  which  leg  of  the  pressure/flow 
curve  (Figure  6.51-4)  to  balance  on.  When  IFLAGG  is  one,  the  outlet  pressure 
is  calculated  using  equation  (1).  IFLAGG  equal  to  two  selects  equation  (2) 
for  computing  the  pump  outlet  pressure. 

The  IFLAGG  indicator  remains  the  same  until  a  system  flow  balance  is  reached. 
Then  the  TCALC  subroutine  checks  if  the  values  are  within  the  operating 
characteristics  of  the  pump.  When  they  are  not,  the  appropriate  IFLAGG  Indicator 
is  set,  and  the  iteration  is  restarted.  Only  one  restart  is  allowed  per  time  step. 
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6.51.2  Assumptions 

1.  All  internal  moving  parts  are  evaluated  as  one  node,  all  at 
the  same  temperature,  DT(TPN). 

2.  The  mass  of  the  pump  walls  are  modeled  as  three  nodes,  two 
top  mainfold  nodes  one  each  associated  with  the  inlet  and  exit 
fluid  volumes,  and  the  third  wall  around  the  case  volume. 

3.  External  temperatures  remain  constant. 

4.  Interface  conductances  between  pump  wall  and  connecting  lines 
is  infinite. 

5.  The  fluids  leaving  volumes  two  (exit)  and  volume  three(case) 
are  equal  to  DT(TFP2)  and  DT(TFP3)  respectively,  so  there  is  no 
interaction  with  the  downstream  line  fluids  nodes. 

6.  The  emissivity  of  the  walls  remains  constant,  .3  for  steel, 

7.  Complete  mixing  occurs  in  the  fluid  volumes. 

6.51.3  Computational  Methods 
Section  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degree  Farenheit  to  Rankine  and  raised 
to  the  fourth  power,  and  the  default  values  are  assigned. 

The  pump  rated  flow  at  the  onerating  PPM  is  calculated  as 
DT (Q2R)  *  D(RQ)*D(RPM)/D(RPM) 

The  pump  flow  at  zero  system  resistance  is 
DT (Q3)  »  1.05*DT(Q2R) 

Section  2000 

The  pump  subroutine  is  called  for  each  connection.  The  L(4) 
counter  is  incremented  each  time  data  is  distributed  to  a  connection. 

When  L(4)«0  or  3  a  new  iteration  has  started  and  the  pump  values  are  calculated. 
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If  a  table  of  pump  RPM  values  is  input,  INTERP  will  be  called  to  determine 
the  operating  RPM  at  the  current  time  step. 

CALL  INTERP (TIME1 ,D(3d) ,D(L(9)) ,10,L(8) ,DT(ORPM) , I ERR) 

The  outlet  flows  and  pressures  are  recomputed  for  the  RPM. 

Section  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are 
calculated.  A  7  X  7  matrix  is  loaded  and  equations  (1)  through  (7)  are 
solved  for  DT(TFPl) ,  DT (TFP2) ,  DT (TFP3) ,  DT(TBN),  DT(TPN) ,  DT(TCN)  and  DT(TDN). 
The  calculated  values  are  assigned  to  their  proper  storage  locations  and  the 
boundary  conditions  are  assigned  to  TF  and  TC  in  COMMON /TRANS / . 

6.51.4  Approximations 

1.  The  heat  transfer  coefficients  for  fluid  in  the  case  to  the  case 
walls  is  one  third  of  the  coefficient  from  fluid  in  volume  one  to 
the  case  walls. 

2.  Many  distances  and  areas  are  approximated. 

6.51.5  Limitations 


The 

pump  model  is  not  valid  for  inlet  pressure 

values  less  than 

the  minimum  inlet  pressure. 

6.51.6 

Variable  Listing 

Variable 

Description 

Dimensions 

ACB 

Cross  sectional  of  manifold  wall  node 
the  inlet  volume 

B,  around 

IN.2 

ACC 

Cross  Sectional  area  of  manifold  wall 
around  the  exit  volume 

node  C, 

IN.2 

ACD 

Cross  sectional  area  of  manifold  wall 
around  the  case  volume 

node  D, 

IN.2 

D(ACP) 

Estimated  cross-sectional  area  of  the 

rotating  group 

IN.2 

ACPI 

Estimated  cross-sectional  area  of  the 

inlet  fluid 

IN.2 
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ACP2 

Estimated  cross-sectional  area  of  the  outlet  fluid 

IN.2 

ACP3 

Estimated  cross-sectional  area  of  the  case  fluid 

IN.2 

D(ASAB) 

External  surface  area  of  the  pump  walls 

IN.2 

D(ASPB) 

Contact  area,  walls  and  the  internal  mass  (pistons) 

IN.2 

ASPIB 

Surface  area,  inlet  fluid  to  walls 

CN 

23 

w 

ASP2P 

Surface  area,  outlet  fluid  to  pistons 

IN.2 

ASP3  P 

Surface  area,  case  fluid  to  walls 

IN.2 

ASP3P 

Surface  area,  case  fluid  to  internal  mass  (pistons) 

IN.2 

B 

Dummy  computational  array 

— 

B1,B2,B3, 
B5,  B6 

Dummy  variables 

— 

D(CPB) 

Interface  Conductance  between  the  piston  and  walls 

WATTS/IN. 2oF 

CJ 

Mechanical  Equivalent  of  Heat 

FT-LB  /WATTS-SEC 
m 

COB 

Thermal  conductivity  of  the  walls 

WATTS/IN-°F 

COP 

Thermal  conductivity  of  the  pistons 

WATTS/ IN. -°F 

CPBN 

Specific  heat  of  the  walls 

WATTS-SEC/LBm-°F 

CPPN 

Specific  heat  of  the  pistons 

WATTS-SEC/LBm-°F 

Cl 

Dummy  variable 

— 

D (DELTA) 

Distance  from  connection  one  to  piston  chamber 

IN. 

D(DELTAl) 

Case  Depth 

IN. 

DXB 

Distance  from  wall  node  to  interface  of  lines 

IN. 

DXC 

Distance  from  internal  fluid  node  to  interface 
of  lines 

IN. 

DXD 

Distance  from  exit  fluid  node  to  Interface 

IN. 

DXP 

Distance  from  piston  node  to  interface 

IN. 

DXP1 

Distance  from  fluid  one  node  to  interface  with  line 

IN. 

674 


6.51.6  Variable  Listing  (Continued) 

Variable  Description 


Dimensions 


D1,D2 

Dummy  variables 

-- 

EPSION 

Emissivity  factor 

FMASS1 

Inlet  fluid  mass 

LBjjj 

FMASS2 

Outlet  fluid  mass 

LBuj 

FMASS3 

Case  fluid  mass 

LBuj 

D(HTREJ) 

Heat  rejection  term 

WATTS 

D(ITF) 

Initial  temperature  of  the  fluid  in  the  pump 

°F 

D(ITB) 

Initial  temperature  of  the  pump  &  piston  masses 

°F 

I COUNT 

Number  of  balances  in  a  time  step 

— 

IFLAGG 

Indicator  for  pump  operating  curve 

— 

LTYPE 

Dummy  variable 

— 

NTYPE 

Dummy  variable 

— 

DT(PCASE) 

Case  Pressure 

PSI 

DT(PINLET) 

Inlet  Pressure 

PSI 

D(PMASS) 

Piston  Mass  (all  internal  moving  parts) 

LBu, 

DT(POUTLT) 

Outlet  Pressure 

PSI 

POUT 

Dummy  Variable 

- 

PP 

Computational  array 

- 

D(PSET) 

Pump  Case  Pressure  at  rated  flow 
and  pressure 

PSI 

D(PSMIN) 

Minimum  inlet  pressure 

PSI 

D(PTYPE) 

Piston  Material  Type 

- 

DT(QCD) 

Case  Drain  Flow 

CIS 

DT(QLEAKl) 

Leakage  flow  high  pressure  to  case 

CIS 

DT(QLEAK2) 

Leakage  flow  case  to  inlet 

CIS 

» 
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6.51.6  Varia 

ble  Listing  (Continued) 

Variable 

Description 

DT(Q3) 

Pump  flow  with  zero  system  resistance 

Q2C.QQQ 

Dummy  variables 

p^(Q2R) 

Rate  Flow  adjusted  for  operating  RPM 

D(RCDL) , 
DT(IRCDL) 

Case  drain  flow  at  rated  conditions 

D(RCDP) 

Maximum  pressure  difference  between  pump  case 
and  inlet 

RHOB 

Case  material  density 

RHOIL 

Fluid  density 

RHOP 

Rotating  group  material  density 

RMFL1 , 

RMFL2, 

RMFL3 

Dummy  variables 

D(RPFQ), 

DT(IRPFQ) 

Rated  pressure  at  full  flow 

D(RPM) , 
DT(ORPM) 

Pump  operating  speed 

D(RPOQ) , 
DT(IRPOQ) 

Rated  pressure  at  zero  flow 

D(RQ) ,DT(IRQ) 

Rated  flow 

D(RRPM) 

Pump  speed  at  rated  flow  and  pressure 

RPM 

Dummy  variable 

R1,R2, 

R  3 ,  RA , 

R5,R7, 

R10.R11 

Dummy  variables 

SHAPF 

Radiation  shapf  factor  for  the  external  walls 

SIGMA 

Stef an-Boltzmann  radiation  constant 

D(TA) 

Surrounding  atmospheric  temperature 

DT(TBN) 

Temperature  of  the  pump  vails 

Dimensions 


CIS 

CIS 

PSID 

LB  /IN3 
m 

LB  /IN3 
m 

LB  /IN3 


PSI 


RPM 


PSI 

CIS 

RPM 


WATTS/ IN. 2-°R4 
0F 

*F 
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DT(TFPl) 

DT(TFP2) 

DT (TFP3) 

D(TPMASS) 

DT(TPN) 

D(TST) 

D(UAB) 

D(UP1B) 

D(UP2P) 

UP3P 

D(VOLl) 

D(VOL2) 

D(VOL3) 


Temperature  of  the  inlet  fluid 
Temperature  of  the  outlet  fluid 
Temperature  of  the  case  fluid 
Pump  wall  mass 

Temperature  of  the  internal  parts,  piston 

Temperature  of  the  surrounding  structure 

External  heat  transfer  coefficient  of  the  pump 

Heat  transfer  coefficient,  inlet  fluid  to  the  walls 

Heat  transfer  coefficient,  outlet  fluid  and  the 
piston 

Heat  transfer  coefficient,  case  fluid  and  the  walls 
Inlet  volume 

Outlet  volume  plus  cylinders  volume 
Case  volume 


°F 

°F 

°F 

LB* 

°F 

°F 

WATTS/ IR.2-°F 
WATTS/IN. 2-°F 
WATTS/IN. 2-°F 


WATTS/IN. 2-°F 
3 

IN. 

IN.3 

IN.3 
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SUBROUTINE  TPUMP51  (D ,DT , DD,L) 

C****  REVISED  DECEMBER  1979  **** 

DIMENSION  D{64),DT(1),DD(1),L(10) 

COMMON  G(90) 

COMMON  / TRANS /P( 300),Q(300),C(300) ,TC(300) ,TW(300) ,TF(300) 

+  , ACF( 300) , ACW( 300) , DXF( 300) , TIME , DELT , PI , NLINE , NEL 
COMMON  / C0flP/LTYPE(  99)  , NC(  99)  , KTEMP(  99)  , IND ,  IENTR , INEL 
COMMON  /STEADY/PN(  90)  , QN(  90)  ,  PEX( 90)  ,  P1)LEG( 90)  ,QL( 90)  , 

+  QA, QS ,Q1 , PUP , PDOWN , NNOUE , NLEG ,  NCPN , TERM , LEGN , ICON , 1NV , 

+  I NX , INZ, NUP( 90) , NDWN( 90 ) , NELEM( 90) , ILEGAD( 90) , ILEG( 1000) , 

+  IFLAGG , C0N2 , QQQ , ITER , ICOUNT 

COMMON  /FLU ID/ AT PRES ,C F , CPFN , FTEMP , PROP ( 1 3 , 3 ) , IDAT , AT , IDSTT , STT , 
+1 DWT , WT , I DTEMP , IDFLT , FLT 
COMMON/ENVIRON/NENV , VAT( 5) ,VSTT( 5) , VWT( 3) 

DIMENSION  PP(7,7) ,B(7) 

I NTEGER  TST , TA , VOL1 , VOL2 , PMASS , VOL3 , TPMASS , ACP ,ASAB,TSTR , 

+  UAB, ASPB ,CBP ,RPM,UP2P , DELTA , UP 1 B , QOUT 
+  , PTYPE.TFPl ,TFP2,TFP3,TBN,TPN,QLEAK1 ,QLKAX2 . PCASE 
+  , AS AD , PDMASS , TON ,TCN , RPFQ ,RPOQ , RQ , RRPM , PSMI N , RCDP , 

+  PSET , DELTA1 , POUTLT , PINLET , Q3 , Q2  R , RCDL , HTREJ , QCD , POUT , 

+  CONI , COM2, CON3.QIN, FLAG, ORPM 
C  D  ARRAY  VARIABLES 

DATA  MTYPE/1/.PTYPE/2/ .TPMASS/3/ , PMASS/4/ , PDMASS/5/ , V0L1/6/ , 

+  VOL2/7/ .VOL3/8/ .ACP/9/ , ASPB/ 10/ , UP2P/ 1 1/ .HTREJ/ 12/ .DELTA/ 13/ , 

+  ASAB/14/ ,ASAD/1 5/ , UAB/ 16/ ,CBP/ 17/.UP1B/18/ , TST/ 19/ , 

+  TA/20/ , ITF/2 1/ , ITB/22/ , 

+  RQ/23/ , RRPM/24/ .RPM/25/ .RPOQ/26/ .RPFQ/27/ , 

+  PSMIN/28/ .RCDP/29/ , RCDL/ 30/ , PSET/31/ , DELTA1/32/ 

C  DT  ARRAY  VARIABLES 

DATA  TFP1/1/  ,TFP2/2/,TFP3/3/  ,’l’BN/ 4/  ,TPN/3/  ,  QLEAK1/6/  , QLEAK2/7/ 

+  , Q2R/3/ ,Q3/ 9/ , PI  NLET/10/  ,  TCN/  11/.TDN/12/,  PCASK/1 3/  ,  POUTLT/ 14/ 

+  ,QCD/13/  ,  POUT/ 16  /  ,  QOUT/ 17/  ,  QIN/ 18/  ,ORPM/ 19  /  ,  IRPOQ/  20/  ,  IRPFQ/2 1/ 
+  , IRCDL/22/ , IRg/23/ .TSTR/24/ 

DATA  SIGMA/ . 349E-1 1/ , SHAPE/ . 96/ , EPSION/0.3/ .CJ/8.85/ 

C  DELTA  -THE  DISTANCE  FROM  INLET  TO  OUTLET  THROUGH  THE  PISTON 

C  DELTAl  -THE  TOTAL  DEPTH  OF  THE  DRAIN  BOWL 

C  ITF&ITB-INIT IAL  TEMPERATURE 

C  UAB  -HEAT  TRANSFER  COEFF.  ATMOSPHERE  TO  CASE 

C  ASAD  -SURFACE  AREA  EXTERNAL  TO  CASE  DRAIN  WALL 

C  PDMASS  -PUMP  WALL  MASS  OF  CASE  DRAIN  WALLS 

C  CAP  -INTERFACE  CONDUCTANCE,  PISTON  TO  CASE 

C  VOLl  -INLET  VOLUME 

C  VOL2  -EXIT  VOLUIIE  INCLUDES  CYLINDER  VOLUMES 

C  V9L3  -CASE  VOLUME 

C  ASPB  -CONTACT  AREA  INTERNAL  PARTS , PISTON, TO  CASE 

C  ACP  -CROSS  SECTIONAL  AREA  OF  TOTAL  PISTON,  INTERNAL 

C  MASS 

C  UP2P  -HEAT  TRANSFER  COEFFICIENT  PISTON  TO  EXI\  FLUID 

C  QLKAKI  -LEAKAGE  FLOW  FROM  INLET  TO  DRAIN 

C  UPlB  -HEAT  TRANSFER  COEFF.  CASE  OR  PISTON  TO  FLUIDS 
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PMASS  -PISTON  MSS 

TPMASS  -PUMP  MSS  SURROUNDING  VOLUMES  1&  2, TOP  MOUNTING 
320  BTU/MIN. -5623. WATTS 
IF ( IKNTR) 1000 ,2000 , 3000 
C  **>'•  1000  SECTION 
1000  CONTINUE 

IF( IDTEMP  .EQ.  0  .OR.  L(9)  .EQ.  0)  GOTO  1100 
IF(IDAT  .EQ.  1)  D( 2U)-AT 
IF(IDSTT  .EQ.  1)  D( 19 )-STT 
IF( IDFLT  .EQ.  1)  D(21)-FLT 
IF( IDWT  .EQ.  1)  D(22)-WT 
1100  IF(L(10).EQ.0)GGT0  333 
C  ***  SET  DATA  TO  PROPER  ENVIRONMENT  *** 

D(TA)-VAT(L( 10) ) 

D(TST)-V3TT(L( 10) ) 

D( ITB)**VWT(L( 10) ) 

C 

333  DO  20  1-1,30 
20  DT(I)-0.0 
Ll-L(l) 

L2=L(2) 

L3=L(3) 

C  INITIALIZING  TEMPERATURES 

TC( LI )=D( ITB ) 

TC(L3)-D( ITB) 

TF(L3)-D( ITF) 

TC(L2)-D( ITB) 

TF(L2)=D( ITF ) 

TF(L1)-D(ITF) 

DT( TFP1 )-D( ITF) 

DT(TCN)-DCITB) 

DT(TUN)-D(ITB) 

DT( TFP2 )-D( ITF ) 

DT(TFP3)*D(  ITF) 

DT(TBN)-D(  ITB) 

DT(TPN)*D( ITF ) 

DT(TSTR)-(D(TST)+4oO.)**4 
IF(D(UP1B)  .EQ.O.O)  l)(  UP1B)“  .  1 
IF(D(UAB) .EQ.O.O)  D(UAB)-.0069 
IF(D(UP2P). EQ.O.O)  D(UP2P)-3.0 
L(4)-0 

DT(q2k)-D(KQ)*D(RPM)/D( RRPM) 

DT(Q3)-1,05*DT(Q2R) 

QQQ-DT(Q2R) 

C  IF  (PN(NDWN(L(5))).EQ.0.0)PN(NDWN(L(5)))-48. 

DT( PCASE)-2Q. 

G(L(7))-2. 

LL-(L(8)+7)/8 

L(9)-33+LL*8 

IERR-0 

DT( IKPFQ)-D(RPFQ) 

DT( IRPOQ)-D(RPOQ) 

DT( IRCDL)-D( RCDL) 

DT( IRq)-DT(Q2R) 

RETURN 
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C  ***  2000  SECTION 

2000  IF  (L(4)  .EQ.  3)  L(4)-0 

IF  (L(4)  .NE.  0)  GO  TO  2100 
C0N1*L( 5) 

C0M2=L(6) 

C0N3»L( 7) 

IF  ( L( 8) . GT .0)00  TO  2010 
C  SET  INLET  ANL)  OUTLET  PRESSURES 
2020  DT( P INLET)  =PN ( NI)WN( CONI ) ) 

IF(DT( PINLET) . LT.D(PSMIN) .AND .TIME .NE.0.0)WRITE(6 ,999)D(PSMIN) 
999  FORMAT ( 10X , 34HWARNING  PUMP  INLET  PRESSURE  BELOW  ,F10.2,4H  PSI) 
DT(Q0UT)«QL(C0N2) 

IF  ( DT(QOUT) . LT .0 • )DT(QOUT)“0 . 

IF(DT(QOl'T)  .GT.DT(Q3)  )DT(Q0UT)»DT(Q3) 

IF  ( IFLAGG  .EQ.  2)G0  TO  2001 

DT( POUTLT)*DT( IRP0Q)-( DT( IRPOQ)— DT( IRPFQ) )*DT(Q0UT)/DT(Q2R) 

GO  TO  2002 

2001  OT ( POUTLT)=DT( IKPFQ)*( 1 . -(DT(QOUT)-DT( Q2R) )/(DT(Q3)-DT(Q2R) ) ) 

C  CALCULATE  LEAKAGE  FLOW  FROM  PRESSURE  TO  CASE 

2u02  i>r(QLKAK2)»DT( IRCDL)-( . 3*DT(Q0UT)/DT( IRQ) ) 

C  READ  CASE  FLOW  AND  CHECK  AGAINST  LIMITS 
DT(QCD)=QL(C0N3) 

IF  (DT(QCD)  .CT.DT(QLEAK2))DT(QCD)=*DT(QLEAK2) 

IF  (DT(QCD)  . LT .0 .  )UT(QCD)“G  .0 

C  CALCULATE  UP  BETWEEN  CASK  AMD  INLET,  SET  CASE  PRESSURE 
DPCS=D(  RCOP)*(  1  .-DT(QCi))/  UT(QLEAK2  )  ) 

DT ( PCASE ) “DT ( P INLET )+DPCS 
DT ( Q I N ) “DT ( QOUT ) +DT (  QOD  ) 

GO  TO  2100 

C  ***  VARIABLE  RPU  SECTION 
2010  TIME  l=Ti;iE-i/ 3*DELT 

CALL  INTERP(TIME1 ,D(33) , D(L( 9) ) , 10, L(8) , DT(ORPM) , I ERR) 

C  ADJUST  OUTLET  FLOWS  AND  PRESSURES  FOR  R.°M 
C  DT(ORPM)  -  OPERATING  RPM 

DT(Q2R)“D(RQ)*DT(0RPM)/D(RRPM) 

DT(Q3)“1.05*DT(Q2R) 

DT( IRPOQ)«D( RPOQ)  *OT(ORPM)/ D( RRPM) 

DT( IRPFQ)“D(RPFQ)*DT(0KPM)/D(RRPM) 

QQQ-UT(Q2R) 

DT(lKCUL)-D(RCDL)*DT(ORPM)/D(KRPH) 

DT(  IRQ) »D(,Ci)*DT(ORPM)/D( RRPM) 

IF( ITER .EQ. 1 .AND . ICOUNT . EQ . 1 ) IFLAGG-l 
LF  ( DT(ORPM) .GT.O .0)GO  TO  2015 
C  IF  RPM-O,  SET  PARAMETERS  TO  EERO  FLOW  VALUES 

DT( PINLET)“PN( NDWN(CONI) ) 

DT(QOUT)“0.0 

DT(POUTLT)“D(PSET) 

DT(QLEAK2)“0.0 

DT(QCD)»0.0 

DT  (  P  CASE  )  -  DT  (  P I N  LET  ) 

DT  (  Q I N  )  “0 . 0 
QQQ-O.l 
GO  TO  2100 

C  MAKE  NEW  FLOW  GUESSES  BASED  UPON  OPERATING  RP  t 
2ul 5  IF  (QL(CONl) .NE.O.O.AND.QL(CON2).NE.O.U)GO  TO  2020 
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QL(  CON  1  )=DT(,  1/  K) 

QL(.CON2 )=0. 9  'DTi Q2R) 

QL(CON3)-2. 

00  TO  2020 

C  ***  DISTRIBUTE  OATA  TO  CONNECTIONS 
2100  IF  ( ICON-2)  22<>u  ,  2  100,2400 
C  I NLET 

2200  Ql-QL(INEL) 

L(4)=L(4)+1 
C  FLAOO 

return 

C  OUTLET 

2300  IF  (INX.NE.l)  CO  TO  2700 
Ql-DT(QOIJT) 

DT ( POU  T) =DT ( POUTLT ) +DT ( PCAS  E ) -D( PS  ET ) 

if  c  ijt(  pout)  .  i;r .  ot(  pinlet)  )dt(  pout)-dt(pinlet) 

PUP=DT(POUT) 

PI) LEG(  INEL)-DT(  POUT)-DT(  PI  NLET) 

INV=0 

TERM=PDLEG(  INr.L) 

L(4)-L(4)+l 

RETURN 

C  CASE  DRAIN 
2400  IF  ( I NX  NE.l)  CO  TO  2700 
Ql-DT(QCD) 

PDLEC(INEL)-PN(NDWN(INFL))-PN(NUP( INEL) )-K)T(QCD)/G( INEL) 
TER.1=PDLEC(  INEL) 

UT(  QLEAK1 )  =  D  i  ( ULEAK2  ) -DT(QCD) 

L( 4 )=L(4 )+l 

PUP=PDLEC( I NEL)+DT( PINLET) 

INV-U 

RETURN 

2700  UKITE(6 ,2800)  IND, ICON, INEL 

2800  FORMAT(  5X ,  4611  CALL  SEQUENCE  ERROR  DETECTED  IN  COMPONENT  NO 
+  15,14a  CONNECTION  NO,I5,7iiLEG  NO., 15) 

STOP  5oOO 

C  ***  3000  SECTION 
3000  CONTINUE 
LI*L( l) 

L2-L(2) 

L3«L(3) 

KTY  PE-D(MTYPK )+ . 001 
NTYPE-D(PTYPE)+.001 
CPBN-PROP( KTYPE, 1) 

CPPN-PROP( NTYPE, 1) 

COB-PROP ( KTYPE , 3 ) 

COP-PROP (NTYPE, 3) 

CPCN-CPiiN 

CPDN-CPBN 

RIIOP-PROP( NTYPE  ,2  ) 

RiiOB-PROP(  KTYPE ,  3  ) 

C  AREAS  &  DISTANCES  ARE  ESTIMATES 
Dl-D( VOLi )/ (D( VOLI )+D( V0L2) ) 

D2*D( V0L2 )/ ( D( VOL  1 )+D< V0L2 ) ) 

DXPl-D(DLLTA)/4.0 
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DXB«-D(DELTA)/4.0 
DXC-D( DELTA)/ 4.0 
DXD»‘D{  DELTA1 )/  2 . 

DXP-D( PMASS)/ ( RH0P*D( ACP) ) 

Cl-SIGMA*EPSION*SHAPF*D(ASAB) 

C2-C1*D1 
C3-C1*D2 

C4«SIGMA*EPSI0H*SHAPF*D(ASAD) 
RHOIL«386.4*RHO(DT(TFPl),(P(L3)+P(Ll))/2.) 

FilASSl*D(V0Ll)*RH0IL 
FMASS2-(D(VOL2))*RHOIL 
FMASS3“D( V0L3)*RH0IL 
CMASS-D(TPMASS)*D2 
BMASS“D( TPMAS  S) *D1 
ACB-BMAS  S/ ( RH0B*D( DELTA) / 2 . ) 

ACOCMASS/ (  RH0B*D(  DELTA)/"  .  ) 

ACPP-D(PMASS)/RHOP 
ACD-D( PDMASS ) / ( RH03*D( DELTAl) ) 

ACP1«D(V0L1)/D( DELTA) 

AC?2«D( V0L2)/ (D( DELTA)/ 2.0) 

ACP3-D( V0L3 )/ ( D( DELTAl )/ 2 . 0) 

AS  PI  B”SQRT(4 .  *ACP1/PJ.  )*PI. *D(  DELTA) 
ASP2P“1.3*SQRT(4.*ACP2/PI)*PI*D(DELTA)/2. 

ASP2C-SQRT(4 . *ACP2/PI )*PI*D( DELTA)/ 2 . 

ASP3P-1 . 39*SQRT( 4 . *ACPP/PI )*PI*D( DELTAl ) 

ASP3D” . 75*D( ASAD) 

HEAT  TRANSFER  COEFF .ARE  C0NSTANTS-50BTU/HR-FT2-F( . 1 1  WATTS 
/IN2-F)  DEFAULT  VALUE 
UP3D=D(UPlB)/3. 

UAD-D(UAB) 

UP200(UP1B)/1. 

RHFL1«A3S(Q(L1))*R1101L 
RMFl,2-ABS(g(L2))*RliOIL 
RMFL3-+ABS(Q(L3))*RHOIL 
3200  Rl-CF/(DXF(Li)/ACF(Ll)+DXPl/ACPl+(RilFLl*DELT)/(ACF(Ll) 

+  **2*RH0IL) ) 

R3«1.0/(DXF(L1)/<ACW(L1)*C(L1))+DXB/(ACB*C0B)) 

R4- 1 .0/ (DXF( L2 )/ (ACW( L2 )*C(L2 ) )+DXC/(ACC*C0B) ) 
R5-1.0/((DXP/(D(ACP)*COP)+DX3/(ACB*C0B)+ 

+  l./(D(ASPU)*l)(CBP)))*2.) 
R7-1.0/(UXF(L3)/(ACW(L3)*C(L3))+DXD/(ACD*COB)) 
R9-C0B/(UXri/AC3+DXC/ACC) 

Rl0-C0il/(  (DXG/ACC+DXD/ACD)*2. ) 

R1  l-COB/  (  (  DXB/ACB+DXU/ACD)’*'2.  ) 

R8“l .  /  (  (DXP/(  D(  ACP)*C0P)+DXC/ (  ACC’,tC0B)+l .  /  (  D(  ASPB)*D(CBP)  )  )*2  .  ) 

31«D(UP1B)*ASP1B 

U2-UP3D*ASP3P 

B3-0(UP2P)*ASP2P 

B5-UP3D*ASP3D 

B6-D(UAU)*D(ASAU)*D1 

B3-JP2C*ASP2C 

B9"D(UAtS)*D(  ASAli)*D2 

B 1 0*UAD*  D( ASAD ) 

C  P1,P2  P3  B.P.C.D,  NODES  IN  ORDER 
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DO  3333  J-1,7 
PP(I,J)-0.0 
3333  B(I)«0.0 

3300  PP(1,1)-FMASS1*CPFN/DELT+R1+CPFN*RMFLH-B1 
+  +DT(QLEAK1 )*RK01L*CPFN 
PP(  1 ,3)~DT(QLEAK1  )*RH0IL*CFFN 
PP(1,4)«- B1 

B( 1 )-FMASSl*CPFN*DT(TFPl )/ DELT+( Rl+CPFN*RMFL1 )*TF(L1 ) 

PP(  2 , 1 )  —  (RI1FL1+DT(<)L£AK1  )*RHOIL)*CPFN 

PP(2,2)-FMASS2*CPFN/DELT+(RMFLl+DT(QLEAKl)*RH0IL)*CPFN+B3+B8 

PP(2,6)— B8 

PP(2,5)«-B3 

B< 2 )-FMASS2*CPFN*DT( TF P2 )/ UELT+O . 30*D( HTRE J ) 

PP( 3 , 2 ) — DT( QLEAX2 ) *CPFN*RriOIL 

PP(3 ,3)“FMASS3*CPFN/DELT+B5+DT(QLEAK2  )*CPFN*RH0IL+B2 

PP(3,7)«-B5 

PP(3,5)--B2 

3(3) “FMASS3*CPFN*DT ( TF  P3 ) / DELT+0 . 10*D( HTRE J ) 

PP(4,1)«- B1 

PP( 4 , 4 )«BMASS*CPBN/DELT+R9+R3+R5+B1+B6+R1 1 
PP(4,6)— R9 
PP(4,7)— Rll 
PP(4,5)— R5 

B(4)-BMASS*CPBN*DT(TBN)/D£LT+B6*D( TA)+R3*TW(L1 )+ 

+  C2*Df(TSTR)-C2*(DT(TBi'J)+460.  )**4 
PP(5,6)«- R8 
PP(5,2)«- 83 
PP(5,3)— B2 
PP(5,4)— R5 

PP( 5 , 5)-D( PMASS) *CPPN/DELT+B3+R5+B2+R3 
B(5)"D(PMASS)*CPPN*DT( TPN )/ DELT+O. 60*D( HTRE J) 

PP(  6  ,4  )—R9 
PP(6J5)— R8 
PP(6,7)«- RIO 
PP(6,2)— B8 

PP(6,6)-CMASS*CPBN/DELT+R4+R8+R9+R10+B8+B9 
B ( 6 ) -CMAS  S*CPBN*DT( TCN ) / DELT+R4*TW( L2 )+B9*D( TA)+C3*DT( TSTR) 

+  -C3*(DT(TCN)+460.)**4 
PP(7,3)—  B5 
PP(7,4)—  Rll 
PP(7,6)— RIO 

PP( 7 , 7 )-D( PDMASS)*CPBN/DELT+R7+R10+R1 1+B5+B10 
B(7)-D(PDMASS)*CPBN*DT(TUN)/DELT+R7*TW(L3)+B10*D(TA) 

+  +C4*DT(TSTR)-C4*(DT(TDN)+460. )**4+.001*D( HTKEJ) 

3600  CALL  SIMULT( PP , B , 7 , IERROR) 

DT(TFP1)-B(1) 

DT(TFP2)-B(2) 

DT(TFP3)-B(3) 

DT(TBN)-B(4) 

DT(TCN)-B<6) 

DT(TDN)-B(7) 

DT(TPN)«B(5) 

TF<L2)-B(2) 

TF(L3)-B(3) 

TC(Ll)*B(4) 

TC(L2)-B<6) 

TC(L3)-B(7) 

RETURN 

END  M3 
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APPENDIX  T 

CALCULATION  SUBROUTINES 
SUBROUTINE  TCALC 

HYTTHA  TECHNICAL  MANUAL  (AFAPL-TR-76-43,  VOL.  VIII) 

4.2  SUBROUTINE  TCALC 

The  TCALC  subroutine  is  responsible  for  the  steady  state  calculations  in 
the  system.  TCALC  is  called  from  the  THYTR  main  program.  The  subroutine  will 
compute  the  pressures  at  all  the  system  nodes  and  flows  in  all  the  legs,  using 
pressure  drop  data  obtained  from  TLEGCAL.  Figure  4.2-1  is  a  generalized  flow 
diagram  of  TCALC. 

On  entry  into  TCALC  the  first  phase  performed  by  the  subroutine  will  be 
to  initialize  the  appropriate  calculation  arrays.  After  the  initialization, 
the  computation  phase  begins.  All  the  legs  will  be  assigned  conductance  values 
from  the  TLEGCAL  subroutine.  These  conductance  values,  along  with  constant 
factors,  will  then  be  inserted  into  two  matrices.  The  TGAUSS  subroutine  will 
be  called  to  compute  the  new  pressure  values.  These  pressure  values  at  the 
nodes  are  then  used  to  calculate  the  new  flow  rates  for  the  legs  in  the  system. 
When  all  the  flows  pass  the  convergence  test,  the  flows  and  pressures  are 
written  to  labeled  common  arrays  and  program  control  is  passed  back  to  THYTR. 

If  the  number  of  iterations  exceeds  50,  the  most  recent  calculated  values  of 
flow  and  pressure  are  returned  to  the  labeled  common  arrays  and  an  error 
message  is  printed. 

4.2.1  Math  Model  -  The  development  of  the  TCALC  subroutine  to  analyze  com¬ 
plex  flow  systems  results  from  the  assumption  that  all  resistance  factors  in 
a  line  can  temporarily  be  assumed  linear.  The  net  flow  around  any  node  can 
then  be  written  as  the  sum  of  all  the  flows  entering  and  leaving  that  node 
or  -  0. 

If  R^  is  a  resistance  factor  used  to  describe  a  resistance  in  a  leg, 
then  “  ^P12^12* 
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FIGURE  4.2-1 

TCALC  GENERALIZED  FLOW  DIAGRAM 
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where : 

R^2  =  Resistance  from  nod?  1  to  node  2  of  the  leg 

AP^ 2  =  Pressure  drop  from  node  1  to  node  2  of  the  leg 
Q^2  =  Flow  in  the  leg 

Conductance  is  then  defined  as: 


12  R, 


where : 


^12  =  C°nc*uctance  from  node  1  to  node  2  of  the  leg 


Then: 


Q12  G12  P12 

The  net  flow  at  any  node  (where  three  or  more  legs  come  together)  must  be 


Therefore,  the  flow  requirement  is  satisfied  if: 

EJ  °IJ  [PI  -  PJ  ±  4PIjl  -  rK  ±  «IK  ■  ° 

Where : 

PT  =  pressure  at  node  I 
Pj  ■  pressure  at  node  J 

AP  =  a  pressure  rise  or  loss  (from  a  pump  or  actuator)  in  leg  IJ 
IJ 

Q  =  fixed  flow  in  leg  IK  connected  to  node  I 
IK. 

Equations  of  the  above  form  are  input  to  a  matrix  for  solution  of  pressures 
at  nodes.  These  matrix  solution  pressures  are  used  in  conjunction  with  the 
calculated  conductance  (G)  to  calculate  a  new  flow  guess  in  each  leg.  When 
two  successive  flow  guesses  for  all  legs  in  the  system  are  within  a  specific 
tolerance  such  as  .001  CIS,  the  solution  has  converged.  Refer  to  Appendix  A 
SSFAN  Technical  Manual,  AFAPL-TR-76-43,  Vol.  VI,  for  a  more  detailed  mathe¬ 
matical  development. 
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4.2.2  TCALC  Subroutine  Description  -  The  TCALC  subroutine  is  divided  into 


two  phases.  The  first  phase  deals  directly  with  the  input  data  for  establish¬ 
ing  the  system  pressure  node  identification  arrays.  Six  arrays  are  generated 
which  are  used  in  the  calculation  of  node  pressures  and  leg  flows  in  phase  two. 
Specif ically ,  these  arrays  are: 

JCOL: 

1)  Dimension  (M,20) 

2)  The  final  JCOL  array  (in  compressed  form)  identifies  the  columns 
in  a  square  CALC1  array  which  are  filled  with  non-zero  terms. 

The  rows  of  JCOL  correspond  to  the  rows  of  CALC1,  and  the  ele¬ 
ments  in  each  row  of  JCOL  correspond  to  the  column  number  in 
each  row  of  CALC1. 

3)  Note:  JCOL  describes  a  square  CALC1  array  in  order  to  be  com¬ 
patible  with  the  solution  technique  in  TGAUSS. 

IDIAG: 

1)  Diraension(M) 

2)  The  IDIAG  array  identifies  which  columns  of  CALC1  contain  the 
positive  flow  values.  IDIAG(l)  corresponds  to  the  column  in 
which  the  positive  conductance  is  located  in  the  first  row  of  the 
CALC1  array.  IDIAG(2)  corresponds  to  the  column  in  which  the 
positive  conductance  Is  located  In  the  second  row  of  the  CALCl 

array. 

3)  Note:  IDIAG  describes  a  compressed  CALC  array. 
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JNEG : 


1)  Dimension  (ML) 

2)  The  JNEG  array  identifies  which  column  in  CALC1  contains  the 
first  appearance  (in  a  row-by-row  search)  of  a  negative  conductance 
value  in  the  CALC1  array.  For  example,  JNEG(4)  records  the  first 
negative  conductance  value  of  LEG4.  If  JNEG(4)=3,  then  the  first 
time  a  -G^  appears  is  in  Row  4,  Column  3  of  the  CALC1  array. 

3)  Note:  JNEG  describes  a  compressed  CALC1  array. 

INEG: 

1)  Dimension  (ML) 

2)  The  INEG  array  differs  from  the  JNEG  array  in  only  one  respect, 
that  being  the  INEG  array  stores  the  second  appearance  of  a  negative 
conductance  value. 

3)  Note:  The  INEG  array  describes  a  compressed  CALCl  array. 

JRENT : 

1)  Dimension (M) 

2)  The  JRENT  array  identifies  the  number  of  non-zero  entries  in 
each  row  of  CALCl. 

3)  Note:  JRENT  describes  either  a  square  or  compressed  CALCl  array. 

JCENT: 

1)  Dimension (M) 

2)  The  JCENT  array  identifies  the  number  of  non-zero  entries 
in  each  column  of  CALCl. 


3)  Note:  JCENT  describes  a  square  CALC1 


To  understand  how  Phase  I  works,  the  example  system  in  Figure  4.2-2  is 
developed  below.  A  simplified  flow  diagram  of  Phase  I  is  shown  in  Figure 
4.2-3. 


(12) 


1  1  2 
2  2  3 

3  2  4 

4  3  4 

5  3  5 

645 
7  5  6 

£  6  7 

9  6  7 

10  6  7 

11  7  8 

12  3  8 

13  8  9 

14  9  10 

ILEP  ARRAY 


NUMBER  OF  PRESSURE  NODES  M  *  10 
NUMBER  OF  LEGS  ML  *  14 


Figure  4.2-2 


TCALC  EXAMPLE  SYSTEM 


* 


OPK-OM1-79 

FIGURE  4.2-3 

TCALC  SUBROUTINE  PHASE  ONE  OPERATION 
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I.  JCOL  is  initially  filled  with  non-zero  terms  to  indicate  the 


4 


positions  of  non-zero  terms  in  a  square  CALC1. 


DO  10  K=l,  ML 
I  =  ILEF (K, 2) 
J  =  ILEP (K, 3) 
JCOL(I,J)=I 
JCOL(J, I)=I 
JCOL(I , I)=I 
JCOL(J, J)=I 


123456789  10 


II.  JCOL  is  renumbered  to  provide  for  easy  construction  of  JRENT ,  JCENT , 
JNEG ,  TNF.G ,  and  IDIAG. 


C - RENUMBER  JCOL  AND  BUILD  JRENT 

DO  20  1  =  1, M 
K0UNT=G 
DO  35,  J=1,M 
JJ=JCOL(I , J) 

IF ( JJ . EQ .  )  GO  TO  35  JCOL  = 

KOUNT=KOUNT+l 
JCOL  ( I , J) =KOUNT 
35  CONTINUE 

JRENT ( I ) =KOUNT 
20  CONTINUE 


JRENT 


123456789  10 


1 

1  2 

2 

12  3  4 

3 

1  2  3  4  3 

4 

12  3  4 

5 

12  3  4 

6 

12  3 

7 

12  3 

8 

1  2  3  4 

9 

12  3 

10 

1  2 

1 

2 

3 

4 

5 

6 

7 

CO 

9 

10 

Cl 

4 

5 

4 

4 

3 

3 

4 

3 

3 
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JNEG  records  the  CALC1  column  containing  the  downstream  appearance 


of  the  leg  number  as  a  negative  element.  INEG  records  its  upstream 
occurrence . 


LOCATE  ALL  OF  OFF 
DO  45  K=1 ,ML 
I=ILEP (K, 2) 

J=II,EP  (K,  3) 

JNEG (K)=JCOL(I , J) 

INEG (K) = JCOL ( J , I ) 

INEG 


1  2  3  4  5  6  7  8  9  10  11  12  13  14 


-DIAGONAL  ELEMENTS 

JNEG  ’ 


* 


-  BUILD  JCENT  AND  ID I AG 

DO  65  1=1, M 
IDIAG(K) =JCOL (K,K) 

KOUNT=0 
DO  67  J=1,M 

IF(JCOL(J,I) .EQ.0)G0  TO  67 

KOUNT=KOUNT+l 

CONTINUE 

JCENT(I) =KOUNT 


123456789  10 


JCENT  = 


245443343  2 


IDIAG  = 


123  4  56789  10 
1  2  2  3  3  2  2  3  2  2~| 
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V,  The  JCOL  element?  are  all  lef t-justified,  and  their  previous 
positions  are  set  equal  to  zero  by  the  statement  JCOL(I , J)=0. 

This  statement  must  precede  JCOL(I,K)=J  so  that,  in  the  event  that 
J=K,  the  compressed  JCOL  matrix  contains  its  non-zero  elements 
in  the  proper  location.  ICOL  can  now  be  copied  from  JCOL  and 
be  passed  to  GAUSS  for  use  in  the  solution  process. 
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COMPRESS  THE  JCOL  MATRIX 
DO  70  1=1 ,M 
NN  = JR ENT (I) 

J=0 

DO  70  K=1 ,NN 
J=J+1 

K1-JC0L(I,J) 
IF(K1.EQ.0)G0  TO  75 
JCOL(I,J)=0 
JC0L(I,K)=J 
CONTINUE 


JCOL  = 
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Phase  two  operation  of  the  CALC  subroutine  begins  with  initializing 
the  conductance  array  -  CALC1,  and  the  constant  array  -  CALC 2 ,  to  zero 
values.  (See  Figure  4.2-4  for  a  flow  diagram  of  the  phase  two  operation.) 
A  call  is  now  made  to  the  subroutine  TLEGCAL  for  each  leg  in  the  system. 
TLEGCAL  will  return  the  value  of  conductance  to  the  G  array  in  the 
unlabeled  common. 

After  all  the  conductance  values  are  calculated  for  each  leg,  they 


must  be  entered  into  the  compressed  CALC1  array.  For  the  example  system 

the  CALC1  array  contains: 

c  -  BUILD  CALC1  MATRIX 

DO  9099  K«=1,ML 
I=ILEP (K, 2) 

J=ILEP (K, 3) 

L=IDIAG(I) 

LM=IDIAG(J) 

CALC1 (I ,L)=CALC1 (I ,L)+G(K) 

CALC1 ( J ,LM)=CALC1 ( J ,LM)+G(K) 

L=JNEG(K) 

LM=INEG(K) 

CALC.1  (I  ,L)=CALC1(I  ,L)-G(K) 

CALC1 ( J , LM) =*CALC1 ( J , LM) -G (K) 

9099  CONTINUE 

1  2  3  4  5 


Entry  T5CALC 


FIGURE  4.2  4 

CALC  SUBROUTINE  PHASE  TWO  OPERATION 
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CALC1  is  built  in  this  manner  for  each  iteration.  This  compressed 
form  speeds  the  solution  process. 

The  CALC2  array  contains  the  constant  terms  of  the  system  of 
linear  equations  that  describe  the  model.  Constant  pressure  drops 
in  legs,  external  flows  and  constant  pressure  sources  are  all  inserted 
into  this  array.  Any  constant  pressure  source  or  pressure  drop  is  multiplied 
by  the  conductance  of  the  leg  it  is  associated  with.  If  leg  (6)  has  a 
pressure  drop  term  -  PDLEG(6) ,  then  PDLEG(6)  will  be  multiplied  by 
the  conductance  for  leg  (6)  which  is  G(6) ,  making  the  resulting  term  a 
flow.  Thus,  all  external  flows  have  no  multiplication  factor. 

With  both  CALC1  and  CALC2  filled,  the  TGAUSS  subroutine  is  called 
to  solve  for  pressures  in  the  system.  The  answers  are  returned  through 
the  CALC!  array  and  then  put  into  the  PN  array  which  contains  all  the 
system  node  pressures.  Now  a  new  flow  is  calculated  for  each  leg  in 
the  system  based  on  the  recent  calculation  of  the  pressures.  The  new 
flow  is  equal  to  the  difference  of  pressures  between  the  nodes  of  the 
leg  plus  any  constant  pressure  drops  all  multiplied  by  the  conductance 
of  the  leg. 

The  solution  for  flows  in  all  the  legs  are  final  when  all  the  previous 
flows  (Q)  and  the  latest  calculated  flows  (FLOW)  are  within  a  specified 
tolerance.  For  all  flows  if 


ABS  (FLOW-Q (IT) )  <  om 

ABS(FL0W)+1  -  ‘ 

then  the  flows  have  converted. 


(1) 
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If  equation  (1)  is  not  satisfied  in  each  leg  of  the  system  a  new  value 
of  flow  will  be  computed  in  each  leg  by  the  following  equation: 

Q(IT)  -  anilifiow  (2 

These  new  flows  will  then  be  given  to  TLEGCAL  for  computation  of  new 
conductance  values  for  another  iteration.  If  all  the  legs  do  not 
converge  after  fifty  iterations,  the  cycle  will  stop  and  all  the  current 
values  will  be  used  as  the  steady-state  variables.  Before  transfer  is  made 
back  to  THYTR  a  last  call  is  made  to  TLEGCAL  to  distribute  pressure  drops 
and  flows  for  the  steady  state  conditions. 

Whenever  the  TPUMP51  subroutine  is  included  in  the  simulation, 
a  check  is  made  to  see  if  the  pump  outlet  flow  and  pressure  are  within 
the  operating  characteristics.  A  typical  pump  outlet  pressure/flow 
curve  is  shown  in  Figure  4.2-5. 


PRESSURE 


I FLAGG 


I  FLAGG 


1 


2 


FIGURE  4.2-5 

TYPICAL  PRESSURE  COMPENSATED  VARIABLE 
DISPLACEMENT  HYDRAULIC  PUMP  CHARACTERISTICS 

If  a  balance  occurs  on  LEG 2  (IFLAGG-2),  the  pump  outlet  flow  is  checked. 


When  it  is  below  the  rated  flow  the  iteration  is  restarted  with  the  pump  model 
using  the  LEG  1  ( I FLAGG- 1)  characteristic. 
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A  check  is  also  made  to  determine  if  the  pump  outlet  flow  is  above 
rated  flow  and  the  iteration  balanced  on  the  proper  pump  leg.  If  not 
the  iteration  is  restarted, 

4.2.3  Computations.  The  only  direct  computation  made  in  the  solution 
of  the  steady  state  values  in  TCALC  is  the  calculation  of  FLOW.  The 
purpose  of  this  is  to  establish  an  error  tolerance  in  flows  that 

is  reduced  through  iterations  to  meet  the  convergence  criteria 
as  discussed  in  the  previous  section.  The  majority  of  the  TCALC  subroutine 
handles  the  bookkeeping  necessary  to  manipulate  the  leg  and  node  numbers 
to  compute  system  pressures  and  flows. 

4.2.4  Approximations .  The  coefficients  of  the  CALC1  array  are  linearily 
approximated  to  represent  the  system  conductances.  Inherent  approximations 
exist  in  some  of  the  constant  data  in  CALC2. 

4.2.5  Limitations .  Most  limitations  exist  in  the  areas  of  physical  dis¬ 
continuities.  TCALC  was  written  to  solve  a  flow  balance  in  a  system. 

Any  flow  discontinuities  that  occur,  such  as  in  a  simple  unbalanced 
actuator,  must  have  mathematical  formula  to  describe  what  happens  to  the 
flow.  TCALC  also  requires  the  leg  pressure  drops  to  be  continuous  over 
a  specified  flow  range.  When  this  does  not  occur,  as  in  a  check  valve,  the 
proper  input  from  the  check  valve  subroutine  must  be  fed  to  TCALC  so 
it  may  respond  to  the  changed  conditions.  Refer  to  Appendix  A  SSFAN 
Technical  Manual  (AFAPL-TR-76-43,  Vol.  VI)  for  a  more  thorough  discussion 
on  the  limitations  of  TCALC. 


698 


4 


A .2.6  Variable 
Variables 
CALC1(  ) 

CALC 2 (  ) 

FLOW 

1 

I COUNT 
IFLAGG 

G 

IFAIL.IFLAG 

IL.IM 

INEG(  ) , JNEG (  ) 

JPCOL (  ) 

ITER 

IU , IV , J , JJ , JL , 
JX , JY , K , KOUNT , 
K1,2,LM,L1 

M 

ML 

PN(  ) 

PDLEG (  ) 

PEX 
QL(  ) 

QN(  ) 


Names 


Description  Dimensions 


Array  of  conductances 

Array  of  constants 

— 

Latest  value  of  leg  flow 

CIS 

DO  loop  counter 

— 

//  of  complete  balances  per  time  step 

— 

Indicator  for  pump  subroutine 

— 

Array  of  conductances 

CIS/PS 

Indicators 

— 

Dummy  variables 

— 

Arrays  containing  location  of  off  diagonal 
conductance  values 

— 

Computational  array 

— 

Iteration  counter 

— 

Dummy  variables 

— 

Number  of  nodes 

— 

Total  number  of  legs 

— 

Array  of  node  pressures 

PSI 

Location  of  pressure  drops  or  increases 

PSI 

Array  of  external  pressure  constants 

PSI 

Array  of  leg  flows 

CIS 

Flow  gain  or  loss  at  a  pressure  node 
changed  to  an  M  matrix  of  constants 

CIS 
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“SUBROUTINE  TCALC 

****  REVISED  JULY  07, 1976  **** 

DOUBLE  PRECISION  CALC  I .CALC 2 

COMMON  G(90) ,CALC2(55) , JPC0L( 55, 20) ,CALC I ( 55, 20) 
COMMON/ICC/ICOL(55, 20) , JRENT(55) , JCENT(55) 

COMMON  /STEADY/PN(90) ,QN (90) , PEX(90) ,PDLEG(90) ,QL(90) , 

+  QA,QS,Q1,PUP,PD0WN,M,ML,NCPN,TERM, 

+  LEGN , ICON , INV , INX , INZ , NUP ( 90 ) , NDWN ( 90) , NELEM ( 90 ) , 
+ILEGAD( 90) , ILEG (1000), IFLAGG , CON2 , QQQ , ITER, ICOUNT 
DIMENSION  IDIAG(55), JCOL(55,55), JNEG(90),INEG(90),ID(20) 
INTEGER  TEST2.TEST.CON2 
EQUIVALENCE ( JPCOL( 1,1) , JCOL( 1,1)) 

IF(NCPN.EQ.0)WRITE(6, 900) 

900  FORMAT( 1H1 , SOX, 30HSTEADY  STATE  CALCULATION  DATA  ) 

DO  5  I-1,M 

QN(I)-0.0 

PEX(I)-0.0 

5  PN ( I ) *0 . 0 

DO  6  I-l.ML 
6  PDLEG (I)-O. 0 
DO  11  1-1,55 
DO  11  J-1,55 

11  JC0L(I,J)-0 

C - BUILD  JCOL  IN  COMPRESSED  FORM 

DO  10  K-l.ML 
I-NUP(K) 

J-NDWN(K) 

DO  10  Kl-1,2 
Jl-I 

IF  (K1.EQ.2)J1-J 
DO  10  K2-1 , 2 
J2-I 

IF  (K2.EQ. 2) J2-J 
DO  10  K3-1.20 
J3-JC0L(J1,K3) 

IF  ( J3.NE. 0)GO  TO  10 
JCOL( J1,K3)-J2 
J2-0 

10  IF  ( J3.EQ. J2) J2-0 

C - BUILD  JRENT.JC ENT: REORDER  JCOL: BUILD  IDLAG 

DO  15  K-l.M 
KOUNT-O 
DO  20  Kl-l.M 
DO  20  K2-1.20 

20  IF  (JCOL(Kl,K2).NE.O)KDUNT-KOUNT+l 
JCENT(K)-BOUNT 
KOUNT-0 
DO  25  K3-1.20 

25  IF  ( JCOL(K,K3) .NE. 0)KOUNT-KOUNT+1 
JRENT(K)-ROUNT 
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4.2.7  (Continued) 


DO  30  K4-1, KOUNT 
30  ID(K4)-JCOL(K,K4) 

DO  35  K5-1 , KOUNT 
TEST-0 

DO  40  K6-1, KOUNT 

IF  (ID(K6).LT.TEST)G0  TO  40 

TEST-ID(K6) 

TEST2-K6 
40  CONTINUE 

K7-KOUNT+1-K5 
JCOL(K,K7)-TEST 
35  ID(TEST2)-0 
K8-JRENT(K) 

DO  15  KOUNT- 1,K8 

15  IF  (JCOL(K, KOUNT) .EQ.K)IDIAG(K) -KOUNT 

C - BUILD  INEG.JNEG 

DO  45  K-l.ML 

I- NUP(K) 

J-NDWN(K) 

II- JRENT(I) 

Jl-JRENT(J) 

DO  50  KOUNT- 1,11 

50  IF  (JCOL(I, KOUNT). EQ.J)JNEG(K) -KOUNT 

DO  45  KOUNT-1 , J1 

45  IF  (JCOL(J, KOUNT). EQ.I)INEG(K)-KOUNT 

C  INITIALIZE  CALC  1  AND  CALC 2  ARRAYS  TO  ZERO 

CON2--1 
I FLAGG- 1 
ENTRY  TSCALC 
ICOUNT-O 

80  ICOUNT-ICOUNT+1 

ITER-1 

IF ( NCPN . Eq . 0 . OR. NCPN . EQ . 2 )WRITE  (6,9004) ICOUNT 
9004  F0RKAT(/,11H  ICOUNT  -.15) 

I F ( NC  PN . EQ . 0 . OR . NC  PN . EQ . 2 ) WRIT  E ( 6 , 9 1 0 ) 

910  FORMAT ( / / , 2 4X , 1 OHFLOW  QUESS, 4X, 1 3HPRESSURE  DROP,6X,9HLEG  DKLTP, 
+  9X.3HPUP, 1 2X, 5HPDOWN, 9X, 1 1HCONDUCTANCE, / ) 

200  CONTINUE 

IF (NCPN.EQ.O) WRITE  ( 6 , 9003) ITER, IFLAGG 
9003  FORMAT  (/,20H  ITERATION  NUMBER  -, 110, 10X, 10H  IFLAGG  -.110) 

DO  220  Ll-l.M 
DO  210  Kl-1,20 
IC0L(Ll,Kl)-0 
210  CALCl(Ll,Kl)-0. 

PEX(L1 )-0.0 
QN ( L 1 ) -0 • 0 

220  CALC 2 (LI )-0. 

DO  221  Ll-l.ML 

221  PDLEG(Ll)-0.0 

C  COMPUTE  G*S  FOR  CALC  ARRAYS 
CALL  TLEGCAL 


701 


« 


4.2.7  (Continued) 


DO  9099  K-l.ML 
I-NUP(K) 

J-NDWN(K) 

L-IDIAG(I) 

LM-IDIAG(J) 

CALC1(I,L)-CALC1(I,L)+G(K) 

C ALC 1 ( J , LM ) -CALC  1 ( J , LM ) +G ( K ) 

L-JNEG(K) 

LM-INEG(K) 

CALCl7l,L)-CALCl(I,L)-G(K) 

CALC  1 ( J ,LM)-CALC 1(J,LM)-G(K) 

9099  CONTINUE 

DO  700  IL-1,55 
DO  700  JL-1,20 

700  ICOL(IL, JL)-JPCOL(IL.JL) 

DO  400  JX-l.ML 
IF(PDLEG(JX).EQ.0OG0  TO  400 
JY-NUP(JX) 

CALC2 ( JY)«CALC2( JY)-PDLEG ( JX)*G( JX) 

JY-NDWN(JX) 

CALC2(JY)-CALC2(JY)+PDLEG(JX)*G(JX) 

400  CONTINUE 
DO  60  I— 1 ,M 
J-IDIAG(I) 

CALC  2(1) -CALC  2(1) +QN ( I ) 

60  CALC  1(1, J)-CALC 1(1 , J)+PEX(I ) 

C  WRITE(6, 2005) ( (CALC I(I,J),J»1, 20) , 1-1 ,M) 

C  WRITE(6, 2005) (CALC  2 (I ) , 1-1 tM) 

C  WRITE( 6,  2004)  ( ( IC0L( I ,J),J-1,20),I-I,M) 

2004  F0RMAT( IX, 2016) 

2005  FORMAT(1X,10E12.5) 

C  WRITE(6, 2005) (PEX(I) ,1-1, M) 

C  WRITE(6, 2005) (PDLEG(I) , I-I ,ML) 

C  WRITE (6, 2005) (QN(I) , 1-1 ,M) 

CALL  TGAUSS(H.ITER) 

DO  410  IM-l.M 
410  PN ( IM ) -CALC  1 ( IM , 1 ) 

IF(NCPN.EQ. 0)WRITE(6, 9000) (PN(I),I-1,M) 

IF (NCPN.EQ*  0) WRITE (6, 9001 ) 

9000  FORMAT( 1H0, ( 5X, 14HNODE  PRESSURES, 2X, 8F1 2. 3, /) ) 

9001  FORMAT ( IHO) 

IFAIL-0 

C  CALCULATE  NEW  FLOW  RATES 

DO  435  IT-1, ML 
IU-NUP(IT) 

IV-NDWN (IT) 

QOLD-QL(IT) 

FL0W-( (PN(IU)+PDLEG(IT)-PN(IV) ) *G(IT) ) 

C  TEST  NEW  FLOW  RATES 

IF(ABS(FLOW-QOLD)/ (ABS (FLOW)-fl . )  .GT. 0.001) GO  TO  436 


702 


o  o 


4.2.7  (Continued) 


C  RECALCULATE  FLOW  RATES 
QL(IT)-FLOW 
GO  TO  435 

436  QL(IT)-.5*QOLD+.5*FLOW 
IFAIL-1 
435  CONTINUE 

IF(IFAIL.EQ.O)GO  TO  520 
IF(ITER.EQ.50)WRITE(6,999) 

999  FORMAT ( 10X, 44H****  WARNING  EXCEEDED  50  ITERATIONS  IN  TCALC, 
+  1 3H-PROGRAM  STOP,//) 

IF ( ITER. EQ. 50) STOP 
ITER-ITER+1 
GO  TO  200 

520  CONTINUE 

MAKE  A  LAST  CALL  TO  ALL  LEGS  TO  DISTRIBUTE  PRESSURE 
DROPS  AND  FLOWS  CALCULATED  FOR  STEADY  STATE  CONDITIONS 
DO  521  I-l.ML 

521  PDLEG(I)-0.0 
CALL  TLEGCAL 
IF(CON2.EQ.-l)GO  TO  522 

C  CHECK  PUMP  CALCULATION 

IF  (ICOUNT  .EQ.  2)GO  TO  522 
IF(IFLAGG.EQ.2)GO  TO  523 
IF(QL(CON2).LE.QQQ)GO  TO  522 
IFLAGG-2 
GO  TO  80 

523  IF(QL(CON2).GT.QQQ)GO  TO  522 
IFLAGG-1 
GO  TO  80 

522  IF (NCPN .EQ. 2)WRITE{6, 9000) (PN(I),I-1,M) 

IF (NCPN.EQ. 2) WRITE (6, 9001 ) 

IF(NCPN.EQ.2)WRITE(6, 9002) (QL(I), I-l.ML) 

9002  FORMAT ( 1H0, ( 5X, 9HLEG  FLOWS, 7X, 8F12. 3, /) ) 

IF(NCPN. EQ. 2)WRITE(6 , 9001 ) 

RETURN 

END 
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APPENDIX  T 

CALCULATION  SUBROUTINES  (Continued) 

SUBROUTINE  T LEG CAL 

HYTTHA  TECHNICAL  MANUAL  (AFAPL-TR-76-43 ,  VQu.  Will) 

4.3  SUBROUTINE  TLECCAI. 

TLEGCAL  is  called  by  the  TCALC  to  obtain  a  leg  conductance  and 
fixed  pressure  drops  for  a  given  flow  guess  for  all  the  system. 

The  constant  oressure  drop  such  as  that  across  a  check  valve, 
actuator,  cr  pump,  is  passed  via  TERM  or  PDLEG(INLEG)  in  COMMON /STEADY. 

A  positive  PDLEG(NLEG)  is  a  pressure  rise  such  as  at  a  pump,  a  negative 
is  a  drop  such  as  across  a  check  valve.  The  leg  conductance  is  passed 
via  G(NLEG)  in  common. 

TLEGCAL  obtains  the  line  and  component  pressure  drops  by  calling 
all  the  elements  in  the  leg.  The  leg  conductance  is  computed  by 
dividing  the  leg  flow  by  the  leg  pressure  drop. 

A  flowchart  of  TLEGCAL's  organization  is  shown  in  Figure  4.3-1. 

4.3.1  Theory 

LEGCAL  calls  the  elements  in  a  leg  to  determine  the  pressure  drop 
for  a  given  flow. 

The  leg  conductance  (inverse  of  resistance)  is  calculated  from  the 
leg  pressure  drop,  including  the  constant  pressure  drop  value 

G(NLEG)  -  QA/ABS(DELTP) 

where 

DELTP  «  PN (NUP(NLEC) )-PUP+TERM 

The  conductance  is  always  positive.  Using  this  formula  the  conductance 
value  is  flow  dependent.  It  has  to  be  updated  whenever  the  flow  guess 
is  changed. 

4.3.2  Assumptions 

The  assumption  that  the  pressure  drop  can  be  described  using  the 
leg  pressure  drop  is  generally  valid.  If  for  some  reason  an  element 
in  a  leg  cannot  be  described  in  this  manner,  then  a  pseudo  description  can 
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FIGURE  4.3-1 

TLEGCAL  ORGANIZATION 
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be  used  without  loss  of  accuracy.  This  could  involve  generating  a  formula 
of  the  form 

AP  -  K  +  K2Q  +  K3Q1,75  +  K^Q2 


where  Q  =  leg  flow 

The  line  and  component  subroutines  would  then  provide  the  values 
to  the  K^,  K 2>  and  constants. 

4.3.3  Computation  Method 

The  variable  Ql,  the  new  flow  guess,  is  first  split  into  its  absolute 
value  and  its  sign,  +1.0.  The  up  and  downstream  node  pressures  for  the  leg 
are  taken  from  the  PN(  )  array. 

Each  element  in  a  leg  is  called  and  the  pressure  drop  through 
the  line  or  component  is  calculated  and  subtracted  from  the  upstream 
pressure,  PUP.  Once  the  entire  leg  pressure  drop  has  been  determined 
the  new  conductance  value  is  computed.  The  variables  IND,  and  KNEL  are 
the  component  number  and  the  connection  number  respectively. 

The  common  variables  INZ  and  INX  are  set  equal  t.o  the  number  of 
elements  in  the  leg  and  the  actual  element  that  is  being  calculated  respectively. 
This  allows  particular  component  subroutines  to  determine  wh-ch  end  of  the 
leg  they  are  connected  to,  and  hence  which  node  is  located  at  the  component. 

4.3.4  Approximations 

The  use  of  a  formula  requires  some  approximations  but  these  are 
usually  related  to  approximations  in  the  component  model  and  are  an  integral 
part  of  the  component  model.  In  general  this  method  is  good  but  it  could 
be  easily  extended  to  a  higher  order  approximation  if  it  was  found  desirable. 
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The  pressure  drop  for  a  line  is  computed  based  on  the  average  temperature 
and  pressure  in  the  line.  The  average  value  is  determined  from  the  values  at  the 
upstream  and  downstream  line  locations.  Line  pressure  losses  due  to  bends 
are  calculated  using  an  energy  bend  loss  coefficient.,  which  is  computed  in  the 
TLINEA  subroutine. 

4.3.5  Limitations 

So  far  we  have  not  found  any  limitations  to  the  technique  used 
in  TLEGCAL  itself. 

However,  some  of  the  component  subroutines  called  by  TLEGCAL 
such  as  the  bootstrap  reservoir , pump  and  actuators,  are  complicated 
by  the  interaction  between  the  flow  guesses,  flow  direction  and  node 
pressures. 

Some  of  these  subroutines  use  calculations  which,  though  conforming 
to  the  basic  calculation  technique,  do  not  fall  into  any  simple  cacegory 
and  have  to  be  treated  individually. 

4.3.6  Variable  Names 

Variable  Description  Dimensions 

DELTP  Line  Pressure  Drop  PST 

INZ  Number  of  Elements  in  Leg 

I  Address  of  Leg  Data  in  ILEG 

K  Ith  Element  in  a  Leg 

KNEL  Component  Connection  Number  — 

IND  Component  or  Line  Number 

ML  Total  Number  of  Legs  _ 
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Var iable 

Description 

Dimensions 

PAVE 

Average  Line  Pressure 

PSI 

PUP 

Flow  Dependent  Leg  Pressure  Drop 

PSI 

QA 

ABS  Value  of  Leg  Flow 

CIS 

QT 

Leg  Transition  Flow 

CIS 

Q1 

Leg  Flow  Guess 

— 

QS 

Flow  Sign  CIS 

— 

TAVE 

Average  Line  Temperature 

°F 

For  variables  in  common  refer  to  Paragraph  3.3. 
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4.3.7  Subroutine  Listing 


SUBROUTINE  TLEGCAL 

revised  august  5,  1976  **** 

COMMON  G(9Q) 

COMMON  /TRANS/P ( 300) ,Q( 300) ,C( 300) ,TC(300) ,TW(300) ,TF( 300) , 
+  ACF( 300) , ACW( 300) , DXF( 300) .TIME, DELT, PI , NLINE, NEL 
COMMON  /COMP/LTYPE(99),NC(99) , KTEMP(99) , IND, IENTR, INEL 
COMMON  /LINE/PARM( 150,4) ,TLW(2000) ,TLF(2000) ,LSTART(150) , 

+  NLSEG(150) 

COMMON  /STEADY/PN(90) ,QN(90) ,PEX(90) , PDLEG(SO) ,QL(90) , 

+  QA, QS , Q1 , PUP , PDWN,M,ML,NCPN .TERM, 

+  LEGN, ICON, INV, INX, INZ ,NUP<90) ,NDWN(90) ,NELEM(90) , 

+1 LEGAD ( 90 ) , ILEG ( 1 000 ) , IFLAGG , CON2 , QQQ 
C  FIND  THE  SIGN  OF  THE  FLOW  GUESS  AND  ITS  ABSOLUTE  VALUE 
DO  200  NLEG-l.ML 
210  TERh-0.0 
INV-1 

Ql-QL'NLEG) 

QA-AbS(Ql) 

IF(QA.LE. .00001 )QA«. 00001 
QS-SIGN(l.O.Ql) 

C  CALCULATE  THE  FORMULAE  FOR  THE  LEG  PRESSURE  DROP 
INEL-NLEG 
INZ-NELEM(NLEG) 

INZ  -  NO  OF  ELEMENTS  IN  A  LEG 
INEL  -  LEG  NUMBER 
PUP-PN(NUP(NLEG)) 

PDWN“PN ( NDWN (NLEG ) ) 

WRITE(6, 900)NLEG, INZ .NUP(NLEG) , NDWN (NLEG) 

900  FORMAT ( 1  OX, 51 10) 

WRITE(6, 910)PUP, PDWN , Q I 
910  FORMAT ( 10X, 5E1 2. 5) 

CALL  EACH  ELEMENT  IN  THE  LEG 

I-ILEGAD(NLEG) 

DO  600  K-l.INZ 

INX  -  CURRENT  EL34ENT  NO.  IN  LEG 
INX-K 

IND-ILEG(I) 

KNEL-ILEG(I+1) 

I-I+2 
ICON-KNEL 

ICON  -  CONNECTION  NO. 

IF  THE  ELEMENT  IS  A  LINE  GO  TO  500 
IF(IND.EQ.O)  GO  TO  500 
CALL  COMPE 
GO  TO  600 
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4,3.7  (Continued) 


***  THIS  SECTION  ADDS  THE  VALUES  INTO  THE  FORMULAE  FOR  THE  LINES 

500  CONTINUE 

LOC-KNEL*2-l 

LOCD-KNEL*2 

WRITE (6, 503)  LOC,TF(LOC) ,PUP 
503  FORMAT(3X, 1 1 1 0 s 2E12.5) 

TAVE- (TF (LOC )+TF (LOCD ) ) / 2 
PAVE-  PUP 

QT-PARM (  KN  EL , 4 ) *VI SC (TAVE , PAVE ) 

IF(QA.GT.QT)GO  TO  505 
DELTP-QA*FRICL ( KNEL , TAVE , PAVE ) 

GO  TO  598 

505  DELTP-FRICT ( KNEL , TAVE , PAVE ) *QA* *1.75 
598  DELTP-DELTP+RHO ( TAVE , PAVE )*PARM( KNEL , 3 ) *QA* *  2 
P(LOC)-PUP 

IF (TERM .GT . 0 . 0 . AND . INV. EQ . 1 ) P (LOC )-TERM 
PUP-P (LOC ) — DELTP 
P (LOCD)— PUP 
Q(LOC)— Q1 
Q(L0CD)-Q1 
(>00  CONTINUE 

DELTP-PN(NUP(NLEG) )-PU?+TERM 
IF (DELTP. EQ.0.0)DELTP-. 0001 
G(NLEG)-QA/ABS (DELTP) 

IF(NCFN.EQ.0)WRITE(6,50)NLEG,Q1,PDLEG(NLEG), DELTP, 

+  PN  (NUP  (NLEG ) ) ,  PN  (NDWN  (NLEG)  ) , G  (NLEG) 

IF(INV.EQ.0)G0  TO  200 
PDLEG (NLEG) -0.0 

50  FORMAT ( 1 3H  LEG  NO  , IS, 5F16. 5, E20. 8) 

200  CONTINUE 
RETURN 
END 
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APPENDIX  l: 

LINE  DATA 

HYTTHA  USER  MANUAL  (AFAPL-TR-76-43,  VOL.  VII) 

5.0  LINE  DATA 

The  number  of  cards  used  in  this  group  will  be  twice  the  number  of  lines 
entered  on  card  2  (two  cards  for  each  line) .  An  error  message  will  be  written 
when  the  number  of  lines  exceeds  the  maximum  number  specified  in  block  data  and 
the  program  will  stop.  A  line  number  may  not  be  omitted  or  used  twice. 

To  differentiate  between  rigid  lines  and  flexible  hoses  the  material  type 
will  be  used.  The  same  mathematical  equations  are  involved  with  both  types  of 
lines  so  the  same  routine  is  used  for  each. 

A  line  temperature  indicator  is  entered  in  column  15.  When  a  zero  is  entered 
the  line  temperature  values  specified  on  the  second  line  data  card  will  be  used. 

A  one  in  column  15  will  select  the  default  values  in  the  main  program. 

The  environment  indicator  is  entered  in  columns  16-20.  A  zero  value 
defaults  to  the  atmospheric  temperature  on  curd  two.  A  numerical  value  must 
correspond  to  the  appropriate  environment  number. 

Columns  24-25  contain  the  number  of  bends  in  the  line.  Eleven  is  the 
maximum  number.  The  actual  bend  angles  are  entered  on  the  remainder  of  the 
card  in  integer  15  format. 

Card  number  two  of  the  line  data  is  self  explanatory  except  for  the  heaL 
transfer  coefficient.  If  not  input  by  user  then  the  program  will  set  it  equal 
to  0.0069  which  is  a  value  nearly  equal  to  that  for  still  air. 
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TLINEA 


COLUMN  FORMAT 


Dimensions 


36-40 


41-45 


46-50 


51-55 


56-60 


61-65 


66-70 


71-75 


76-80 


Line  Number 


Material  Type 


Line  Temperature  Indicator _  _ 


Environment  Indicator 


Number  of  Bends  (11  Maximum) 


First  Bend  Angle 


(Continue  entering  bend  angles  until 


the  number  specied  in  columns  24-25  is 


reached) . 


I  .9  'O  '•  V  H  ’C.  '7  VI  VI  *1  4J44  «5  4C.  JT  40  41  *0  51  57  5  j  M  »  56  57  ZM  V)  CD  Cl  6.'  03  64 


00000  lOOOGOOCOOijnOOOQjS  000c 

*  ’  .  4  5  |(,  •  I  «  -3  II  1;  14  !’•  ■'%  1.  U  "I  ?(  ’  •  '  .  1  .1  , 

I  11  I  .id  t  I  I  1  I  1  I  I  l|l  I  I  li  1  I  1  I  1 

2222  2'2  22222272  7|2  7722222  21 
1  1 

3  3  3  3  3j3  3  3  3  3j3  3  3  3  3i3  3  3  3  3  3  3  3  3  3 

1  I  !  I 

4  4  4  4  4,4  4  4  4  *.  4  4  4  4  «J-I  4  4  4  4  4  1  4  '! 

•  ?  *.  4  jj  '  1  )  lom?1:  :i  1  Viii  t;  ':j?t  :  .1 

5  5  5  5  5'G  rj  G  G  rj  G  5  5  5  5|5  0  b  G  bp  5  0  5  G 

6  G  G  u  C(:;  t,  G  8  C  6  0  C  G  G|6  C  6  C  6  G  6  6 

n  1  n',m  m  1 1 1  i\m  ,  ill  11 1 1 

'  1  I 

lUthltU  0  8  S  fS  8  B  0  ■■  ■■  8  l 

.  I  ;  I 

3  S  *  ’>  r.  S  4  1  5  III  9  9  9  M  3  r‘  rJ  pjj  5  *1  •> 

i  i  4  ,!u  '  *  ’•  -  »!/.'•)  j  ■'  'I  .  •  •  , 


? >•  .V  74  i  4  2(, 


77  i'l  n  4J  41  4?  4  1  44  45  4&  47  4R  49  50  51  57  53  54  35  V.  *7  50  59  0O 


C  0  0  0  !  fi  0  0  0  o;o  n  0  0  0  T  0  0  0  c;0  3  3  0  Cp  0  C  0  c,'.i  0  0  0  0  0  0  0  0  0,0  0  G  0  0  3  0  0  0  ojo  0  0  0  0 

It  !  !  5  V  1*  9  40  II  4?  <•  44  4  y  1  54  'ij|56  '•?  S  S''  47  51  V  61b«  U  62  t  WA  M  J?  n  M  ’?  J;  30 

11  H  1  1  11  I  1‘1  11  11  11  t  1  111  1  1  Mil  H  I1M  II  n  11  1  ll!l  t  11  M  I  It  Ilf  1  It  1 

1  1  *  I 

7  2  ?|  2  2  2  2  2  2^2  2  2  2  2  2  2  2  2  2'2  2  2  2  2  2  2  2  2  2|2  2  2  2  2  2  2  2  2  2,2  2  2  2  2  2  2  2  2  2'2  2  2  2  2 


4  4  4  4  4j4  4  4  §4;4  4  4  4  4  4  4  4  4  *,4  4  4  4  4j4  4  4  4  4'4  4  4  4  4  4  4  4  4  4,4  4  4  4  4  4  4  4  4  4i4  4  4  4  4 

i  V  t  .i  <0  <•  i?4>  1;  4  |4C  JH4.'.3J  •  •  1  :  5>  53  5»I0  fcl  8?  6J  M  65jS5  6M5'.i -D  :j  21  '.ho  7MI  7)  !3 

0  0  5  •>  i  ij  0  0  b  i’5  5  0  5  0  5  5  5  0  .,0  3  '•  5  V,  5  5  5  ijs  5  5  5  5  5  5  5  5  5.5  5  5  5  5  5  3  5  5  5|5  5  5  5  5 

i  *  1  i  i  1  1 

5  6  6  6,:.  6  6  0  0  5  6  6  0  S  6  6  6  6  3.5  6  S  0  Mi  E  G  0  SiO  0  S  6  5  6  6  B  6  6'G  6  G  6  6  E  0  0  G  C'S  6  5  0  0 


i  m  i\m  i  ri  ii  n\i  1 1  nm  n  1 1 1  m  n  i  j  i  n  1 1  rm  n\m  ri.n  m 

:  !  i 

j  R  !  2  g jE  E  S  J  5,0  8  8  8  8  8  t  8  S  8,3  8  3  8  8  j  8  ?  0  7,3  8  S  S  8  8  5  8  8  3,8  C  3  8  Sj3  i  6  6  8M  5  0  S  C 

i  i  1  i  I 

3  3  3  9  3.9  3  9  9  3>9  9  9  9  9  9  9  9  V.  .1  9  9  3  9  3  3  9  3  SO  9  9  9  5,J  5  9  3  9.9  9  9  3  9  9  9  9  9  T.  J  .'"T  1 

.  .  4ui  •-  i  .  .1  t  ,i  .  '  -I1  ■  3!  '  I  ■  ’.)  S  r  -  'V. "  '  [  ’  1  •  .  ■ 

MA.  30 7.  WE^  r :  O  73) 
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CARD  NUMBER  2 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

E10.0 

TOTAL  LINE  LENGTH  INCLUDING  FITTINGS 

IN. 

11-20 

E10.0 

OUTSIDE  LINE  DIAMETER 

IN. 

21-30 

E10.0 

LINE  WALL  THICKNESS 

IN. 

31-40 

E10.0 

LENGTH  Of  LINE  SEGMENT  (’DELTAX'7 

IN. 

41-50 

E10.0 

HEAT  TRANSFER  COEFFICIENT,  WALL  TO  ATMOSPHERE 

WATT/IN2-°F 

51-60 

E10.0 

SURROUNDING  STRUCTURE  TEMPERATURE 

°  F 

.  -  _  . 

61-70 

E10.0 

SURROUNDING  ATMOSPHERIC  TEMPERATURE 

°F 

| 

71-80 

E10.0 

HYDRAULIC  FLUID  INITIAL  TEMPERATURE 

°F 

EXAMPLE  CARD 


•  •  •  « 


iO  ii  12  U  i« 


'I •!  ■«  .f  to  2  zftll  14  .‘4  H  )?H  H  )Mi  I]  ufU  11  14  11  f«  ft  «u  4.  4?  41  44  11  44  41  44  41  Vi  ft  11  1*  14  11  if  11  s#  lift  ft  41  41  4 


14  14  1  4  4  HI 


0  00  0  o:iii  g  1 

1 1  j  *  1 1 1 1 1 1  n 

11111)11111 

122  2  2‘inn 


1 3  1  3  3-3  i;  3|  3  J  3  3  J.J  3  J  Jg 


44<4  4<4<444 

i  i  i  i  i}»  i  •  f  u 

b  b  5  5  5'5  5  5  5  5 

i 

ttttc'sssct 

I 

1 11  n‘i  1  n  i 


m  e  e  oil  i  o  1 1 

■I  ti  ii  ii  iijn  ii  <1  ii  »j 

i  i  i  •  i  >i  i  i  3  l 

i  ■ 

2222  2^2  2727 


i 

44444i<  4444 

II  II  I)  II  iljll  l>  II  II  !l| 

5  5  5  5  b'b  S  S  5  5 


<1  14  II  20  /.  22  M  14  11  n  11  14  24  >0  |i  11  11  14  51  14  II 

o  et  o  MtgM  I  m  t  tint  o  g  m  m  o  t;t  gin  ? 


41  44  41  4  4'  44  41  10  ll  11  1|  ' 


II  11  II  11  11,11  11  11  n  N] 

I  I  I  1  I'l  II  II 

1  112  I'll  11  1 


44444<4  4444 

|n  ii  n  i<  tt]n  ii  it  ii  h| 

bbbbb'bbbib 


111  II  li  H  11,11  )'  U  II  «f| 

iini'iim 

i 

'l  1  11  Z|?  1  l  1  3 


3  3  3  3  30  j  3  3  3  3  3  3  3  3j3  3  3  3  ||  3  3  J  3  3jj  3  J  3  3 


44444441(44 

II  I!  II  H  »|U  II  H  II  llj 

b  5  5  b  b'b  b  b  5  5 


41  11  11  M  ll|4C  ll  If  H 

I 

II  Ill'll  111 


4444  414  4444 

ii  it  o  ii  iiJii  it  u  n  ii| 

b  b  b  b  bib  b  b  b  b 


If  M  MM  I  t  (IM  I  6  i'l  i  <8  ||l  i  I  t  tiB  i  16  MS  f  (  60  i  6 1 B 
MCDONNELL  AUTOMATION  COMPANY  ! 


1  11  1  VI 11 11 


7  I  7  7  70  7  I  7  7 


nn  vi  in  i 


1  1  1  1  VI 

i 


i  ?  ? 


I  1 1  e  I'M  •  t|  f  1 1  I  III  M  l|M  M  III  ■  I  •  M  I  M  l;l  M  I  (|  1 1  M  f |f  I  I  M  I  ■  I  M;l  I  I  1 1 1  I  M  I  II  M|l  1 1 1  I'l  I  I  t|  C  * 

9  9  I  9  l)l  II  9  I  I  9  I  I  ill  91  1 1 1  9  II  l|l  I  9  9  ill  9  9  9  ill  It  I  1 1  I  9  I  l!l  1 1  9  |  9  9  1 1  ill  I  I  9  I  I  M  m)|  9  I  3  9  9  3  9  9  90  9  9  9  9  S 

1  )  <  »  I  II  I  «  II  lilt  U  li  II  lllf  II  N  I)  11  It »  /I  H  II  n  n  ft  !l  N  >1  k  »  M  "  H  If  K  II  II  IJ  u  ii  ft  (Ml  II  Mil  H  thi  ^  ft  ti  MM  H  i'  »  ts  U  U  H  II  '  T'  t  1  f. 


H  0  0  0‘Q  0  DgO 0  0  8  0  0J0  8  OgO  0  0  0  3  0J0  OggO 


III  H  M  14  Sb.H  >1  bl  if  l*| 

1  i  I  i  mi  i  ;  i 

i 

2  2  2  7  2«2  2  7  2  2 

i 

3  3  3  3  3;3  3  3  3  g| 

I 

4444  4-4  4444 

|l>  ll  11  11  V,H  II  11  II  Hj 

b  b  b  b  b|b  b  b  b  b 

M  f  M-t  6  6  M 

i 

1  )  1  MJI  1  J  I  I 


ii  li  i:  u  », h  ii  ii  it  fi| 
I  I  I!  I'l  1  I  II 

I 

21111'11112 


4444  4;4  4<«4 

II  11  IJ  u  11,11  11  II  ii  til 


11  11  ll  11,11  11  ’I  II  II 

I  1  1  11)1  j  I  II 

l  1  1  1  VI  1  1  11 


3  3  3  3  3;3  3  3  3  g  3  3  3  J  30  3  3  3  g 


4444444444 

n  ii  ii  ii  njit  ii  ii  ii  ii 


b  b  b  b  b  5  b  5  5  bjb  b  5  b  b'b  b  b  3  b 


fIMS'fCSff 

i 

7  7  I  7  l;7  ig  7  7 


f  M  M)M  S  f  6 

7  7  7  I  1'7  7  )  7  7 
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APPENDIX  U  (CONT) 

TLINEA  SUBROUTINE 

HYTTHA  TECHNICAL  MANUAL  (AFAPL-TR-7 6-4 3 ,  VOL  VIII) 


The  energy  loss  coefficient  for  bends  in  a  tube  or  hose  is  calculated  in  the 
1000  section.  The  bend  ratio  (BRAT)  for  a  tube  is  assumed  to  be 


3.*  (LINE  O.D./LINE  I.D.) 

The  bend  ratio  is  8.  for  hoses. 

The  DO  loop  parameter  is  set  to  the  number  of  bends  in  the  tube  (NBEND) , 
which  is  read  from  the  line  data  card.  The  bend  in  the  tube  being  read  is  stored 
in  the  NBAN(  )  array.  As  each  bend  angle  is  read  from  NBRAN(  ),  the  energy  loss 
coefficient  is  calculated  and  summed  into  a  temporary  storage  location  (ECOEF) . 

The  energy  loss  coefficient  is  proportional  to  the  pressure  drop  through  the 
bend  divided  by  the  dynamic  pressure  or 


Where 


f  = 


AP 
P  v 


2 


2 


f  =  Bend  energy  loss  coefficient 


(  ) 


AP  =  Pressure  Drop  (psld) 
p  “  Fluid  Density  (lb-sec^/in^) 
v  *  Fluid  Velocity  (in/sec) 

Modifying  equation  (  )  to  fluid  flowrate  and  solving  for  pressure  drop  yields 

AP  -  1_  f  p  Q 

2  2 
K 

2 

Where  A  =  Line  cross  sectional  area  (in  ) 

When  all  the  bend  angles  on  one  line  are  processed,  the  bend  energy  loss 
coefficient  is  multiplied  by  (0.5  /  A^)  and  stored  in  PARM(N,3).  The  TLEGCAL 
subroutine  multiplies  this  term  by  the  fluid  density  and  current  flowrate  for 
the  appropriate  tube.  Further  discussion  and  the  derivation  of  the  bend  energy 
loss  coefficient  is  found  in  Appendix  C  of  AFAPL-TK-76-43  Volume  VI. 
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SUBROUTINE  LISTING 


SUBROUTINE  TLINEA 
C****  REVISED  DECEMBER  1979  **** 

COMMON  /TRAN3/P ( 300) ,  Q( 300) ,C( 300 ) ,  TC( 300) ,  TW( 300) ,  TF( 300) , 

+  AC  F  ( 300) ,ACWf  3  00)  , DXF(  300 ) , TIME , DELT , PI ,NLINE ,NEL 
COMMON  /LIMIT/MNLINE  ,  MNEL, MNLEG  ,  MNNODE  ,  MNPLOT ,  MNLF’TS ,  MDS 
COMMON  /LINE/PARMf 150,4) ,TLW< 2000) , TLF ( 2000 ) , LSTART( 150) , 

+  N  LS  EG ( 15  0) 

COMMON  /COMP/LTYPE( 9 9 ) ,NC(99) ,KTEMP(99) , IND, IENTR, INEL 
COMMON  /FLUID/ATPRES, C F,C PFN , FTEMP , PROP( 13,3) , I DAT, AT, IDSTT,STT, 
+IDwT,WT, IDTEMP, IDFLT ,FLT 
COMMON/ENVIRON/NENV , VAT( 5) , VSTT( 5) ,VWT( 5) 

DIMENSION  TA( 300) ,TST( 300) ,UAW( 300) ,TFO( 300) , DELTAX( 150) , 

+TCO( 300) ,SPMAF( 150) ,SPMAW( 150) , PLENGTH( 150) 

DIMENSION  LC  (  300  )  ,  A3AW  (150)  ,  ASFW (150)  ,FNM(  150)  ,CW(  150) 

+  ,  WNM  (  150)  ,  FWTEMP(  300  )  ,NBAN<  11)  ,A(  2,2)  ,B  (2) 

EQUIVALENCE  (C  (  1 )  ,  LC  (  1 )  )  ,  (  PARM  (  1 , 1 ) , PLENGTHf 1 ) ) 

DATA  SIGMA/ . 349E-1 1/ , SHAPF/ .96/, EPS I ON/ . 3/ 

REN= 120  0 . 

I F ( IENTR) 1000, 2000, 3000 
1000  CONTINUE 

INO  = I ND IV I DUAL  LINE  NUMBER 

LINET=LINE  TYPE 
LINETH(N)=LINE  PLENGTH 
DIA  =OUTSIOE  DIAMETER 
WTHICK=WALL  THICKNESS 
MTYPE  =MATERIAL  TYPE 
DELTAX( INO) =  DISTANCE  OF  SEGMENTS 
UAW ( N ) =HEAT  TRANSFER  COEFF.  AMBIENT  TO  WALL 
TA ( N )  =TEMP  OF  AMBIENT,  DEG.  F 
TLF(N)  =TEMP .  OF  FLUID,  DEG.  F 
TST ( N ) =TEMP .  OF  STRUCTURE,  DEG.  R 

PA RM ( N , 1 )  =  LINE  LENGTH 
PARM ( N , 2 )  =  INSIDE  LINE  DIA-DIAINS 
PAKM(N,3)  =  BEND  ENERGY  LOSS  COEFFICIENT 
PARM ( N , 4 )  =  TRANSISTION  FLOW 
L3TART  (  1 )  *  1 
WRITE( 6, 400) 

400  FORMAT ( / /I Id  LINE  DATA, /I OH  LINE  NO. , 5X , 6HLENGTH , 5X , 

+  BHINTERNAL , 7X , 4HWALL , 8X , 6 H DELTA X , 3X , 7HAMBI ENT , 4X, 9HSTRUCTURE , 

+  6X, 5HFLUID,7X, 8HMATERIAL , 5X , 6  HLDTEMP , 2X, 7HENVTYPE ,/29X , 3HDIA, 7X , 
+  yMThlGKNESS, l IX , 4HTEMP , BX , 4HTEMP , 9X , 4HTEMP, 10X,4HTYPE) 

DO  11UU  lNO=i,NLlNE 

Kc,AU  (  5, 4  33)  N,Mi  X  PE  ,  LDTEMP  ,  XiiNV  ,  NBEND ,  (  NBAN(  1  )  ,  1=1  ,NBEND) 

433  FORMAT  ( lblb) 

READ ( b ( 4 39 )  PLENGTH( INO) , DIA  WTH1CK , DELTAX(INU) , UAW( INO* , 

+  TST(INO)  TA( INO) ,FLTEMP 
4  35#  FORMAT  (  BE1U  .  U  ) 

1 F  < 1  NO . N E . N )  WRITE( fc , 4  JU )  N 
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LISTING  (Continued) 


* 


4  3  U  FURMAT  (  i X , 4  3H  THE  LINE  CARDS  ARE  OUT  OF  ORDER  AT  NUMBER  ,15) 
IF ( IDTEMP  . EQ •  0  .OR.  LDTEMP  .EQ.  0)  GOTO  440 
IF (  I  DAT  .EQ.  1 ) TA  f I NO) “AT 
IF (  1DSTT  .EQ.  1 ) TST( I NO) =STT 
I F  (  iDFLT  .EQ.  i ) FLTEMF=FLT 
4  4 U  IF ( iENV . EQ . 0 ) GOTO  4  50 
C  ***  SET  DATA  TO  PRORER  ENVIRONMENT  *** 

TA( iNO) =  VAT ( i ENV ) 

TST(  1  NO )  =  VS’l’T (  1  ENV  } 

C 

4SU  M=N*  2 

Lc  (. n ) = 1 
LC(M-i)=i 

IF(LINET.LT.IU)  GO  TO  b5 
Lc ( M) =- 1 
L1NET=L1NLT-10 
b  5  cunt i nue 

C  CALCULATE  NUMBER  OF  SEGMENTS 

iF( UArt(iNU) . EQ. U . U)  UAW( iNO) =0 . UUby 
it  ( DELTAX ( iNO)  . EQ  .  U . U )  DELTAXf INO) =3b . 
it  <  FLTEMP . EQ . 0 . U )  FLTEMP=FTEMP 
NLb EG ( i NO ) =PLENGTH( N } /DELTAX { INO) 

L START ( iNU+i ) =LSTART( i NO ) +NLSEG ( INO) 

I F I LSTART ( 1 NO  +  1 ) . GT . MN LPTS ) GO  TO  252 
I ND= i NO 
1  NAL)=  i  NUW  2 
i NAU= i NO* 2-1 
RHUW=FRUF( MTY RE ,2) 

CFWN=FRUF(MTr FE  ,  i  ) 

FVVTEMP  (  1  NAD )  =FLTLMP 
FrtTEMP( I NAU) “FLTEMP 
DIAINS=DIA-2. 0*WTHICK 

C  COMPUTE  ENERGY  LOSS  CUEF FiC i ENT  FUR  BENDS 

ECUEF=U . U 

I F ( NUEND. EQ . U ) GO  TO  5bU 
BRAT=3 . * ( DIA/DI AI NS ) 

I F ( MTY  PE . EU . i J ) BRAT=  8 . 

UO  syu  i=i,NBENU 
NBA=NBAN( l ) 

it  (NBA.G'i  .  i»U)GO  TU  biU 

Ai=-3 . 9  /b26E-iU*NBA**4+2.8475E-7*NBA**3-9. 2329 8E-5*NBA* *2 
Ai=Ai+i . /4bi/E-2*NBA 
GO  TO  b2U 

biU  A 1* 1 . 3 9  +  ( NBA- 180) *3 . 3333E-3 
b2U  Bi=  .  2Ub9«2*BRAT*»  (  -  .  494  21) 

IF< BRAT.GT. JU. )Bl=.0385411-( BRAT-30 . )*4.E-4 
ECFF*A1*B1 
£COEF“ ECOLF+ECFF 
500  CONTINUE 
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LISTING  (Continued) 


« 


550  CW ( I NO) =PROP(MTYPE , 3 ) 

ACW ( i NAD )=PI*(DIA**2-DIAINS**2)/4  0 
ACW ( I NAU ) ■ ACW ( I NAD ) 

WNM  (  IND)  -ACW  ( I  NAD)  *RHOW*DELTAX ( INO) 

SPMAw ( IND ) -WNM { I ND ) *CPWN 
ASAW( IND) =PI *DIA* DELTAX ( INO) 

ACF(INAD)=PI*DIAI NS **2/4.0 
ACF( I NAU ) =ACF( I NAD) 

ASFW ( IND ) =  PI *DIAI NS*  DELTAX ( INO) 

TF ( INAU ) -FLTEMP 
TF( I NAD ) -FLTEMP 
TW( INAU ) -FLTEMP 
TW( INAD) -FLTEMP 
PARM ( N  ,  2  )  =  DIAINS 

PARM( N , 3 )  =  ECOEF*. 5/(ACF( INAU ) *ACF( INAU ) ) 

PARM (  N ,  4  )  *  .7854*REN*DIAINS 

WRITEf 6 , 4 10 ) N  PLENGTH ( N ) , DIAINS , WTHICK , DELTAX ( N ) , TA ( N ) , 

+  TST(N) , FLTEMP , MTYPE ,  LDTEMP , IENV 
410  FORMAT (/1X,I5,8X,F8.4,4X,F8. 4  5X , F8 . 4 , 5X , F8 . 4 , 7X , F8 . 4  4X,F8.4 
+  ,5X,F8.4,6X,I4,6X,I5,7X,I2) 

TST( I ND) - ( TST( IND) +460. )**4 
1100  CONTINUE 

IF ( NLINE . GT . MNLINE-1 )  GO  TO  252 
RETURN 

252  WRITE ( 6,475)  NLINE , LSTART( NLINE ), NLS EG ( NLINE ) 

475  FORMAT( 5X , 25HERROR  IN  SUBROUTINE  TLINE , 3110 ) 

STOP  5101 
2000  CONTINUE 

C  INITALIZING  ALL  TEMP.  IN  LINE 

DO  2012  1=1 / NLINE 

XDEL=APS(Q( 1*2-1) )*DELT/(ACF( 1*2-1 ) ) 

IF( XDEL .LE . DELTAX ( I ) )GO  TO  2015 
DELTAX ( I ) =XDEL 

I F ( DELTAX ( I ) .GT. PLENGTH( I) ) DELTAX ( I ) *PLENGTH( I ) 

WRI TE( 6,900)1, DELTAX { I ) 

900  FORMAT( 10X , 18HTHE  DELTAX  IN  LINE,I5,22H  HAS  BEEN  CORRECTED  TO, 
+  FI  5 . 5 , 7H  INCHES,//) 

2015  NLS  EG(  I )  =  PLENGTH(  1 )  /DELTAX  (  I ) 

LSTART ( I +1 ) *LSTART ( I ) +NLSEG ( I ) 

ASFW (  I )  -PI  *  PARM  ( 1 , 2  )  *  DELTAX ( I ) 

WNM ( I ) »ACW ( 1*2) *RHOW*DELTAX( I ) 

SPMAW ( I ) -WNM ( I ) *CPwN 

2012  AS  AW  (  I)=PI*PARM(  1 , 2  )  *DlI<TAX  f  I) 

2013  INO— 1 
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non 


LISTING  (Continued) 


4 


2010  J*LSTART( I NO) 

I NAD- I NO* 2 
INAU=INO*2-l 
AAA-ACF ( INAU ) 

DDD-PARM ( INO, 2 ) 

UFWI L-UFW ( AAA, DDD, ABS ( Q( INAU) ) ,TF(INAU) ,P(INAU) ) 

TLW ( J ) =FWTEMP( INAU) 

2020  TLF ( J ) =FWTEMP( INAU ) 

J  M 1  =  J  - 1 

IF(JMl.EQ.O)  JMl-1 
TLW ( J ) *TLF ( J ) 

TLW ( J  )  =  ( UAW( INO) *ASAW ( INO) *TA ( INO) -UFWI L* ASF W( I  NO) *TLF ( J ) 

1  +SIGMA*EPSION*SHAPF*ASAW( INO) * (TSTf INO) ) )/( UAW( INO) *ASAW 

2  (INO) -UFWI L* ASF W( INO) +S IGMA* EPS ION*SHAPF*ASAW( INO) *TLW( JMl) **3) 
J-J+l 

I F ( J .  LE . ( LSTART( I  NO) +  NLS  EG ( INO) -1 ) )  GO  TO  2020 
C(  INAU)=SCW(  INO) 

C( INAD)=CW( INO) 

TFO ( INAU ) “TF ( INAU ) 

TFO ( I NAD) =TF ( I NAD) 

TCO ( INAU )=TC( INAU) 

TCO(  I  NAD )  =*TC  ( I  NAD ) 

DXF( INAU) =0.5*DELTAX( INO) 

DX  F ( I NAD ) =  DX  F ( I NAU ) 

LSTART( INO+1 ) =LSTART( lNO)+NLSEG( INO) 

INO= INO+1 

IF  ( INO . LE . N LINE )  GO  TO  2010 
RETURN 
3000  CONTINUE 

DO  3550  INO»l , NLINE 
INAU»2*INO-l 
I NAD-2* I NO 
I L-LSTART(  INO) 

AAA-ACF( INAU) 

DDD-PARM( INO, 2) 

RHOIL-386. 4*RHO( TLF( IL) ,P( INO) ) 

UFkvI  L-UFW  ( AAA,  DDD ,  ABS  (  Q(  INO)  )  ,TLF  ( IL)  ,P(INO)  ) 

FNM ( INO) -AAA*RHOIL*DELTAX( INO) 

SPMAF ( INO) -FNM( INO) *CPFN 
N»NLSEG( INO) 

M-LSTAR  T( INO) 

JJ-M+N-1 

C  JJ  IS  THE  LAST  NODE 

J -M 

C  J  IS  THE  FIRST  NODE 

IS-1 

I L- INO*  2-1 

IF(Q< IL) .LT.0.0)  GO  TO  3100 

IL-IL+1 

IS--IS 

J-JJ 

C  J  IS  THE  LAST  NODE 
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LISTING  (Continued) 


JJ«M 

M«J 

3100  CONTINUE 

C1*ABS(Q( IL) )*RHOIL*CPFN 
C3=UAW( INO) *ASAW( I NO) 

CIP“SIGMA*EPSION*SHAPF*ASAW ( I  NO) 

B9*UFWI L*ASFW( INO) 

RMF*ABS(Q( IL) )*RHOIL 

C  BEGINNING  CALCULATION  OF  LINE  TEMPERATURES 

IF(Q(IL) .LT.0.0)  GO  TO  3033 
ClDl*TC<  1L+1S) 

Cl D2*TF ( IL+IS) 

TC ( IL+IS ) *TC ( IL) 

TC ( IL) *CIDl 
Tt'(lL+lS)=TF(  IL) 

TF( IL)*CID2 

3033  TFP=TF ( IL) *2 . 0-TFO(  IL) 

TCP=TC(IL)*2.0-TCO(IL) 

TCO(  IL)  =TC  ( IL) 

TFO ( IL) “TF ( IL) 

TCO( IL+IS ) “TC( IL+IS ) 

TfO(  IL+IS)  *TF (IL+IS) 

I F ( N . GT . 1 ) GO  TO  3200 
C  THERE  IS  ONLY  ONE  SEG. 

JUSU  R1=C F/ ( 2 . 0  *DXF ( INAU ) /ACF( I NAU ) +RMF* DELT/ ( ACF ( I NAU ) 
+  **2*RHOIL) ) 

R3=(CW< INO)  )/ ( 2.U*DXF(  I NA  U  )  /  A  CW  (  INAU)  ) 

R4*RJ 

A2=SFMAw( LNU)/DELT+R3+By+C3+R4 
Ay=SPMAF( I  NO ) / DELT+C1  + R1+B9 
A(l,l)-Ay 
A ( 1 , 2 ) *-B9 
A ( 2 , 1 ) *-B9 
A ( 2 , 2 ) *A2 

Bf  i  )=SPMAF( INO) *TLF ( J )/ DELT+ ( Rl  +  Cl ) *TFP 
B ( 2)=SPMAw( INO) *TLW( J )/DELT+R3*TCP+R4*TC ( IL+IS) 

+  +0  J  *TA ( 1 NO) +01 P*TST( INO) -Cl P* ( TLw ( J ) +4 60 . )  *M 
CALL  S1MULT(A,B, 2 , 1ERROR) 

C9=B( 1) 

C12*B( 2) 

TLF  (  J )=B( 1) 

TLW ( J )»B( 2) 

GO  TO  JbUU 
J2U0  CONTINUE 
C  FIRST  LINE  SLG. 

Rl=CF/( 2 . 0  *  DX  F ( I  NAD ) /ACF ( I  NAD) +RMF* DELT/ (ACF ( I NAD) 
+  **2*RHOIL) ) 

R3=l .  U/  ( 2 . U*DXF( I NAU ) / ( ACN  f INAU) *CNf INO)  ) ) 

A»=aRMAf » INO)/ DELT+Kl+By+L I 
A^xbRMAW  (  iNU)/DELT  +  KJ+t<4  +  tiy+CJ 
A( 1 , 1 ) *Ay 

A( i , i )«-uy 
Ai 2 , i ) *-uy 
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LISTING  (Continued) 


AU,2)=A2 

B(  i  )<*SPMAF(  I  NO)  *TLtl‘  (  J  )/ DbLT+(  KJ  +C 1 )  "TFP 
B(  2)*SPMAW(  INO)  *TLW(  J)/DELT+R3*TCP+R4*TLW(  J+IS) 
++Ci*TA(  I  NO)  +CIP*TST(  INO) -CIP*  ( TLW(  J )  +4  60  .  )  *M 
CALL  Si MU  LT (  A  ,  B  ,  2 , 1  L KKOR / 

TLF ( J )=B< 1) 
run ( J )=B( l) 

cy=B< i) 

CX2=tH  i) 

JJUU  XF(N.bU.2)GO  TO  34UU 
J=J+ib 

C  CALCULATING  XNNbK  bbG. 

A !  X  ,  i  )  =A  'i 
A(X,2)=-By 
a  ^ 2, i)=-«y 

A\  2 , 2  I  —Pt 2 

X  )=SFMAF(  i  MU )  *TLF( J  )  /  DbLT+  (  Ri+Cl )  *TLF(  J-lb) 
ti  (  2  )  =Si'MAW  (  INO)  "TLW  (  J  ) /DbLT+RJ*TLW  (  J  —  lb )  +K4*TLW  *  J  +  IB  ) 
+  +C  J"TA(  1  NO )  +C  1  F*  TST(  INO)  -Cl  P*  (  TLW  (  J  )+4bU.  )  **4 
CALL  Si MULT (  A  ,  B  ,  2 , 1 EHHOR ) 

TLF ( J )=B( 1 ) 

TLW ( J )=B( 2) 

N  =  N-X 

GO  TO  3JUU 

c  calculating  iast  null 
J4UU  CONTI NUb 
U=J+iS 

R4=,L.U/(2. 0*  DXF  ( I  NAD )  /  ( ACW  ( I  NAD )  *CW(  INO)  )  ) 

A(l,l)=Ay 
a ( 2  , i ) =-ay 
a ( i , i ) =-ey 
A {2,2) =A 2 

B< X)“SFMAF( 1NU) *TLF( J ) / DbLT+ ( Kl+Ci ) *TLF( J-IS) 

B ( 2 ) =SPMAW ( INO) *TLW ( J )/DbLT+R3*TLW ( J- IS ) +R4 *TC ( IL+IS ) 
+  (-C3*TA(  INO)  +CIP*TST(  INO) -Cl P*  ( TLW ( J  ) +460.  )  **4 
CALL  SXMULTt  A.  B,  2  ,  IBKRUR) 

TLF ( J )=B(1) 

TLW ( J ) *B ( 2) 

IF ( Q( IL ) . LT .0.0)  GO  TO  3500 
C  TF ( 1 L+l  L ) -TLF ( M ) 

TF (i L ) ■TLF ( J ) 

C  TW( IL+IS)=TLW(M) 

TW( XL) *TLW( J ) 

TF<  XL+Xb) »cy 

TW(  XL+ibJ=Cii: 

gu  to  jsyy 

XSUU  TF ( X  L+XS ) “TLF ( J ) 

C  TF( IL)-TLF(M) 

Tw ( 1L+XS) *TLW( J ) 

C  TW( XL) «TLW(M) 

tf<  xl) *cy 
TW (XL) *C X  2 
JD yy  CONTI NUb 

N*NLSbG (  X  NO ) 
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M  =  LSTAKT( I  NO) 

J=M 

J J  =M+N  — 1 

c  wkii'h  b,yyy)  ino,m(n 

998  FORMAT ( 20X , // , 30X, 3110) 

C  wRITE(  6,999)  (TLF(MMM)  ,MMM*J,JJ) 

yyy  format ( ix,  ioi’j.2.  b) 

JSbU  CONTINUE 
RETURN 
enu 
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APPENDIX  V 
CONTROL  DATA 

HYTTHA  USER  MANUAL  (AFAPL-TR- 76-43 ,  VOL.  VII) 

4 . 0  CONTROL  DATA 

4.1  GENERAL  CONTROL  DATA 

This  group  includes  three  cards  which  set  up  the  program  title,  time, 
intervals,  fluid  temperature  and  type,  number  of  lines  and  components  and 
pressures.  In  addition  component  temperature  and  environment  cards  can  be  specified. 
Card  1  -  This  card  inputs  the  program  title.  A  maximum  of  80  alphameric 
characters  can  be  used  in  the  title  tarting  at  card  column  1. 

Example  Card: 


•***»*  SAMPLE  SYSTEM  IN  HYTTHA  USER  f'Mil'KL  ***** 

C  ft  4  »  ft  I  I  '(■  >5  >4  ifti,.  i,  ft  .5  1  ??  I  '  ft  ft  ■"  '■ '  .ft4*  4.  ‘  ft  1  '  54  57  44  44  40  44  48  43  44  44  44  17  48  49  43  41  48  44  44  44  44  44  48  49  43  6  4-  6*  61 


1  4  6  C  y  6 


RBS*S.  , 


881 


•9  20  21  22  2'  V*  25 


l.ri  |  jo  ■»',  ■■SiftlS-  >6  57 


42  »  <5  «*•  «9  49  60  51  62  53  54  66  >h  6f  6ft  '  j  00 


0  0  0  0  0 
t  It  1 1 
17177 
3  3  3  3  3 

mil 


144411 

I  H'C 

5  5  b  5  5  r’  r«  r>  r* 


S  b  M  H  t 

7/777 

mu 

9)1.1 


0  Oft  0  0 

6  1  tt  3  :c 

l  Mi  l 

7  ?|  7  2 
3  3  3  3  3 


J  J  J  J  J 


,0  o  o  p  565  2  g  c 

u  i:  -.j  u  iii1 1-  u  .i  >9  :-aj 

1 1 1 1  O  i  n  i 
[2  7  2  2  1|2  ft  7  2  2 
3ft  3  3  3 

4  4  4  4  4 

MM  1  • 

5  5  S  5  5 


U  u  l>  6  G  .C  5  G  u  u 

I 

/  7  7  7  ?jg  7  7  3  7 
4S65£|i)8C6S 
'<  9  9  S  i|S  9  $  [\  *i 


4  4  4  4ft 

'  •••  »f  •■»  ’0, 

r.  r  .  * 


0  0  C  0  c  j 


/'  :»:w*  rs1::  ?? .« ?o  jo| 

i  i  t  i  i  I  i  i  i  i  S 

i 

1  7  7  2  2)2  2  2  ?  2 


c  ojoftfto  o;o  o  o  o|j! 


3  3  3  3  3‘3  J 


!  3  3 


1  II  1  I'M  |  I  I  ft  1  1  !M  11  11 


2  2ft  2  2|2  2  2  2  2 

3  3  3  3  3,3  3  3  3  3 


4  1  4  t  4'<  4  4  4  4|4|  4  4  4 '4  ft  4  4  jj 


0  0  0  n  o'o  0  0  0  0  o  0  0  0  0,0  0  0  0  g 


?  2  2  2  2'2  2  2  2  2 
I 

3  ft  3  3  3'3  3  3  3  3 

4  4  4  |;|!||4 


M  6.-  ■  ,  ^  «5is«  6  7  il  5  ■'*.(» 

1 1  M  n  1 1 1 1 

i 

2  2  2  2  2j2  2  2  2  2 

3  3  3  3  3i3  3  3  3  3 

1 

,4  4  4  4  4'4  4  4  4  4 

t.  t144  44J4;  4  7  4,  -r  j'/  57  5)  .4  *  !•(,  5,  4,  4U3J 

j  0  ft  1  ’>  j  9 j  5:0  5  5  9  S , 5  5  G  5  GjG  5  5  5  5,5  5  5  5  5 

I  ;  I  ■  :  >  1 

G  6  G  C  G  j  G  1  G  C,G  6  6  G  .16  6  6  G  6'S  G  G  6  G'5  G  G  6  f..G  G  5  f.  6  G  G  G  6  0,6  0  G  6  i 

I  1  1  1  i  1  I  1 

7  7  /  7  > ,7  7  7  7  7.7  /  7  7  7  7  7  7  7|7  7  7  7  7'7  7  7  7  7' 7  7  7  7  7|7  1  7  7  7'7  7  7  7  7 

I  !  1  1  1  1 

I  (  C  8  8j3  £  8  8 1 J  3  S  ft  £,S  8  0  8  i.-J  4  0  3  C  S|||||  8*6  G  0  G  8 1 8 


0  c  0  0  0,0  0  0  0  0 

|fi I  M  CJ  £4  I.5!fc£  ?  68  C  0  i.‘, 

11  :  1  i|i  11  1  1 

2222  2^2  2222 
1 

3  3  3  3  3'3  3  3  3  3 


0  0  0  0  0  0  0  0  0  0 

n  ?  ;4  ".  .5  ;;  ;e  '5  Ll 

1 11  n!i  1 1 11 

2222272222 

1 

3333  3*3  3333 


4  4  4  4  4,4  4  4  4  4j4  4  4  4  4,4  4  4  4  4 

SI  6?  U  64  65jbu  67  61  69  5CJ  . . 


5  5  b  5  rji5  5  5  5  b 

1 

6  C  G  6  6'5  6  6  G  G 

nm\n  n  i 

a  8  5 


si  '7  a  79  00 

9  'j  r;  j  5,5  5  5  l  5 
1 

5  G  C  G  L  •  j  6  3  G  5 

1 

1 1 7  7  ,[i  n  7 1 

3oG3G'3(j3t3 


9  9  9  H  ,9 1  9  9  *9  9  9  9  V3  9  9  S|;9  9  9  S  5  *  9  5,9  9  9  9  9  S  9  ')  9  9>9  3  9  9  G>9  9  9  9  Oil  ;  9  9  <!n  '19  9'  -<39 


•  ,43  4  hi4  60|‘ 


■  '  .hf 
niAi:  'li  r-.  5j  ir<,  v  . 
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Card  2  -  This  card  inputs  data  for  the  number  of  lines  and  components,  and  three 


times.  Time  one  is  the  calculation  time  interval  used  as  t’ns  main  program 
time  step.  The  second  time  is  the  total  calculation  time  until  program  stops, 
and  time  three  is  the  plotting  time  interval. 

The  time  step  should  not  be  so  large  as  to  let  the  fluid  travel  further 
than  the  segment  length,  UELTAX  during  that  time.  If  the  time  is  chosen  too  large, 
the  line  routine  will  recalculate  the  segment  length. 

DELTAX  =  flow  *  time  step _ 

fluid  cross  sectional  area 

The  plotting  time  interval  is  selected  to  suit  the  output  device,  the 
minimum  being  the  calculation  time  interval.  The  actual  value  is  usually 
chosen  to  give  101  plotted  points  (i.e.  =  final  rime  7  ICO  or  N  times  the 
calculation  time  interval  so  that  every  Nth  calculated  point  is  plotted). 

Every  component  requires  the  user  to  specify  the  ambient,  structural, 
wall,  and  fluid  temperatures.  Specifying  a  one  in  column  45  will  cause  the 
reading  of  an  extra  data  card  containing  those  default  temperature  values. 

The  user  can  input  different  operating  environments.  The  number  of 


environments  is  written  in  column  50. 


CARD  NUMBER  2 


FORMAT 

DATA 

15 

Total  Number  of  Lines 

15 

Total  Number  of  Components 

E10.0 

Calculation  Time  Interval,  DELT 

E10.0 

Final  Time 

E10.0 

Plotting  Time  Interval 

15 

0  =  uses  element  temp 
Temperature  Indicator  i  =  uses  default  temp 

15 

Number  of  Environments 

DIMENSIONS 


EXAMPLE  CARD 


It  13 

2  3  4  5  Ci  t  9  <<  10  II  <2  II  14  I 


£ 0 . 

• J  ?4  ft  rc  ?r  ;b  ?9  30  ' 


1  ?? 

W  H  1  »4  >5  x  4*  30  39  40  41  42  *3  44  45  4t  ■»?  40  49  50  in  52  33  54  5,  36  37  M  39  C  I  t!  C2  O  C4 


0  9  10  - 1  12  13  14  13 


'  ?v  «  27  ? 3  24  25  2'-  «*.r  .»  ‘30  «l  V  35  34  '3  *(j  V  ‘ 


40  41  42  4  J  4  4  43  4',  At  43  49  32  91  3  2  1 3  3'  33  56  3  J  id  b’l  60 


0  0  0  0  DiO  0  0  0  a  0  0  0  0  0‘0  0  0  0  t  0  P  0  0  0 

I  }  1  4  5  !•  J  I  S  1C  II  I?  I!  !*  I'ii  l<  U  13  ?C  /I  ?? : .  .  I 

H  1|  M  t  t|  I  11  M  ||;  1  1  1  1  1  l  l  11 
2?  2  2  2|22?2?p  2  2  7  2!??22|2??2? 
3  3  3  3  3*3  3  3  3  |:3  3  3  3  3*3  3  i  3  3  3  3  3  3 

i 

>  4  4  4  M  4  4  4  4  4  4  4  4  V4  4  4  1  4,1  *  4  M 

S  5  5  i  b'5  5  S  5  5  5  5  S  b  b’5  5  5  5  Mb  b  5  b 

I  '  ! 

0  6  i>  G|'b  G  6  G  6  b  i>  b  f  :  i  ,6o6bjbGGGG 
!  i  ]  i 

7  77  7  1,11  I  i  I'l  7  7  7  7  7  7  i  /  7  7, 
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Card  2a  -  Component  Temperature  Option 

If  the  user  puts  a  1  in  column  45  of  card  2,  the  HYTTHA  program  will  read 
an  extra  card.  The  data  card  contains  Indicator  and  initial  default  temperatures 
for  the  atmosphere,  structure,  wall  and  fluid.  When  a  particular  indicator 
is  selected,  the  appropriate  default  temperature  will  be  used  by  all  the 
components  including  the  lines.  However  each  component  has  an  override  on 
the  integer  data  card  which  will  suppress  using  the  default  values. 

Card  2a  is  intended  for  use  whenever  the  programmer  wishes  to  avoid 
entering  temperature  data  for  all  the  components.  Component  temperatures 
can  still  be  specified. 

Card  2b  -  Environment  Option 

Initial  ambient,  structural,  and  wall  temperatures  should  be  entered 
for  the  number  of  environments  in  column  50  of  card  2.  Currently  five 
different  environments  can  be  input.  The  individual  components  must 
specify  which  environment  it  will  use.  This  section  will  override 
the  temperatures  specified  on  card  2a.  However,  the  user  still  has  the 
option  to  change  the  temperature  data  for  each  component. 
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COMPONENT  TEMPERATURE  OPTION 


« 


CARD  NUMBER  2a 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-5 

15 

Ambient  Temperature  0  ■  use  component  values 

Indicator  1  ■  USe  default  value 

— 

6-15 

E10.0 

Default  Ambient  Temperature 

°F 

16-20 

15 

Structural  Tempera-  0  “  use  component  value 

ture  Indicator  1  «  use  default  value 

— 

21-30 

E10.0 

Default  Structural  Temperature 

°F 

31-35 

15 

Wall  Temperature  0  *  use  component  value 

Indicator  1  =  use  default  value 

— 

36-45 

E10.0 

Default  Wall  Temperature 

°F 

46-50 

15 

Fluid  Temperature  6  *  use  component  value 

Indicator  1  *  use  default  value 

i 

51-60 

El  0.0 

.. 

Default  Fluid  Temperature 

°F 
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EN'V  CRONMENT  OPTION 
CARD  NUMBER  2b 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

1-10 

S1C.0 

Environment  //I  Ambient  Temperature 

°F 

11-20 

E10.0 

Environment  //I  Structural  Temperature 

°F 

21-30 

E10.0 

Environment  #1  Wall  Temperature 

°F 

31-40 

E10.0 

(Continue  sequence  for  as  many 

41-50 

E10.0 

environments  entered  on  card  2 

51-60 

El  0.0 

column  50.  Five  is  the  maximum) 

61-70 

E10.0 

1 

71-80  j  E10.0 

EXAMPLE  CARD 
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Card  3  -  The  first  value  Is  the  fluid  type.  The  program  is  set  up  to  run  with 


either  of  the  following  fluid  types  at  any  temperature  from  -65°F  to  300°F.  If  a 
computed  temperature  exceeds  30C°F,  the  fluid  properties  at  300°F  are  used. 

Type  //I  M1L-H-5606B 

Type  if 2  MIL-H--83282 

Type  // 3  Skydrol  500B 

The  fluid  type  number  selects  the  fluid  data  to  be  used  from  tabulated 
data  stored  in  the  program  and  adjusts  the  fluid  properties  to  the  computed 
pressure . 

The  second  value  is  the  fluid  temperature  throughout  the  system.  This 
is  intended  as  a  default  value  should  the  user  forget  to  enter  the  fluid 
temperature  on  the  component  cards.  The  fluid  temperature  will  default  to  100°F 
if  this  column  is  left  blank. 

The  third  value  is  the  fluid  vapor  pressure  at  the  fluid  temperature. 

Note:  If  the  vapor  pressure  is  not  input  the  program  will  use  a  value  of  2  psia. 

The  last  value  is  the  atmospheric  pressure  at  the  conditions  of  the  run. 

The  valve  14.7,  atmospheric  pressure  at  sea  level  will  be  used  if  this 
value  is  not  input. 
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COLUMN  FORMAT  j  DATA 


DIMENSIONS 


m 

15 

Fluid  Type  Number 

6-1  5 

E10.0 

Fluid  Temperature 

°F 
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E10.0 
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APPENDIX  V 

HYTTHA  OUTPUT  OPTION 

HYTTHA  USER  MANUAL  (AFAPL-TR-76-43 ,  VOL,  VII) 

7 . 0  SYSTEM  ARRANGEMENT  DATA 

This  section  of  the  input  data  is  used  to  describe  the  system  arrangement. 
Having  input  the  necessary  information  for  all  the  system  lines  and  components, 
one  must  now  input  the  way  in  which  these  components  and  lines  are  interconnected. 
Special  Cases 

If  a  leg  is  terminated  by  a  constant  pressure  source,  the  constant  pressure 
has  to  be  input  along  with  the  leg  connection  information  via  a  type  61  reservoir.  A 
current  restriction  requires  that  only  nodes  with  a  single  leg  can  have  a  constant 
pressure  termination.  A  second  restriction  is  that  there  must  be  at  least  one 
variable  node.  Nodes  should  not  be  placed  in  the  center  of  any  component  having 
a  pressure  loss  since  each  leg  connected  to  the  node  will  include  the  pressure 
drop  of  the  component. 

Other  component  restrictions  are  as  follows: 

VALVES  -  TVALV22  can  require  three  or  four  nodes  depending  upon 

the  valve  usage.  The  four-way  valve  and  three-way  versions  of  TVALV22  are 

described  as  follows: 


SUPPLY 


RETURN 

FOUR-WAY 


SUPPLY 


THREE-WAY 


FOUR  WAY 


THREE  WAY 
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« 


The  valve  schematic  should  be  established  for  steady  state  operation  including 
any  interflow  paths.  A  node  is  then  required  at  every  connection  that  splits 
or  merges  flow  (including  interflow  leakage)  and  at  any  connection  that  termi¬ 
nates  flow. 

Actuators  -  Unbalanced  actuators  must  include  a  node  which  is  used  to  account 
for  any  flow  gain  or  loss  in  event  the  actuator  is  in  motion  during  steady 
state  conditions. 

Reservo irs  - 

o  RSVR61  requires  one  node 

o  RSVR62  requires  two  nodes  open  ended  (not  connected  by  a  leg).  One 
node  is  considered  to  be  on  the  low  pressure  side  with  the  other  node  considered 
on  the  high  pressure  side. 

7 • 1  general  data 

On  this  card  input  the  number  of  nodes,  the  number  of  legs  and  steady 
state  printing  options. 

0  -  print  node  pressures  and  leg  flows  for  each  steady  state 
iteration 

1  -  no  steady  state  data  is  printed 

2  -  print  balanced  node  pressures  and  leg  flows  at  each  time  step 
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8.0  OUTPUT  REQUIREMENTS  DATA 


The  program  will  output  in  a  print  plot  form,  any  calculated  system 
variable  versus  time.  The  time  interval  between  plotted  points  is  input  on 
the  first  general  control  card. 

When  using  the  print  plot  routine,  it  should  be  noted  that  101  points 
are  the  maximum  that  can  be  plotted  on  one  page.  When  more  than  101  points 
are  requested,  the  plot  is  continued  on  an  additional  page(s). 

On  the  first  output  data  card  the  user  specifies  the  number  of  line 
plot  data  cards,  the  number  of  plotted  component  variables,  and  specialized 
outputs. 

The  line  variables  which  can  be  selected  are  the  pressures,  flows, 
wall  temperature,  and  fluid  temperature  up  and  downstream  of  each  lire. 

The  component  variables  which  can  be  selected  are  listed  in  paragraph  6.2. 

The  Y  axis  scale  can  be  selected  for  any  print  plot.  The  scale  data  card 
is  explained  in  Paragraph  8.3.  This  card  follows  the  component  variable  cards. 
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PLOT  DATA  CARD 


COLUMN 

FORMAT 

DATA 

1-5 

15 

Number  of  line  plot  data  cards 

6-10 

15 

Number  of  component  variables  to  be  plotted 

11-15 

15 

0 

16-20 

15 

0  -  Normal  graphs  +1  -  Prints  listing  of  plotted  values 

21-25 

15  . 

0  -  Normal  graphs  *-l  -  No  graphs 

26-30 

0  -  Normal  graphs  +1  -  Prints  magnitudes  (*) 

31-35 

15 

Number  of  scales 

EXAMPLE  CARD 
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8.3  Selecting  Output  Plot  Scales 


« 


The  user  has  the  option  of  selecting  the  Y  axis  scale  for  any  output 
plot.  The  scale  will  remain  the  same  even  if  the  plot  is  continued 
on  an  additional  page(s).  The  graph  number  must  be  specified  followed 
by  the  minimum  and  maximum  Y  values  as  listed  on  the  scale  data  card.  The 
graph  numbering  is  started  in  sequence  from  the  first  plot  entry  on  the 
first  line  data  card  or  the  first  component  variable  if  there  are  no  line 
data  plots. 

Note:  When  using  this  option,  the  maximum  Y  value  cannot  be  0.0.  If 
Y  max  is  set  to  zero  the  output  routine  will  automatically  generate  the  scale. 
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SCALE  DATA  CARD 


« 


COLUMN 

FORMAT 

DATA 

DIMENSIONS 

B 

15 

Graph  number 

6-15 

F10.0 

Minimum  Y  Value 

16-25 

F10.0 

Maximum  Y  Value 

Repeat  sequence  using  additional  cards 

(if  necessary)  until  the  number  of  graphs 

in  columns  41-A5  on  plot  data  card  is 

reached . 

I 
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AREAT 

A(  ),  B (  ), 
C<  ),  D(  ), 
E(  ) 

CP 

CPE(  ) 

CPS(  ) 

EP(  ) 

EPS  (  ) 

FREQ 

I, J, JJ,K, 
KK,N 

L 

LCP 
LR 
Ml 
M(  ) 

MSG(  ) 

NCP 

PSPEED 
RR 
S(  ) 

SG(  ) 

SIC(  ) 

SLOPE 
TLR 
TM1 
TM2 
V(  ) 

VSG  (  ) 

VSQ 
VSQR 
W(  ) 

X1NT  (  ) 


AFPF.NDIX  W 
THE  BMOMENT  PROGRAM 
LIST  OF  VARIABLES 

AREA  OF  TRIANGLE  IN  CALCULATION  0*  MSG(  )(SQ.IN.) 

ARRAY  OF  MEASUREMENTS  (IN)  SEE  FIGURE  A-JL 

CRITICAL  POINT  IN  AL  SECTION 
CRITICAL  POINT  STRAIN  (MICRO  IN/ IN) 

CRITICAL  POINT  STRESS  (PSI) 

ARRAY  OF  STRAINS  AT  SG(  )  (MICRO  IN/IN) 

ARRAY  OF  STRAINS  AT  A(  )  (MICRO  IN/ IN) 

FREQUENCY  (HZ) 

INTEGERS  (N.D.) 

LENGTH  OF  BEAM  (IN) 

LOCATION  OF  CRITICAL  POINT  ON  BEAM  (IN.) 

VERTICAL  REACTION  AT  LEFT  END  OF  AL  SECTION  (LB) 

MOMENT  AT  LEFT  END  OF  AI.  SECTION  (LB-IN) 

ARRAY  OF  BENDING  MOMENTS  (LB-IN) 

BENDING  MOMENT  AT  SELECTED  LOCATIONS  (LB-IN) 

NUMBER  OF  CRITICAL  POINTS  (N.D.) 

PUMP  SPEED  (RPM) 

TOTAL  RIGHT  REACTION  (LB) 

ARRAY  OF  STRESS  AT  SG(  )  (PSI) 

ARRAY  OF  SELECTED  LOCATIONS  (IN.) 

ARRAY  OF  STRESSES  AT  A(  )  (PSI) 

SLOPE  OF  AL  SECTION  IN  SHEARING  DIAGRAM  (N.D.) 

VERTICAL  REACTION  AT  LEFT  END  (LB) 

MOMENT  AT  LEFT  END  OF  BEAM  (LB-IN) 

TOTAL  MOMENT  AT  RIGHT  END  (LB-IN) 

ARRAY  OF  SHEARING  FORCES  (LB) 

SHEAR  FORCE  AT  SELECTED  LOCATIONS  (LB) 

VALUE  OF  RADICAND 

VALUE  OF  SQUARE  ROOT  IN  QUADRATIC  EQUATION 
ARRAY  OF  LOADS  (LB/IN) 

ARRAY  OF  LOCATIONS  WHERE  BENDING  MOMENT  EQUALS  ZERO  (IN.) 
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APPENDIX  W 


The  program  for  the  calculation  of  reactions,  shears,  and  moments  for  a  beam  with 
built-in  ends,  Figure  W-l ,  with  variations  in  load  distribution  is  given  in  Figure  W-2 . 
Examples  applied  to  the  unclamped  test  specimen  are  shown  in  Figures  W-3  through  W-5 
for  one  mechanical  resonance  at  3440  rpm  and  two  hydraulic  resonances  at  2900  rpm 
and  4350  rpm,  respectively. 

A  computer  printout  for  the  case  at  4350  rpm  is  as  follows: 


M-j 


M2 


R1 


R2 


L 


Qprs-OMI'M 


F  IGURE  W-l  BEAM  WITH  BUILT  IN  ENDS  COMBINED  WITH  VARIATIONS 
IN  UNIFORM  LOAD  DISTRIBUTION 
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Phase  I 


FIGURE  W-2  COMPUTER  PROGRAM  FLOW  CHART 
Beam  with  Built-In  Ends  Combined  with  Variations 
in  Uniform  Load  Distribution 
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Phase  H 


KICUKK  W-2  (CONTINUED) 


$ 
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Phase  311 


Beam  Section 


KICl'KK  W-2  (CONI  I  NIIKD) 
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t 


BMOMENT 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190' 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00  390 
00400 
00410 
00420 
00430 
00440 
004  50 
00460 
00470 
00480 
00490 
0050C 
00510 
U0520 
MU53U 
00540 
U055U 
00560 
00570 
00580 
UU5  yo 


DIMENSION  V(7),CP(5),W(6) ,A(7),B(6)  C (6) ,D(6) ,E(6)  A 
DIMENSION  SG(7) , XINT( 7) , VSG( 7 ) , SIG( 7) ,EPS( 7) ,S(7) 

DIMENSION  EP{ 7) ,CPS(5) ,CPE(5) ,SHEAR(25) ,BM(25) ,X(25) 

REAL  L,LR,M(12),M1,LCP(5).MSG(7) 

DATA(SG(J) , J-1.7)/2.58,8.7. 17.7,26.6,35.5,44.5.53.2/ 

DATA  FREQ, PSPEED/653, 4350/ 

DATA(W(I) ,1-1, 6) /2. 1,5. 71, -7. 67, 3. 2 1,-14. 04, -8. 03/ 

DATA (A(I) ,1-1, 7)/0. ,5.64  13. 2, 22 . 15, 31 . 05, 40. , 53. 2/ 

DATA (B (I) ,I-l„6)/5.64, 7  56,8.95,8.9,8.95,13.2/ 

DATA (C(I) ,I-l,6)/47.56,40.  31.05,22.15,13.2,0./  INPUT  DATA 

DATA (D(I),I-l,6)/2.82,9.42, 17.675,26.6,35.525,46.6/ 

DATA(E(I) ,1-1, 6)/50. 38, 43. 78, 35.525,26.6, 17.675,6.6/  \»  F0R 
WRITE(6, 1)  r  ONE-ELI 

1  FORMAT ( 16HONE  -  ELBOW  PIPE/3X, 9HUNCLAMPED//) 

WRITE(6,2)FREQ. PSPEED  TEST  SI 

2  FORMAT (4X.9HFREQUENCY, 3X.I4/4X, 10HPUMP  SPEED, 3X, 14) 

WRITE(6, 3) 

3  FORMAT (4X  7HINPLANE// /) 

W3-0. 

WBE-0. 

TM1-0. 

TLR-0 . 

L-53-2 _ ___ _ / 

DO  50  1-1,6  \ 

WB-W  (I)*B(I)*(-1  )-WB 
WBE-W(I)*B(I)*E(I)*(-1 • )+WBE 
Cl-W(I)*B(I)*(-l.)/(4  *L**3) 

?1-4.*E(I)**2*(L+2.*D(I) )-B(I)**2*(C(I)-A(I) ) 

LR-C  l*Pl  DETERMI] 

C2-W(I)*B(I)*(-1.)/(24.*L**2)  l 

P2-B(I ) **2* (L+3- * (C (I ) -A(I)))-24.*E(I)**2*D(I)  \  K 

M1-C2*P2  /  AND  BUI] 

TMl-MdTMl 

TLR-LR+TLR  MOMENT  S 

50  CONTINUE 
RK-WB-TLK 
TM 2-TLR*L -WBE+TM 1 

white ( t>,  7 5)tlr  rr  tmi.tm2  y 

75  FORMAT (4X,  3HR  1-,  F9 . 3, 9X,  3HR2-.F9. 3/4X,  3HM1-.F9. 3,9X,  3HM2-.F9. 3) 
V(1)-TLR  > 

M ( 1 ) -TM l 
J-l 

DO  160  1-1  b 


ONE-ELBOW  PIPE 
TEST  SPECIMEN 


DETERMINATION  OF 
END  REACTIONS 
AND  BUILT-IN 
MOMENTS 


Vd+I  ) -W (  i ) *B (  I )  +V ( I ) 

90  IF(SG(J).GT.A(I+1))  GOTO  150 
VSG i J )  — W  (  1.  )  *  l SG  (  J  )  -A  ( I  )  )+V(I) 
J-J+l 

IF ( J . EQ. 7 )  GOTO  150 
GOTO  RU 
150  CONTINUE 


DETERMINATION 
OF  SFEAR  LOADS 


ALONG  SPEC  I  HEN 
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00600 
00610 
00620 
00630 
00640 
00650 
UuooO 
00670 
UUOBO 
0UO90 
UU  700 
00710 
00720 
00730 
00740 
00750 
00760 
007  70 
00  780 
00790 

U0800 

00810 

Oub2U 

00830 

00840 

00850 

00860 

00870 

OUBBU 

oo8  vu 
uuyou 
uuv  If 
00920 
J0930 
0OV40 
U0950 
00960 
009  70 
UU98U 
U099U 
01000 
01010 
01020 
01U30 
01040 
01050 
01060 
01070 
01080 
01090 
01  100 
01  110 
01120 
01 1  JO 
01140 
01150 
01  160 
01  170 
01  180 
01  190 


NCP-0 - — - 

NCPSG-0 

J-l 

DO  300  1-2.7  COMPUTATION  OF 

SL0PE-(V(I)-V(I-1) )/B(I-l) 

IF(V(I) .GT-0. )  GOTO  200  BENDING  MOMENTS 

IF(V(I-1) .LT.O.)  GOTO  250  and  CRITICAL 

GOTO  225 

200  IF < V( T  —  1 ) -GT.0  )  GOTO  250  POINTS 

”5  CF^NCP^-ABS (V(I-1 ) /SLOPE)  '  (WHERE  SHEAR  =  °> 

LCP(NCP)-CP(NCP)+A(I-1) 

M(7+NCP)«.5*CP(NCP)*V(I-1)+M(I-1) 

M(I)-.5*CP(NCP)*V(I-1)+.5*(B(I-1)-CP(NCP))*V(I)4M(I-1) 

GOTO  283 

250  M(I)«V(I-1)*B(I-1)+.5*(V(I)-V(I-1))*B(I-1)4M(I-1) 

283  IF(SG(J).GT-A(I))  COTO  300 
IF(VSG(J).GT  0.)  GOTO  280 
IF(V(1-1) -LT.O- )  GOTO  298 
GOTO  281 

280  IF(V(L-1) .GT.O. )  GOTO  298 

281  NCPSG-NCPSG+1 

MSG(J)«.5*CP(NCP)*V(I-1)+.5*(SG(J)-A(I-1)-CP(NCP))*VSG(J)+M(I-1) 
GOTO  299 

298  AREAT- . 5*(VSG ( J)-V{ I -1))*(SG(J)-A(I-1)) 
MSG(J)-AREAT+V(I-1)*(SG(J)-A(I-1))4M(I-1) 

299  J-J+l 

IF ( J.EQ- 7)  GOTO  300 
GOTO  28 j 

300  CONTINUE _ _ 

DO  JUi  1-1,7  ""N 

S10U7-29.  1 3*M(  I. ) 

EPS(I)-1. 765*11(1) 

301  CONTINUE 

DO  303  1-1,6  COMPUTATION  OF 

/>  stresses  ani1  s™ms 

303  CONTINUE  FROM  BENDING  MOMENTS 

DO  700  I-l.NCP 
CPS ( I ) -29 . 1 3*M( 7+1) 

CEE(I)-1 . 765*M( 7+1) 

700  CONTINUE  _  J _ _ 

WRITE  (6, 170)  ~  "  . . .  . . ~ 

l 70  FORMAT (/ /4X , 1HX, 12X  1HL, 1 4X , 1HV, l IX, 2HBM, 7X, 6HSTRESS, 12X, 6HSTRAIN) 

i-i  r 

VC-0. 

NN-1 

J-l 

K-1  ORG \N1ZATI0N  OF 

DO  999  KK“ 1 , 6  OUTPUT  DATA 

799  IF(A(I).LF..SG(J))  GOTO  805  W 

IF(K.UT.NCP)  GOTO  815  " 

I F 1 SG ( J  ) .LK.LCP(K) )  GOTO  815 

800  WKI TK( 6, 1 76)LCP( K) , W(KK) , VC ,M( 7+K) , CPS (K) ,CPE(K) 

SHEAR (NN) -VC 

BM (NN ) -M ( 7+K) 

MNN)-LCP(K) 

NN-NN+1 
K-K+l 
GO  TO  998 


COMPUTATION  OF 
STRESSES  AND  STRAINS 
FROM  BENDING  MOMENTS 


ORG \NIZATION  OF 
OUTPUT  DATA 
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01200 

805 

U1210 

01220 

01230 

810 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

815 

01310 

01320 

01330 

01340 

01350 

01360 

998 

01370 

01380 

01390 

01400 

01410 

175 

01420 

176 

014  30 

177 

01440 

999 

01450 

01460 

01470 

01480 

275 

0U90 

01500 

01510 

254 

01520 

255 

01530 

01540 

01550 

01560 

01570 

268 

01580 

269 

01590 

270 

UlbOU 

719 

Ul  61 0 

Uib20 

181 

Ulb30 

Ulb*U 

182 

01650 

01660 

01670 

190 

UlbBO 

IF(K.GT.NCP)  GOTO  810  - 

IF(A(I).LE.LCP(K))  GOTO  810 
GOTO  800 

WRITE (6, 175)A(I) ,W(KK) ,V(I) ,M(I) tSIG(I) .EPS (I) 
SHEAR(NN)-V(I) 

BM(NN)«M(I) 

X(NN)-A(I) 

NN-NN+1 


t 


ORGANIZATION  OF 


I-I+l  OUTPUT  DATA  (CONTINUED) 

GOTO  998 

WRITE(6, 177)SG(J)  W(KK)  VSG ( J) ,MSG( J) , S ( J) , EP( J) 
SHEAR(NN)«VSG(J) 

BM(NN)-MSG(J) 

X(NN)-SG(J) 

NN-NN+1 


J-J+l 

IF(I . EQ -  8)  GOTO  999 
IF(A(KK+1)  .EQ.O.  )A(KK+l)-53  2 
IF(SG(J).LE.A(KK+1))  G0T0799 
IF (K-GT.NCP)  GOTO  999 
IF(LCP(K) .LE.A(KK+1 ))  GOTO 799 

F0RHAT(1X,F6.2,6X,F7.3, 7X,F9.3,3X,F9.3,3X,F9.2,8X,F9.2/) 
FORMAT (1H<*,F6.2,6X,F7.3,  7X,F9 . 3,  3X.F9.3,  3X . F9- 2 , 8X,F9. 2/) 
FORMAT(lH*,F6*2,6X,F7.3,7X,F9.3,3X,F9.3,3X,F9.2,8X,F9.2/) 

CONTINUE _ 

JJ-1 

DO  719  1-2, NN 

SLOPE- (SHEAR (I)-SHEAR(I-l ) )/(X(I> -X(I-1 ) ) 

IF(BM(I) -GT.O. )GOTO  254 
IF(BM(I-l).LT.O.)  GOTO  719 
GOTU  255 

IF(BM(I-1) .GT.O. )GOTO  719 
VSQ-SHEAR(I-l)**2-4.*. 5*SLOPE*BM(I-l) 

IF (VSQ.LT .0. )  GOTO  719 
VSQR-SQRT(VSQ) 

XINT( JJ)-( (-1 . ) *SHEAR( 1-1 )-VSQR) /SLOPE+X(I-l ) 

IF(XINT(JJ) .GT.X(I) )  GOTO  269 
IF(XINT(JJ).GT.X(I-1))  GOTO  270 
XINT(JJ)-((-l.)*SHEAR(I-l)+VSQR)/SLOPE+X(I-l) 

JJ-JJ+1 
CONTINUE 
WRITE(6, 181 ) 

FORMAT(//22H#  CRITICAL  POINT  DATA) 

WRITK( 6, 182) 

FORMAT (19H*  STRAIN  GAGE  DATA//) 

N- JJ-1 

WRITE (6 , 190) (XINT(I ) , 1-1 ,N) 

FORMAT( 3 2HB ENDING  MOMENT  EQUALS  ZERO  AT  X-.F6.2/)  I 
ENU  _ 


> 


COMPUTATION  OF 
LOCATIONS  WHERE 
BENDING  MOMENT 
VALUES  EQUAL  ZERO 
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FIGURE  W-3  one- 
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.BOW  PIPE  UNCLAMPED  STRUCTURAL  ANALYSIS 
cy  1030  Hz  Pump  Speed  3440  RPM 
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Centerline  Distance  •  in. 


QPrtOMI-M 


FIGURE  W 


•4  ONE-ELBOW  PIPE  UNCLAMPED  STRUCTURAL  ANALYSIS 

Frequency  870  Hz  Pump  Speed  2900  RPM 


Bending  Moment  lb-in.  Shear  -  lb  Load  Distribution  -  !b/in. 
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